library(stUPscales)
library(EmiStatR)
data(P1)
colnames(P1)
new_data <- t(matrix(data = rep(runif(nrow(P1), 10, 100), 5), nrow = nrow(P1), ncol = 5))
new_summary <- MC.summary(p1 = P1, data = new_data)
str(new_summary)
head(new_summary)
Run the code above in your browser using DataLab