GaussRF(1:4, grid=TRUE, model="exp", param=c(1,2,3,4), Storing=TRUE)
Print(GetRegisterInfo(0))
# finally, a register that could not be successfully initialised
try(GaussRF(runif(4), grid=FALSE, model="exp", param=c(1,2,3,4),
me="ci", Storing=TRUE))
if (interactive()) Print(GetRegisterInfo(0, TRUE))
Run the code above in your browser using DataLab