我创建了我的虚拟变量，训练了我的模型并对其进行了如下测试：

dummy <- dummyVars(formula = CLASS_INV ~ ., data = campaign_spending_final_imputed) 
campaign_spending_final_dummy <- predict(dummy, newdata = campaign_spending_final_imputed) %>% as.data.frame() %>%
  mutate(CLASS_INV = campaign_spending_final$CLASS_INV) 

我现在想在一个看不见的真实世界数据上测试我的过程。我该怎么做？如何将类别类编码为其各自的虚拟编码？