bug fix fRegress.double

Giles Hooker · Giles Hooker · commit 14b37f2bbf44 · 2022-11-03T16:20:59.000-07:00
diff --git a/R/fRegress.double.R b/R/fRegress.double.R
@@ -105,6 +105,7 @@ fRegress.double <- function(y, xfdlist, betalist, wt=NULL,
         zeromat <- matrix(0,ncoef,bnbasis)
         Rmat    <- rbind(cbind(Rmat,       zeromat),
                          cbind(t(zeromat), Rmatj))
+		ncoef <- ncoef + bnbasis
       } else {
         Rmat  <- Rmatj
         ncoef <- ncoef + bnbasis
