swh:1:snp:8c443ee102a7f3a9fe0e834b4caec2f704d4d442
Tip revision: 919f138ae97c73da2321579cf0a01351bf9ebff3 authored by Martin Schlather on 11 October 2016, 18:32:27 UTC
version 3.1.24.1
version 3.1.24.1
Tip revision: 919f138
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
)