plist<- create_prior_list(normprior(0,0.1,-100,100), # a
normprior(0,1, -1e2,1e2), # b
lnormprior(1,0.2,0,18), #k
normprior(0,1,-18,18))
power_normal <- create_continuous_prior(plist,"power","normal")
Run the code above in your browser using DataLab