Content - 9720e4e724f6133da688c5325f87417bd7fdef8b - a630eb3/tests/RFtest.info.R

visit type:

https://github.com/cran/RandomFields

26 January 2022, 09:24:35 UTC

Tip revision: 6b9dea4f9beb109f9d5a81129f5e5bbfd2e2bb7a authored by Martin Schlather on 12 November 2011, 00:00:00 UTC
version 2.0.53

Tip revision: 6b9dea4

RFtest.info.R

# source("RFtest.info.R")

if (EXTENDED.TESTING <- file.exists("source.R")) source("source.R")

str(GetRegisterInfo(0))

cat("-------------------------------------------\n")
try(GaussRF(1:4, grid=TRUE, model="exp", param=c(1,2,3,4)))
str(GetRegisterInfo(0))

try(GaussRF(runif(4), grid=FALSE, model="exp", param=c(1,2,3,4), me="ci"))
str(GetRegisterInfo(0, TRUE))