## example("mrgsims")
mod <- mrgsolve::house() %>% init(GUT=100)
out <- mrgsim(mod)
class(out)
if (FALSE) {
out
}
head(out)
tail(out)
dim(out)
names(out)
mat <- as.matrix(out)
df <- as.data.frame(out)
if (FALSE) {
out$CP
}
plot(out)
if (FALSE) {
plot(out, CP~.)
plot(out, CP+RESP~time, scales="same", xlab="Time", main="Model sims")
}
Run the code above in your browser using DataLab