xxxxxxxxxx
print(r.eval("""
fp<-'https://olgabelitskaya.github.io/huge_cities.tsv'
hc<-data.frame(read.csv(fp,header=T,sep='\t'))
jpn_chn<-hc$country=='Japan'|hc$country=='China'
t(hc[which(jpn_chn),2:9])"""))
No comments:
Post a Comment