xxxxxxxxxx
print(r.eval("""
fp<-'https://olgabelitskaya.github.io/huge_cities.tsv'
hc<-data.frame(read.csv(fp,header=T,sep='\t'))
aggregate(hc['growth'],list(hc$country),mean)"""))
No comments:
Post a Comment