# NOT RUN {
# Here is the code that sets up the single homogeneous term for the
# refinery data examnple:
conbasis <- create.constant.basis(c(0,193))
betafdPar <- fdPar(conbasis)
# Xterm Fields: funobj parvec estimate variable deriv. factor
XTerm <- make.Xterm(betafdPar, 0.04, TRUE, 1, 0, -1)
# Enter this list object in a list of length one.
XList <- vector("list", 1)
XList[[1]] <- XTerm
# Here is the code that sets up the single homogeneous term involving a
# non-functional data function for the average temperature for Montreal.
# Functions \code{fun.explinear} and \code{fun.Dexplinear} are in the
# package, and compute the positive value of the exponential transform
# of a functional data object and its derivative. The basis object
# Set up the list object for the positive coefficient for
# the homogeneous term.
# \code{Wbasisobj} is also supplied in the list object \code{linfun}.
nWbasis <- 7
Wbasisobj <- create.fourier.basis(c(0,365), nWbasis)
linfun <- list(fd=fun.explinear, Dfd=fun.Dexplinear, more=Wbasisobj)
estimate = rep(TRUE,7)
estimate[7] <- FALSE
parvec <- matrix(0,7,1)
Xterm <- make.Xterm(funobj=linfun, parvec=parvec, estimate=estimate,
variable=1, derivative=0, factor= -1)
XList <- vector("list", 1)
XList[[1]] <- Xterm
#
# For other examples of the use of this function,
# see these examples in the description of the function \code{make.Variable}.
#
# The single homogeneous term of the head impact data
#
# The single zero derivative terms in the two second order equations
# for the "fda" script model.
#
# The speed and control terms of the cruise control data
#
# }
Run the code above in your browser using DataLab