s_EC2 <- 0.2^2; s_EC1 <- 0.18^2; s_C2C1 <- 0.18^2
tau0 <- 1000
# One external trial setting
tune_param_eNAP(
s_EC2,s_EC1,s_C2C1, tau0=1000,
delta=0.5, t1 = 0.999, t0 = 0.05)
# Multiple external trials setting
s_C2C1=c(0.19^2,0.18^2,0.20^2)
y_C2C1=c(-0.5,-0.45,-0.6)
tune_param_eNAP(
s_EC2,s_EC1,s_C2C1, tau0=10,
delta=0.5, t1 = 0.999, t0 = 0.05,
exact=TRUE,y_EC1=-0.8,y_C2C1=y_C2C1)
Run the code above in your browser using DataLab