Scrape CTFS data

library(XML)

dat <- readHTMLTable("http://www.ctfs.si.edu/site/Yasuni/abundance/?size=100", 
                     header = TRUE, which = 3)