change default

jdtuck · Aug 23, 2024 · 09351a0 · 09351a0
1 parent b0088b5
commit 09351a0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/geometry.R b/R/geometry.R
@@ -188,7 +188,7 @@ findkarcherinv <- function(warps, times, round = F){
 #'
 #' @keywords srvf alignment
 #' @export
-gam_to_v<-function(gam, smooth=TRUE){
+gam_to_v<-function(gam, smooth=FALSE){
   if (ndims(gam) == 0){
     TT = length(gam)
     eps = .Machine$double.eps
@@ -288,7 +288,7 @@ v_to_gam<-function(v){
 #'
 #' @keywords srvf alignment
 #' @export
-gam_to_h<-function(gam, smooth=TRUE){
+gam_to_h<-function(gam, smooth=FALSE){
   if (ndims(gam) == 0){
     TT = length(gam)
     time <- seq(0,1,length.out=TT)