無法預測 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)
}