rm(list = ls()); gc() library(rstan) ## importing ASM stan model expose_stan_functions("stan_tester.stan") # vector of parameters param_vec <- c(exp(12), exp(-2), exp(-4), exp(-4.5)) Asm_theta_age(60, 100, param_vec) U_total_age(4, 50, param_vec) U_total_time(50, param_vec)