Skip to main content

Browse the archive

https://github.com/cran/RandomFields
26 January 2022, 09:24:35 UTC
Revision ce8a1142319affe3575c350dc21aff95c0203631 authored by Martin Schlather on 03 March 2006, 00:00:00 UTC, committed by Gabor Csardi on 03 March 2006, 00:00:00 UTC 
version 1.3.23
1 parent 3c90f34
Raw File
Tip revision: ce8a1142319affe3575c350dc21aff95c0203631 authored by Martin Schlather on 03 March 2006, 00:00:00 UTC
version 1.3.23
Tip revision: ce8a114
show.getregisterinfo.R 

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

x <- seq(0, 1, 0.1)
y <- seq(2, 4, 0.2)

RFparameters(Storing=TRUE, Print=1, CE.force=TRUE, TBMCE.force=TRUE)
grid <- TRUE
nug <- 0.5

for (method in GetMethodNames()) {
  cat("\n\n", method)
  if (interactive()) readline("-- press return")
  DeleteRegister()
  try(GaussRF(x, y, model="exp", param=c(0.1, 1.1, nug, 1.7 - 0.7),
              grid=grid, method=method))
  str(GetRegisterInfo(0, TRUE))
}


for (method in c("add.MPP")) {
  if (interactive()) readline(paste("\n\n", method, "-- press return"))
  GaussRF(x, y, model="circular", param=c(0.1, 1.1, nug, 1.7),
          grid=grid, method=method)
  str(GetRegisterInfo(0, TRUE))
  DeleteRegister()
}
back to top