# NOT RUN {
###Specify the prior hypermeans
meanmu=-.5
meanslope=-.05
MeanInts = c(0,-.5,-.1)
MeanSlopes = c(0,.1,0)
Dose=sort(rnorm(5))
VarInt=5
VarSlope=1
phetero=.9
GetESS(Dose,meanmu,meanslope,MeanInts,MeanSlopes,VarInt,VarSlope,phetero)
# }
Run the code above in your browser using DataLab