prior<-emaxPrior.control(epmu=0,epsca=4,difTargetmu=0,
difTargetsca=4,dTarget=20,
p50=(2+5)/2,
sigmalow=0.01,sigmaup=3)
print(prior,doc=TRUE,diffuse=c(TRUE,TRUE),file=NULL)
Run the code above in your browser using DataLab