data(regdata)
str(regdata)
library(sp) # spplot
library(spacetime) # stplot
# stplot(regdata[,,'modis']) # plot modis data
# spplot(regdata@sp,zcol='twi', col.regions = bpy.colors() ) # plot TWI
# spplot(regdata@sp,zcol='dem', col.regions = bpy.colors() ) # plot dem
Run the code above in your browser using DataLab