# NOT RUN {
# shift score AverageN2() by 10 and multiply by factor 2
affine_avn2 <- 2 * AverageN2() + 10
# shift conditional sample size by 5 and divide by 2
aff_css <- 0.5 * ConditionalSampleSize(Normal(), PointMassPrior(.25, 1)) + 5
# }
Run the code above in your browser using DataLab