# Determies beta parameters and models these continuously
param <- betaByGroup(elfe$raw, elfe$group, 26)
beta.model <- betaContinuous(param, 4, 4)
# Calculates z scores
x <- c(15, 8, 11, 18)
newGroup <- c(3.9, 1.2, 4.5, 6.3)
predictBeta(beta.model, x, newGroup)
Run the code above in your browser using DataLab