create.exponential.basis(rangeval=c(0,1), nbasis=NULL, ratevec=NULL,
dropind=NULL, quadvals=NULL, values=NULL,
basisvalues=NULL, names='exp', axes=NULL)if(is.null(ratevec))
2 else length(ratevec).nbasis of rate constants defining basis
functions of the form exp(rate*x). Default = 0:(nbasis-1).quadvals contains the
quadrature points, and the second column the quadquadvals and
one column for each basis function. The elements of the list
correspond to the basis functions and their derivatives evaluated at
the quadrature points contained in the For exponential bases, this defaults to paste('exp',
0:(nbasis-1), sep='').
plot functions to create
custom axes. If this axes argument is not
NULL, functions plot.basisfd, plot.fd,
plot.fdSmoothexpon.basisfd,
create.bspline.basis,
create.constant.basis,
create.fourier.basis,
create.monomial.basis,
create.polygonal.basis,
create.polynomial.basis,
create.power.basis# Create an exponential basis over interval [0,5]
# with basis functions 1, exp(-t) and exp(-5t)
basisobj <- create.exponential.basis(c(0,5),3,c(0,-1,-5))
# plot the basis
plot(basisobj)Run the code above in your browser using DataLab