Running ‘testthat.R’ [6s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > if (requireNamespace("testthat", quietly = TRUE)){
  +   library(fdasrvf)
  + 
  +   testthat::test_check("fdasrvf")
  + } else{
  +   stop("Need testthat to run checks")
  + }
  Resampling as number of points on q function = 101 is not a multiple of times = 2.
  
   *** caught segfault ***
  address (nil), cause 'unknown'
  
  Traceback:
   1: f.basistofunction(f.domain = g.basis$x, coef = g.coef.prop$prop,     basis = g.basis)
   2: f.SSEg.pw(g = f.basistofunction(f.domain = g.basis$x, coef = g.coef.prop$prop,     basis = g.basis), q1 = q1, q2 = q2)
   3: f.updateg.pw(g.coef.curr = g.coef.curr, g.basis = g.basis, var1.curr = sigma1.curr^2,     q1 = q1, q2 = q2, SSE.curr = SSE.curr, propose.g.coef = propose.g.coef)
   4: pair_align_functions_expomap(myf1, myf2, timet = mytime, iter = 10000,     alpha0 = 0.1, beta0 = 0.1, zpcn = myzpcn, extrainfo = TRUE)
   5: eval(code, test_env)
   6: eval(code, test_env)
   7: withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  11: doTryCatch(return(expr), name, parentenv, handler)
  12: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  13: tryCatchList(expr, classes, parentenv, handlers)
  14: tryCatch(withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error), error = handle_fatal,     skip = function(e) {    })
  15: test_code(desc, code, env = parent.frame(), reporter = reporter)
  16: testthat::test_that("Verify pair_align_functions_expomap() works as intended",     {        set.seed(1)        data("simu_data")        myf1 <- simu_data$f[, 1]        myf2 <- simu_data$f[, 2]        mytime <- simu_data$time        myzpcn <- list(betas = c(0.5, 0.05, 0.005, 1e-04), probs = c(0.1,             0.1, 0.7, 0.1))        out <- pair_align_functions_expomap(myf1, myf2, timet = mytime,             iter = 10000, alpha0 = 0.1, beta0 = 0.1, zpcn = myzpcn,             extrainfo = TRUE)        testthat::expect_equal(mean(out$gamma$y), 0.50838069293)        testthat::expect_equal(mean(out$g.coef), 0.0009790850138)        testthat::expect_equal(mean(out$psi$y), 0.9994264515)        testthat::expect_equal(mean(out$sigma1), 0.1190701554)        testthat::expect_equal(mean(out$gamma_q025), 0.5047707865)        testthat::expect_equal(mean(out$gamma_q975), 0.5121903483)        testthat::expect_equal(mean(out$gamma_mat), 0.5083599893)        testthat::expect_equal(sd(out$xdist), 0.003265281265)        testthat::expect_equal(sd(out$ydist), 0.002882380796)        testthat::expect_equal(sum(simu_data$f[, 1] - out$f2_warped),             -10.31959727)        testthat::expect_equal(mean(out$accept), 0.1701170117)        testthat::expect_equal(prod(log(table(out$betas.ind))),             1832.14013976635)        outSmall <- pair_align_functions_expomap(myf1, myf2,             timet = mytime, iter = 10000, alpha0 = 0.1, beta0 = 0.1,             extrainfo = FALSE)        testthat::expect_false(is.null(outSmall$f2_warped))        testthat::expect_false(is.null(outSmall$gamma))        testthat::expect_false(is.null(outSmall$g.coef))        testthat::expect_false(is.null(outSmall$psi))        testthat::expect_false(is.null(outSmall$sigma1))        testthat::expect_true(is.null(outSmall$accept))        testthat::expect_true(is.null(outSmall$betas.ind))        testthat::expect_false(is.null(out$betas.ind))        testthat::expect_true(is.null(outSmall$logl))        testthat::expect_false(is.null(out$logl))        testthat::expect_true(is.null(outSmall$gamma_mat))        testthat::expect_true(is.null(outSmall$gamma_q025))        testthat::expect_true(is.null(outSmall$gamma_q975))        testthat::expect_true(is.null(outSmall$sigma_eff_size))        testthat::expect_false(is.null(out$sigma_eff_size))        testthat::expect_true(is.null(outSmall$psi_eff_size))        testthat::expect_false(is.null(out$psi_eff_size))        testthat::expect_true(is.null(outSmall$xdist))        testthat::expect_false(is.null(out$xdist))        testthat::expect_true(is.null(outSmall$ydist))        testthat::expect_false(is.null(out$ydist))    })
  17: eval(code, test_env)
  18: eval(code, test_env)
  19: withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error)
  20: doTryCatch(return(expr), name, parentenv, handler)
  21: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  22: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  23: doTryCatch(return(expr), name, parentenv, handler)
  24: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  25: tryCatchList(expr, classes, parentenv, handlers)
  26: tryCatch(withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error), error = handle_fatal,     skip = function(e) {    })
  27: test_code(NULL, exprs, env)
  28: source_file(path, child_env(env), wrap = wrap)
  29: FUN(X[[i]], ...)
  30: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  31: doTryCatch(return(expr), name, parentenv, handler)
  32: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  33: tryCatchList(expr, classes, parentenv, handlers)
  34: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  35: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  36: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     wrap = wrap, load_package = load_package)
  37: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     wrap = wrap, load_package = load_package, parallel = parallel)
  38: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  39: testthat::test_check("fdasrvf")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault