# convert precip data to 50X50 image
look<- as.image( RMprecip$y, x= RMprecip$x, nrow=50, ncol=50)
image.plot( look)
# number of obs in each cell -- in this case equal to the
# aggregated weights because each obs had equal wieght in the call
image.plot( look$x ,look$y, look$weights, col=terrain.colors(50))
# hot spot is around Denver
Run the code above in your browser using DataLab