data(regdata)
str(regdata)
library(sp) # spplot
library(spacetime) # stplot
# \donttest{
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