pdf("solomon.pdf")

sol0 <- read.fwf("C:\\data\\solomon.dat", width=c(20,3,8,8),
col.names=c("island", "species", "area", "dist"))

logarea=log(sol0$area)

dist=sol0$dist+0.001

sol1 <- data.frame(logarea=logarea, area=sol0$area, dist=dist, species=sol0$species)

attach(sol1)

sol1








dev.off()