Skip to main content

Browse the archive

https://github.com/cran/RandomFields
26 January 2022, 09:24:35 UTC
Revision cb8a32f1ddcfbcce003da5312030ddb4d1d04dc7 authored by Martin Schlather on 10 July 2012, 00:00:00 UTC, committed by Gabor Csardi on 10 July 2012, 00:00:00 UTC 
version 2.0.57
1 parent b864f05
Raw File
Tip revision: cb8a32f1ddcfbcce003da5312030ddb4d1d04dc7 authored by Martin Schlather on 10 July 2012, 00:00:00 UTC
version 2.0.57
Tip revision: cb8a32f
multiplicative.R 
if (EXTENDED.TESTING <- file.exists("source.R")) source("source.R")

DeleteAllRegisters()
RFparameters(Print=5)
y <- x <- seq(0,10, 0.05)
model <- list("*",
              list("$", var=1, aniso=matrix(nr=2, c(1,0)),
                   list("fractgauss", k=1)),
              list("$",var=1, aniso=matrix(nc=2, c(0,0,0,1)),
                   list("whittle", nu=0.6))
                   )


z <- GaussRF(x, y, model=model, grid=TRUE)
str(GetRegisterInfo(0))
print(range(z))
image(x, y, z)


PrintModelList();
back to top