# lets regard at a non-initialised register first:
DeleteAllRegisters()
str(GetRegisterInfo(0))
# now, a register that has successfully initialised
try(GaussRF(1:4, grid=TRUE, model="exp", param=c(1,2,3,4), Storing=TRUE))
str(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))
str(GetRegisterInfo(0, TRUE))Run the code above in your browser using DataLab