无法预测 R Shiny 中的单个值

Question

我正在用 R 闪亮创建一个仪表板，但由于模拟预测过程中的一些问题，它不起作用。 奇怪的是，完全相同的代码适用于另一个预测：

sim_pred_data <- na.omit(sim_pred_data)

sim_pred_data <- as.matrix(sim_pred_data)

sim_predicted_output <-predict(lasso_best, s=lambda_best, newx=sim_pred_data)

在执行期间，我收到以下错误：

警告：h 中的错误：在为函数“as.matrix”选择方法时评估参数“x”时出错：dup_mMatrix_as_dgeMatrix 的类“NA”无效

当我在此处删除 as.matrix 行时，我也会遇到相同的错误，但在提到的第二种情况下需要该行。

该模型已经预装。

或者，以下代码会引发另一个错误：

警告：对比错误<-：对比只能应用于具有 2 个或更多级别的因子

sim_pred_data <- na.omit(sim_pred_data)

sim_pred_data <- as.matrix(sim_pred_data)
sim_dummy <- dummyVars(" ~ .", data=sim_pred_data)

sim_pred_data <<- data.frame(predict(sim_dummy, newdata =          
sim_pred_data))

sim_predicted_output <-predict(lasso_best, s=lambda_best, 
newx=sim_pred_data)

提供的数据只有一个观察值和命名列，用于预测该单个值。

我希望有人能帮帮忙。 谢谢

Answer 1

试试这个而不是使用 omit() ：

if (is.na(sim_pred_data)){}
else {
  sim_pred_data <- as.matrix(sim_pred_data)
  sim_predicted_output <-predict(lasso_best, s=lambda_best, 
  newx=sim_pred_data)
}