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
source.R 

# .x <- dir(); for (.i in .x) source(.i)

library(RandomFields,
        lib=if (TRUE && file.exists("~/TMP/RandomFields") &&
          file.exists("/home/schlather/TMP/RandomFields")) "~/TMP")

.path <- "~/R/RF/RandomFields/R/"
.path2 <- "/home/schlather/R/RF/RandomFields/R/"
if (EXTENDED.TESTING <- file.exists(paste(.path, "rf.R", sep="")) &&
    file.exists(paste(.path2, "rf.R", sep=""))) {
  EXTENDED.TESTING <- FALSE
  Source <- function(x) {
    cat(x, "...\n")
    x <- paste(.path, x, sep="")
    source(x)
  }
  Source("D.H.R")
  Source("MLE.R")
  Source("ShowModels.R")
  Source("auxiliary.R")
  Source("convert.R")
  Source("empvario.R")
  Source("evalpar.R")
  Source("extremes.R")
  Source("getNset.R")
  Source("modelling.R")
  Source("rf.R")
} 

# .f <- dir(); for (.i in .f) {cat("\n\n\n\n\n\n\n", .i);source(.i)}
back to top