comment out duplicate definition of fRegress

Author: sbgraves237

R/fRegress.R

@@ -4,9 +4,10 @@ fRegress <- function(y, ...) {
 
 #  ---------------------------------------------------------------
 
-fRegress <- function(y, xfdlist, betalist, wt=NULL,
-                     y2cMap=NULL, SigmaE=NULL, returnMatrix=FALSE)
-{
+#fRegress
+fRegressCommentFn <- 
+  function(y, xfdlist, betalist, wt=NULL,
+           y2cMap=NULL, SigmaE=NULL, returnMatrix=FALSE){
 
 #  FREGRESS  Fits a functional linear model using multiple
 #  functional independent variables with the dependency being
@@ -549,6 +550,7 @@ if (inherits(yfdPar, "fdPar") || inherits(yfdPar, "fd")) {
 
 }
 
+
 #  ------------------------------------------------------------------------
 
 eigchk <- function(Cmat) {