# NOT RUN {
df <- iris
set.seed(1)
df$mixed <- rnorm(150)
df$mixed[1:5] <- NA # Insert some missing values
df$mixed[6:10] <- "Not graded"
iai::iai_setup()
df$mixed <- iai::as.mixeddata(df$mixed, c("Not graded"))
# }
Run the code above in your browser using DataLab