Cyp17 expression data

Observed expression measured at several dose levels for multiple runs.

data(Cyp17)

Format

A data frame with 63 observations on the following 3 variables.

run

ID of 3 different runs

dose

5 dose levels (0, 0.1, 10, 100, 500)

expression

observed expression

Examples

# NOT RUN {
data(Cyp17)
# transforming the vector of observed expression 
Cyp17$logexpression <- log(Cyp17$expression) + 5

# assuming a 4-parameter log-logistic model
# upper asymptote fixed at 2.59
# random run effects on the lower asymptote and the ED50
Cyp17.LL4.mixed <- medrm(logexpression ~ dose,
                         random = c + e ~ 1 | run,
                         fct = LL.4(fixed = c(NA,NA,-2.41 + 5,NA)),
                         data = Cyp17,
                         start=c(-0.5, -4 + 5, 700))

plot(Cyp17.LL4.mixed, logx=TRUE) +
    theme_classic()
plot(Cyp17.LL4.mixed, logx=TRUE, ranef=TRUE) +
    theme_classic()

summary(Cyp17.LL4.mixed)
# }