reverting pda.fd

Giles Hooker · Giles Hooker · commit 7e4009b285e4 · 2024-11-26T14:44:39.000-05:00
diff --git a/R/pda.fd.R b/R/pda.fd.R
@@ -358,15 +358,11 @@ pda.fd  <-  function(xfdlist, bwtlist=NULL, awtlist=NULL, ufdlist=NULL,
       }
     }
     
-	print(dim(barray))
-	print(length(tx))
-	print(difeorder)
+
     for (j1 in 1:difeorder) {
-	print(j1)
       if (!is.null(bwtlist[[j1]])) {
         bfdParj     <- bwtlist[[j1]]
         bvecj       <- eval.fd(tx, bfdParj$fd)
-		print(dim(bvecj))
         barray[,j1] <- bvecj
       }
     }

Original file line number	Diff line number	Diff line change
`@@ -358,15 +358,11 @@ pda.fd <- function(xfdlist, bwtlist=NULL, awtlist=NULL, ufdlist=NULL,`
`358`	`358`	`}`
`359`	`359`	`}`
`360`	`360`
`361`		`- print(dim(barray))`
`362`		`- print(length(tx))`
`363`		`- print(difeorder)`
	`361`	`+`
`364`	`362`	`for (j1 in 1:difeorder) {`
`365`		`- print(j1)`
`366`	`363`	`if (!is.null(bwtlist[[j1]])) {`
`367`	`364`	`bfdParj <- bwtlist[[j1]]`
`368`	`365`	`bvecj <- eval.fd(tx, bfdParj$fd)`
`369`		`- print(dim(bvecj))`
`370`	`366`	`barray[,j1] <- bvecj`
`371`	`367`	`}`
`372`	`368`	`}`