Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
clear3d()
for(i in 1:n){
tmp1 <- map.data[[i]]
tmp2 <- data.frame(tmp1,0)
if(i==1){
plot3d(tmp2, type="l", xlim=jpn.xlim, ylim=jpn.ylim, zlim=c(0,100),xlab='', ylab='', zlab="")
}
lines3d(tmp2)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment