reference.values <- data.frame(WT = 85, ALB = 45, SEX = 0)
covcomb <- expand_modelframe(
WT = c(56, 72, 98, 128), # P05, P25, P75, P95 # ref is P50
ALB = c(40, 50), # P05, P95 # ref is P50
SEX = c(1), # Reference is for SEX=0 (female)
rv = reference.values)
covcomb
Run the code above in your browser using DataLab