# NOT RUN {
library(dplyr)
set.seed(1)
# A patient with psoriasis
z <- unlist(derma[2, 1:10])
d <- derma[, c(names(z), "ES")] %>%
filter(ES %in% c("chronic dermatitis", "psoriasis"))
m <- fit_multiple_models(d, z, "ES", nsim = 1000, trace = FALSE, validate = FALSE)
plot(m)
print(m)
# }
Run the code above in your browser using DataLab