# Determies beta parameters and models these continuously
param <- betaByGroup(elfe$raw, elfe$group, 26)
beta.model <- betaContinuous(param, 4, 4)
# Calculates table for new group
newGroup <- 3.9
betaNormTable(beta.model, newGroup)
Run the code above in your browser using DataLab