Evaluate a Roughness Penalty Matrix
Evaluate a Roughness Penalty Matrix
DESCRIPTION:
Computes the matrix defining the roughness penalty for functions
expressed in terms of a basis.
USAGE:
getbasispenalty(basisfd, Lfd=NULL)
REQUIRED ARGUMENTS:
- basisfd
-
A basis object.
OPTIONAL ARGUMENTS:
- Lfd
-
Either a nonnegative integer or a linear differential operator object.
VALUE:
A symmetric matrix of order equal to the number of basis functions
defined by the B-spline basis object. Each element is the inner product
of two B-spline basis functions after applying the derivative or linear
differential operator defined by Lfd.
DETAILS:
A roughness penalty for a function x(t) is defined by
integrating the square of either the derivative of x(t) or,
more generally, the result of applying a linear differential operator
L to it. The most common roughness penalty is the integral of
the square of the second derivative D2x(t), and
this is the default. To apply this roughness penalty, the matrix of
inner products of the basis functions defining this function is
necessary. This function just calls the roughness penalty evaluation
function specific to the basis involved.
SEE ALSO:
bsplinepen, exponpen, fourierpen, polygpen, powerpen
EXAMPLES:
# set up a B-spline basis of order 4 with 13 basis functions
# and knots at 0.0, 0.1,..., 0.9, 1.0.
basis <- create.bspline.basis(c(0,1),13)
# compute the 13 by 13 matrix of inner products of second derivatives
penmat <- getbasispenalty(basis)
# set up a Fourier basis with 13 basis functions
# and and period 1.0.
basis <- create.fourier.basis(c(0,1),13)
# compute the 13 by 13 matrix of inner products of second derivatives
penmat <- getbasispenalty(basis)