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