https://github.com/cran/RandomFields
Revision bd298816a60ec4ca975f1289dc6ad3475d6247bf authored by Martin Schlather on 09 January 2016, 13:56:44 UTC, committed by cran-robot on 09 January 2016, 13:56:44 UTC
1 parent f97a3a6
Tip revision: bd298816a60ec4ca975f1289dc6ad3475d6247bf authored by Martin Schlather on 09 January 2016, 13:56:44 UTC
version 3.1.8
version 3.1.8
Tip revision: bd29881
helmholz.R
xRMderivative <- function(phi, partial, var, scale, Aniso, proj) {
cl <- match.call()
submodels <- par.general <- par.model <- list()
if (hasArg(phi)) submodels[['phi']] <- phi
if (hasArg('partial') && !is.null(subst <- substitute(partial)))
par.model[['partial']] <- CheckArg(partial, subst, TRUE)
if (hasArg('var') && !is.null(subst <- substitute(var)))
par.general[['var']] <- CheckArg(var, subst, TRUE)
if (hasArg('scale') && !is.null(subst <- substitute(scale)))
par.general[['scale']] <- CheckArg(scale, subst, TRUE)
if (hasArg('Aniso') && !is.null(subst <- substitute(Aniso)))
par.general[['Aniso']] <- CheckArg(Aniso, subst, TRUE)
if (hasArg('proj') && !is.null(subst <- substitute(proj)))
par.general[['proj']] <- CheckProj(proj, subst)
model <- new('RMmodel', call = cl, name = 'RMderivative',
submodels = submodels,
par.model = par.model, par.general = par.general)
return(model)
}
xRMderivative <- new('RMmodelgenerator',
.Data = xRMderivative,
type = c('positive definite'),
isotropy = c('zero-space-isotropic'),
domain = 'single variable',
operator = TRUE,
monotone = 'not monotone',
finiterange = NA,
simpleArguments = TRUE,
maxdim = -3,
vdim = -3
)
xRMhelmholtz <- function(phi, component, var, scale, Aniso, proj) {
cl <- match.call()
submodels <- par.general <- par.model <- list()
if (hasArg(phi)) submodels[['phi']] <- phi
if (hasArg('component') && !is.null(subst <- substitute(component)))
par.model[['component']] <- CheckArg(component, subst, TRUE)
if (hasArg('Aniso') && !is.null(subst <- substitute(Aniso)))
par.model[['Aniso']] <- CheckArg(Aniso, subst, TRUE)
if (hasArg('var') && !is.null(subst <- substitute(var)))
par.general[['var']] <- CheckArg(var, subst, TRUE)
if (hasArg('scale') && !is.null(subst <- substitute(scale)))
par.general[['scale']] <- CheckArg(scale, subst, TRUE)
if (hasArg('proj') && !is.null(subst <- substitute(proj)))
par.general[['proj']] <- CheckProj(proj, subst)
model <- new('RMmodel', call = cl, name = 'RMhelmholtz',
submodels = submodels,
par.model = par.model, par.general = par.general)
return(model)
}
xRMhelmholtz <- new('RMmodelgenerator',
.Data = xRMhelmholtz,
type = c('positive definite'),
isotropy = c('symmetric'),
domain = 'single variable',
operator = TRUE,
monotone = 'not monotone',
finiterange = NA,
simpleArguments = TRUE,
maxdim = -3,
vdim = -1
)
Computing file changes ...