#Simulate a Gaussian random field with an exponential covariance function,
#range parameter = 2.0 and the domain is [0,5]X [0,5] evaluating the
#field at a 100X100 grid.
grid<- list( x= seq( 0,5,,100), y= seq(0,5,,100))
obj<-Exp.image.cov( grid=grid, theta=.5, setup=TRUE)
look<- sim.rf( obj)
# Now simulate another ...
look2<- sim.rf( obj)
# take a look
set.panel(2,1)
image.plot( grid$x, grid$y, look)
title("simulated gaussian field")
image.plot( grid$x, grid$y, look2)
title("another (independent) realization ...")
Run the code above in your browser using DataLab