remove redefinition of fdobj in landmarkreg.R

Giles Hooker · Giles Hooker · commit 92768b59ada1 · 2022-04-08T15:27:14.000-07:00
diff --git a/R/landmarkreg.R b/R/landmarkreg.R
@@ -48,7 +48,7 @@ landmarkreg <- function(fdobj, ximarks, x0marks=xmeanmarks,
   type     <- basisobj$type
   nbasis   <- basisobj$nbasis
   rangeval <- basisobj$rangeval
-  fdobj    <- fd(matrix(0,nbasis,ncurve),basisobj)
+#  fdobj    <- fd(matrix(0,nbasis,ncurve),basisobj)
   fdParobj <- fdPar(basisobj, 2, ylambda)
 
   #  check landmarks
