https://github.com/cran/RandomFields
Raw File
Tip revision: bb0d8f1ef9392ca85087c614912a8889c4717f89 authored by Martin Schlather on 20 March 2006, 00:00:00 UTC
version 1.3.24
Tip revision: bb0d8f1
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))

back to top