R : Copyright 2005, The R Foundation for Statistical Computing
Version 2.1.1  (2005-06-20), ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for a HTML browser interface to help.
Type 'q()' to quit R.

> ### * <HEADER>
> ###
> attach(NULL, name = "CheckExEnv")
> assign(".CheckExEnv", as.environment(2), pos = length(search())) # base
> ## add some hooks to label plot pages for base and grid graphics
> setHook("plot.new", ".newplot.hook")
> setHook("persp", ".newplot.hook")
> setHook("grid.newpage", ".gridplot.hook")
> 
> assign("cleanEx",
+        function(env = .GlobalEnv) {
+ 	   rm(list = ls(envir = env, all.names = TRUE), envir = env)
+            RNGkind("default", "default")
+ 	   set.seed(1)
+    	   options(warn = 1)
+ 	   delayedAssign("T", stop("T used instead of TRUE"),
+ 		  assign.env = .CheckExEnv)
+ 	   delayedAssign("F", stop("F used instead of FALSE"),
+ 		  assign.env = .CheckExEnv)
+ 	   sch <- search()
+ 	   newitems <- sch[! sch %in% .oldSearch]
+ 	   for(item in rev(newitems))
+                eval(substitute(detach(item), list(item=item)))
+ 	   missitems <- .oldSearch[! .oldSearch %in% sch]
+ 	   if(length(missitems))
+ 	       warning("items ", paste(missitems, collapse=", "),
+ 		       " have been removed from the search path")
+        },
+        env = .CheckExEnv)
> assign("..nameEx", "__{must remake R-ex/*.R}__", env = .CheckExEnv) # for now
> assign("ptime", proc.time(), env = .CheckExEnv)
> grDevices::postscript("fda-Examples.ps")
> assign("par.postscript", graphics::par(no.readonly = TRUE), env = .CheckExEnv)
> options(contrasts = c(unordered = "contr.treatment", ordered = "contr.poly"))
> options(warn = 1)    
> library('fda')
> 
> assign(".oldSearch", search(), env = .CheckExEnv)
> assign(".oldNS", loadedNamespaces(), env = .CheckExEnv)
> cleanEx(); ..nameEx <- "bsplineS"
> 
> ### * bsplineS
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: bsplineS
> ### Title: B-spline Basis Function Values
> ### Aliases: bsplineS
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "bsplinepen"
> 
> ### * bsplinepen
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: bsplinepen
> ### Title: B-Spline Penalty Matrix
> ### Aliases: bsplinepen
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "cca.2fun.fd"
> 
> ### * cca.2fun.fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: cca.2fun.fd
> ### Title: Canonical Correlation for Two Functional Data Objects
> ### Aliases: cca.2fun.fd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "cca.fd"
> 
> ### * cca.fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: cca.fd
> ### Title: Canonical correlation analysis
> ### Aliases: cca.fd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "center.fd"
> 
> ### * center.fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: center.fd
> ### Title: Center Functional Data
> ### Aliases: center.fd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "create.basis"
> 
> ### * create.basis
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: create.basis
> ### Title: Create a Basis Object
> ### Aliases: create.basis
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "create.bifd"
> 
> ### * create.bifd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: create.bifd
> ### Title: Create a Two-Argument Functional Data Object
> ### Aliases: create.bifd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "create.bspline.basis"
> 
> ### * create.bspline.basis
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: create.bspline.basis
> ### Title: Create a set of B-spline basis functions for constructing a
> ###   functional data object.
> ### Aliases: create.bspline.basis
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "create.constant.basis"
> 
> ### * create.constant.basis
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: create.constant.basis
> ### Title: Create a Constant Basis
> ### Aliases: create.constant.basis
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "create.exponential.basis"
> 
> ### * create.exponential.basis
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: create.exponential.basis
> ### Title: Create an Exponential Basis
> ### Aliases: create.exponential.basis
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "create.fd"
> 
> ### * create.fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: create.fd
> ### Title: Create a Functional Data Object
> ### Aliases: create.fd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "create.fourier.basis"
> 
> ### * create.fourier.basis
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: create.fourier.basis
> ### Title: Create a set of Fourier basis functions for constructing a
> ###   functional data object.
> ### Aliases: create.fourier.basis
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "create.polygonal.basis"
> 
> ### * create.polygonal.basis
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: create.polygonal.basis
> ### Title: Create a Polygonal Basis
> ### Aliases: create.polygonal.basis
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "create.power.basis"
> 
> ### * create.power.basis
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: create.power.basis
> ### Title: Create a Power Basis Object
> ### Aliases: create.power.basis
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "data2fd"
> 
> ### * data2fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: data2fd
> ### Title: Convert Discrete Data to Functional Data
> ### Aliases: data2fd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "densityfd"
> 
> ### * densityfd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: densityfd
> ### Title: Compute a Probability Density Function
> ### Aliases: densityfd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "derivFd"
> 
> ### * derivFd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: derivFd
> ### Title: Compute a Derivative Functional Data Object
> ### Aliases: derivFd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "df2lambda"
> 
> ### * df2lambda
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: df2lambda
> ### Title: Convert Degrees of Freedom to Smoothing Parameter
> ### Aliases: df2lambda
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "eval.bifd"
> 
> ### * eval.bifd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: eval.bifd
> ### Title: Evaluate a Two-argument Functional Data Object
> ### Aliases: eval.bifd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "eval.fd"
> 
> ### * eval.fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: eval.fd
> ### Title: Evaluate a Functional Data Object
> ### Aliases: eval.fd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "eval.monfd"
> 
> ### * eval.monfd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: eval.monfd
> ### Title: Evaluate a Monotone Functional Data Object
> ### Aliases: eval.monfd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "expon"
> 
> ### * expon
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: expon
> ### Title: Exponential Basis Function Values
> ### Aliases: expon
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "exponpen"
> 
> ### * exponpen
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: exponpen
> ### Title: Exponential Penalty Matrix
> ### Aliases: exponpen
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "fda.internal"
> 
> ### * fda.internal
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: fda.internal
> ### Title: Internal Functions and Objects
> ### Aliases: c.fd create.basis.fd create.default.basis
> ###   create.polynomial.basis cycleplot.fd derivchk derivs expect.phi
> ###   expect.phiphit ^.fd -.fd /.fd [.fd *.fd +.fd fd2data
> ###   fngrad.smooth.monotone geigen getnames hesscal.smooth.monotone
> ###   inprod.n interpreg is.diag is.fd is.Lfd isotone linesearch
> ###   linesearch.smooth.monotone linesSmoothPspline loglfnden loglfnpos
> ###   m2ij make.basis monfn monfneval mongrad mongrad1 monhess
> ###   normalize.phi odesolv pda.fd pdalist pendiagfn plotscores
> ###   plotSmoothPspline polintarray polintmat polynom polynompen
> ###   predictSmoothPspline print.smooth.Pspline ptwiseLM putcoef rangechk
> ###   regfngrad reghess register regyfn rkck rkqs shifty smooth.basis.n
> ###   smooth.pos sqrt.fd SRsetup SRsetup1 stepchk stepit symsolve trapzmat
> ###   trapz.n use.proper.basis Varfnden Varfnpos varmx warpfngrad
> ###   warphesscal zerofind
> ### Keywords: internal
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "fourier"
> 
> ### * fourier
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: fourier
> ### Title: Fourier Basis Function Values
> ### Aliases: fourier
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "fourierpen"
> 
> ### * fourierpen
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: fourierpen
> ### Title: Fourier Penalty Matrix
> ### Aliases: fourierpen
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "getbasis"
> 
> ### * getbasis
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: getbasis
> ### Title: Get the Basis Object from a Functional Data Object
> ### Aliases: getbasis
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "getbasismatrix"
> 
> ### * getbasismatrix
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: getbasismatrix
> ### Title: Get Values of Basis Functions
> ### Aliases: getbasismatrix
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "getbasispenalty"
> 
> ### * getbasispenalty
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: getbasispenalty
> ### Title: Evaluate a Roughness Penalty Matrix
> ### Aliases: getbasispenalty
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "getbasistype"
> 
> ### * getbasistype
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: getbasistype
> ### Title: Get the Basis Type from a Basis Object
> ### Aliases: getbasistype
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "getcoef"
> 
> ### * getcoef
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: getcoef
> ### Title: Get the Coefficient Array from a Functional Data Object
> ### Aliases: getcoef
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "inprod"
> 
> ### * inprod
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: inprod
> ### Title: Inner product of two functional data objects or two basis
> ###   objects
> ### Aliases: inprod
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "lambda2df"
> 
> ### * lambda2df
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: lambda2df
> ### Title: Convert Smoothing Parameter to Degrees of Freedom
> ### Aliases: lambda2df
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "landmarkreg"
> 
> ### * landmarkreg
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: landmarkreg
> ### Title: Registration of Functional Observations Using Landmarks
> ### Aliases: landmarkreg
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "linesFd"
> 
> ### * linesFd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: linesFd
> ### Title: Add Lines from Functional Data to a Plot
> ### Aliases: linesFd
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "linmod.fd"
> 
> ### * linmod.fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: linmod.fd
> ### Title: Fit One of Three Types of Functional Linear Model.
> ### Aliases: linmod.fd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "meanFd"
> 
> ### * meanFd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: meanFd
> ### Title: Mean of Functional Data
> ### Aliases: meanFd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "pca.fd"
> 
> ### * pca.fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: pca.fd
> ### Title: Functional Principal Components Analysis
> ### Aliases: pca.fd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "plotCcaFd"
> 
> ### * plotCcaFd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: plotCcaFd
> ### Title: Plot Output from Canonical Correlation Function CCA.FD
> ### Aliases: plotCcaFd
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "plotFd"
> 
> ### * plotFd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: plotFd
> ### Title: Plot a Functional Data Object
> ### Aliases: plotFd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "plotPcaFd"
> 
> ### * plotPcaFd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: plotPcaFd
> ### Title: Plot Output from Principal Components Analysis Function PCA.FD
> ### Aliases: plotPcaFd
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "plotfit.fd"
> 
> ### * plotfit.fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: plotfit.fd
> ### Title: Plot a Functional Data Object Along with Data
> ### Aliases: plotfit.fd
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "polyg"
> 
> ### * polyg
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: polyg
> ### Title: Polygonal Basis Function Values
> ### Aliases: polyg
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "polygpen"
> 
> ### * polygpen
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: polygpen
> ### Title: Polygonal Penalty Matrix
> ### Aliases: polygpen
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "posfd"
> 
> ### * posfd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: posfd
> ### Title: Smooth Data with a Positive Function using a Roughness Penalty
> ### Aliases: posfd
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "powerbasis"
> 
> ### * powerbasis
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: powerbasis
> ### Title: Power Basis Function Values
> ### Aliases: powerbasis
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "powerpen"
> 
> ### * powerpen
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: powerpen
> ### Title: Power Penalty Matrix
> ### Aliases: powerpen
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "printFd"
> 
> ### * printFd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: printFd
> ### Title: Print a Functional Data Object
> ### Aliases: printFd
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "project.basis"
> 
> ### * project.basis
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: project.basis
> ### Title: Approximate Functional Data Using a Basis
> ### Aliases: project.basis
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "registerfd"
> 
> ### * registerfd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: registerfd
> ### Title: Register Functional Data Objects
> ### Aliases: registerfd
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "smooth.Pspline"
> 
> ### * smooth.Pspline
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: smooth.Pspline
> ### Title: Smooth Data with Using mth Derivative Penalty
> ### Aliases: smooth.Pspline
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "smooth.basis"
> 
> ### * smooth.basis
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: smooth.basis
> ### Title: Smooth Data using a Roughness Penalty
> ### Aliases: smooth.basis
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "smooth.fd"
> 
> ### * smooth.fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: smooth.fd
> ### Title: Smooth a Functional Data Object Using a Roughness Penalty
> ### Aliases: smooth.fd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "smooth.monotone"
> 
> ### * smooth.monotone
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: smooth.monotone
> ### Title: Monotone Smoothing of Data
> ### Aliases: smooth.monotone
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "std.fd"
> 
> ### * std.fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: std.fd
> ### Title: Standard Deviation of Functional Data
> ### Aliases: std.fd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "sumFd"
> 
> ### * sumFd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: sumFd
> ### Title: Sum of Functional Data
> ### Aliases: sumFd
> 
> 
> ### ** Examples
> 
> 
> 
> cleanEx(); ..nameEx <- "summaryFd"
> 
> ### * summaryFd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: summaryFd
> ### Title: Summarize a Functional Data Object
> ### Aliases: summaryFd
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "var.fd"
> 
> ### * var.fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: var.fd
> ### Title: Variance and Covariance Surfaces for a Functional Data Object
> ### Aliases: var.fd
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "varmx.pca.fd"
> 
> ### * varmx.pca.fd
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: varmx.pca.fd
> ### Title: Rotation of Functional Principal Components with VARIMAX
> ###   Criterion
> ### Aliases: varmx.pca.fd
> 
> 
> ### ** Examples
> 
> 
> 
> 
> cleanEx(); ..nameEx <- "warpsmth"
> 
> ### * warpsmth
> 
> flush(stderr()); flush(stdout())
> 
> ### Name: warpsmth
> ### Title: A Smooth Monotone Warping Function
> ### Aliases: warpsmth
> 
> 
> ### ** Examples
> 
> 
> 
> 
> ### * <FOOTER>
> ###
> cat("Time elapsed: ", proc.time() - get("ptime", env = .CheckExEnv),"\n")
Time elapsed:  0.1 0.01 0.1 0 0 
> grDevices::dev.off()
null device 
          1 
> ###
> ### Local variables: ***
> ### mode: outline-minor ***
> ### outline-regexp: "\\(> \\)?### [*]+" ***
> ### End: ***
> quit('no')