if (FALSE) {
# This is an MCMC algorithm and takes a long time to run
myzpcn <- list(
betas = c(0.1, 0.01, 0.005, 0.0001),
probs = c(0.2, 0.2, 0.4, 0.2)
)
out <- pair_align_functions_expomap(
f1 = simu_data$f[, 1],
f2 = simu_data$f[, 2],
timet = simu_data$time,
zpcn = myzpcn,
extrainfo = TRUE
)
# overall acceptance ratio
mean(out$accept)
# acceptance ratio by zpcn coefficient
with(out, tapply(accept, myzpcn$betas[betas.ind], mean))
}
Run the code above in your browser using DataLab