
foo <- data.frame(
response = rnorm(3),
predictor = as.factor(c("A", "B", "C"))
)
model <- lm(response ~ predictor, foo)
foo.new <- data.frame(predictor = as.factor(c("A", "B", "C", "D")))
predict(model, newdata = remove_missing_levels(
fit = model,
test_data = foo.new
))
Run the code above in your browser using DataLab