# NOT RUN {
library(modelbased)
x <- data.frame(
Sepal.Length = c("1", "3", "2"),
Species = c("setosa", "versicolor", "setosa")
)
fixed <- data_restoretype(x, reference_data = iris)
summary(fixed)
# }
Run the code above in your browser using DataLab