files revised to match fda_5.1.6.tar.gz

Author: JamesRamsay5

R/fRegress.R

@@ -66,7 +66,7 @@ fRegress <- function(y, xfdlist, betalist, wt=NULL,
   #  as predict(fRegressList).  In this call fRegressList can be any object of the
   #  "fRegress".
 
-#  Last modified 3 July 2020 by Jim Ramsay
+#  Last modified 7 August 2020 by Jim Ramsay
 
 arglist <- fRegressArgCheck(y, xfdlist, betalist, wt)
 

R/fRegress.fdPar.R

@@ -1,11 +1,12 @@
-
 fRegress.fd <- function(y, xfdlist, betalist, wt=NULL,
                         y2cMap=NULL, SigmaE=NULL, returnMatrix=FALSE, ...){
   yfdPar <- fdPar(y, ...)
   fRegress.fdPar(yfdPar, xfdlist, betalist, wt=wt,
                  y2cMap=y2cMap, SigmaE=SigmaE, returnMatrix=FALSE, ...)
 }
 
+#  ------------------------------------------------------------------------
+
 fRegress.fdPar <- function(y, xfdlist, betalist, wt=NULL,
                            y2cMap=NULL, SigmaE=NULL, returnMatrix=FALSE, ...)
 {
@@ -60,7 +61,7 @@ fRegress.fdPar <- function(y, xfdlist, betalist, wt=NULL,
 #    wt          ... weights for observations
 #    df          ... degrees of freedom for fit
 
-# Last modified 8 May 2012 by Jim Ramsay
+# Last modified 7 August 2020 by Jim Ramsay
 
 ##
 ## 1.  check YFDPAR and compute sample size N