version 9.0

DESCRIPTION

@@ -0,0 +1,16 @@
+Package: funpca
+Type: Package
+Title: Functional Principal Component Analysis
+Version: 9.0
+Date: 2023-06-08
+Authors@R: c(person("Francisco Rosales", email = "francisco.rosales-marticorena@protonmail.com", role 	= c("aut", "cph","cre")), person("Tatyana Krivobokova", email = 	"tatyana.krivobokova@univie.ac.at", role = c("con", "ths")))
+Depends: Brobdingnag, MASS, nlme, fda
+Description: Functional principal component analysis under the Linear Mixed Models representation of smoothing splines. The method utilizes the Demmler-Reinsch basis and assumes error independence. For more details see: F. Rosales (2016) <https://ediss.uni-goettingen.de/handle/11858/00-1735-0000-0028-87F9-6>.
+License: GPL-2
+NeedsCompilation: no
+Packaged: 2023-06-14 22:49:53 UTC; arakata
+Author: Francisco Rosales [aut, cph, cre],
+  Tatyana Krivobokova [con, ths]
+Maintainer: Francisco Rosales <francisco.rosales-marticorena@protonmail.com>
+Repository: CRAN
+Date/Publication: 2023-06-15 17:20:05 UTC

MD5

@@ -0,0 +1,18 @@
+804ef94dceb0774e9c4a547d8cbe10b2 *DESCRIPTION
+6217c2d559e9833f1a26cf38ee3dfcfb *NAMESPACE
+4ca05378c5ef4dc123b9aa311e10379a *R/Sqrt.R
+ed3880a34100802683b8b82199a66955 *R/dbind.R
+b6e39ed4cde25a71b59e668fe0bb6e0b *R/drbasis.R
+ef6dfb4b623369196863839c555c57b3 *R/funpca.R
+8617d9fc92c34df512e76cf09e723ca5 *R/funpca.default.R
+c1c7812cae10ea2b90b7fee54a646d76 *R/funpcaEst.R
+c2efa584152dd58bb61e50a56fb42cea *R/globals.R
+b518520d1b047f24af491555ea0a4175 *R/plot.funpca.R
+55ce77294060a430168d48b8e20e4f88 *R/print.funpca.R
+301677204ec01b18883d3e75bcd8c099 *R/spectralnorm.R
+e77c1719a3351157e718cf2c83a93626 *R/summary.funpca.R
+1b1337a6b4581b671b7197e07b858597 *man/funpca-internal.Rd
+83cdddbbc864e101c9bcdf36d5eb4194 *man/funpca-package.Rd
+2b28a879ea84d2686dffee1448b26244 *man/funpca.Rd
+91f0ecce888ca0291416a03978072b3a *man/plot.funpca.Rd
+109152bf0fccfbb002976a4156a22a20 *man/summary.funpca.Rd

NAMESPACE

@@ -0,0 +1,22 @@
+importFrom("grDevices", "x11")
+importFrom("graphics", "abline", "lines", "par", "legend", "axis", "box", "polygon")
+importFrom("stats", "acf", "coef", "quantile", "sd", "uniroot", "na.pass", "pacf")
+
+export(funpcaEst)
+export(funpca)
+export(plot.funpca)
+export(print.funpca)
+export(summary.funpca)
+
+S3method(plot, funpca)
+S3method(print, funpca)
+S3method(summary, funpca)
+S3method(funpca,default)
+
+# Import all packages listed as Imports or Depends
+import(
+    Brobdingnag,
+    MASS,
+    nlme,
+    fda
+)

R/Sqrt.R

@@ -0,0 +1,2 @@
+Sqrt <-
+function(x) sqrt(x)

R/dbind.R

@@ -0,0 +1,16 @@
+dbind <-
+function(M1,M2){
+    if(is.null(M1)){p<-M2}else{
+        if(is.null(M2)){p<-M1}else{
+            r1<-dim(M1)[1];	
+            r2<-dim(M2)[1];
+            c1<-dim(M1)[2];	
+            c2<-dim(M2)[2];	
+            r<-r1+r2;
+            c<-c1+c2;
+            p<-matrix(rep(0,r*c),ncol=c);
+            p[(1:r1),(1:c1)]<-M1;
+            p[((r1+1):r),((c1+1):c)]<-M2
+        }}
+    return(p)		
+}