Revision 68994912262e9c2ae98bff7968c23cd4cc8b9e8b authored by Martin Schlather on 24 August 2008, 00:00:00 UTC, committed by Gabor Csardi on 24 August 2008, 00:00:00 UTC
1 parent 3774b0f
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))
Computing file changes ...
