data.ed<-chile_1217
ix <- 3:31 #This depends on the dataframe, so be careful
data.ed[ix] <- lapply(data.ed[ix], as.numeric)
names(data.ed)<-gsub('\\.',"",names(data.ed))
data.ed$lbetw<-log(data.ed$betweeness);data.ed$lbetw[is.infinite(data.ed$lbetw)]<-NA
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.