fix use of var instead of nvar

Author: JamesRamsay5

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: fda
-Version: 6.1.7
-Date: 2024-03-01
+Version: 6.1.8
+Date: 2024-03-05
 Title: Functional Data Analysis
 Authors@R: c(person("James", "Ramsay", role=c("aut","cre"),
              email="ramsay@psych.mcgill.ca"), 

R/smooth.basis1.R

@@ -310,7 +310,7 @@ smooth.basis1 <- function (argvals=1:n, y, fdParobj,
         if (ndim==2) {
           coef <- solve(basismat, y)
         } else {
-          for (ivar in 1:var)
+          for (ivar in 1:nvar)
             coef[1:n, , ivar] <- solve(basismat, y[,,ivar])
         }
         penmat  <- NULL
@@ -460,7 +460,7 @@ smooth.basis1 <- function (argvals=1:n, y, fdParobj,
         if (ndim==2){
           coef <- solve(basismat, y)
         } else {
-          for (ivar in 1:var)
+          for (ivar in 1:nvar)
             coef[,,ivar] <- solve(basismat, y[,,ivar])
         }
         penmat <- NULL