https://github.com/cran/RandomFields
Revision f19c5f1146d16fe5a87883e4d7cc55abcc445d0f authored by Martin Schlather on 05 September 2005, 00:00:00 UTC, committed by Gabor Csardi on 05 September 2005, 00:00:00 UTC
1 parent c72cbea
Tip revision: f19c5f1146d16fe5a87883e4d7cc55abcc445d0f authored by Martin Schlather on 05 September 2005, 00:00:00 UTC
version 1.3.3
version 1.3.3
Tip revision: f19c5f1
x.R
# source("x.R")
if (FALSE) {
library(RandomFields, lib="~/TMP")
source("~/R/RF/RandomFields/tests/source.R")
library(SoPhy, lib="~/TMP")
dev <- TRUE
excep.dev <- 2
final <- TRUE
final <- FALSE
path <- "sh.dir/"
if (!file.exists(path)) dir.create(path)
ps <- paste(path, "eps", sep="")
txt <- paste(path, "txt", sep="")
simu <- paste(path, "simu", sep="")
name.jch <- paste(path, "jconthydr.data.tex", sep="")
if (file.exists(name.jch)) load(name.jch) else {
runif(1)
seed.jch.simu5 <- seed.jch.start <- seed.jch.sketches <- seed.jch.simu1 <-
seed.jch.simu3 <- seed.jch.simu2 <- seed.jch.simu4 <- .Random.seed
}
Pr <- 2 + (!is.logical(dev))
## runif(1); seed.jch.sketches <- .Random.seed;
cat("\nrunJCH.R sketches\n")
.Random.seed <- seed.jch.sketches
sh.jch(input=c(1, 2, 5, 0), dev=dev, Pr=Pr, final=final, ps=ps, txt=txt,
simu=simu)
q()
}
Computing file changes ...