# \donttest{
sim <- simulate_fmi_data(N_A = 20, N_B = 20, T_points = 30)
npc_info <- determine_npc(sim$Y_mat, sim$argvals, max_npc = 3)
res <- test_scalar(sim$Y_mat, sim$group_vec, sim$argvals,
pooled_fpca = npc_info$pooled_fpca,
n_perms = 9, alpha = 0.05, progress = FALSE)
print(res$p_value)
# }
Run the code above in your browser using DataLab