Revision c751cbeafa6661ec449a5a53a8b3e659f558be70 authored by Martin Schlather on 27 May 2005, 00:00:00 UTC, committed by Gabor Csardi on 27 May 2005, 00:00:00 UTC
1 parent 7669be7
Raw File
x.R
# source("x.R")


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


RFparameters(Print=6)

x <- seq(0, 1, 1/24)
model <- list(
              list(model="stable", var=1, scale=1, kappa=2),
              "+",
              list(model="cauchy", var=1, scale=1, kappa=2)
              )
try(z <- GaussRF(x, x, grid=TRUE, gridtriple=FALSE,
        model=model, n=1, exactness=NA, stationary.only=NA))
back to top