xuefliang

library(rateratio.test) rateratio.test(c(2,2),c(10071,29871))

scale_x_date(limits=as.Date(c("2004-01-01","2005-01-01"),labels=date_format("%Y-%m-%d")),labels=date_format("%Y-%m-%d")) 需要加载scales包 library(scales) 或者是 scale_x_date(date_breaks = "1 month", date_minor_breaks = "1 week", date_labels = "%B")

cd /tmp wget --no-check-certificate --timeout=15 https://raw.githubusercontent.com/koolshare/koolshare.github.io/acelan_softcenter_ui/shadowsocks/shadowsocks.tar.gz tar -zxvf /tmp/shadowsocks.tar.gz chmod +x /tmp/shadowsocks/install.sh sh /tmp/shadowsocks/install.sh

sudo pip3 install -U distribute && pip3 freeze --local | grep -v '^\-e' | cut -d = -f 1  | xargs pip3 install -U --allow-external mysql-connector-python

  ./scripts/feeds update packages ./scripts/feeds install libpcre ./scripts/feeds install zlib ./scripts/feeds install libopenssl  ./scripts/feeds install libsodium ./scripts/feeds install libev ./scripts/feeds install libpcap make package/luci-app-rss/compile V=99

library(XML) # 解析XML文件 doc <- xmlParse('/home/xuefliang/Dropbox/xin.xml') url <- unlist(getNodeSet(doc,"//enclosure/@url"),use.names = T) title <- unlist(getNodeSet(doc,"//title/text()"),use.names = FALSE) df <- data.frame(url) write.csv(df,'/home/xuefliang/xin.csv') library(xml2) doc <- read_xml('/home/xuefliang/Downloads/xin.xml') #xml_name(doc) #xml_text(doc) xml_find_all(doc, ".//enclosure/@url")[]

1 sudo apt install network-manager-openconnect   systemctl daemon-reload 2 sudo ./vpn_install.sh