# NOT RUN {
dgvm3d.locations = read.table("gridlist.txt",
col.names=c("Lon", "Lat", "Name"), sep="\t",
stringsAsFactors=FALSE)
dgvm3d.succession=list()
for (i in 1:nrow(dgvm3d.locations)) {
dgvm3d.succession[[dgvm3d.locations$Name[i]]] =
read.LPJ("vegstruct.out",
lon=dgvm3d.locations$Lon[i],
lat=dgvm3d.locations$Lat[i])
dgvm3d.succession[[i]] = dgvm3d.succession[[i]][!(dgvm3d.succession[[i]]$Year %% 5) &
dgvm3d.succession[[i]]$Year > 1859, ]
}
# }
Run the code above in your browser using DataLab