change default

jdtuck · Aug 23, 2024 · db736de · db736de
1 parent 5bbc0af
commit db736de
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/jointfPCA.R b/R/jointfPCA.R
@@ -255,7 +255,7 @@ jointFPCAh <- function(warp_data,
 
 
   # Calculate Vector Space of warping
-  h <- gam_to_h(gam)
+  h <- gam_to_h(gam, smooth=FALSE)
 
   # Joint fPCA --------------------------------------------------------------
   jointfPCAhd <- function(qn, h, C = 1, var_exp = NULL) {