r - 总结期间出错:$ 运算符对原子向量无效
问题描述
我不断收到此错误消息,我不太确定出了什么问题,因为我正在尝试进行线性回归分析。
Ind_v 是自变量,dep_v 是因变量。我将 data.frame 切换到 [] 并且它也不起作用。谢谢大家!谢谢!
我将训练和测试数据分成 70/30。
linear_regression <- function(training_dataset,
test_dataset,
dependent_variables,
independent_variables){
formular_me <- paste(dependent_variables, "~", independent_variables)
linear_model <- lm(formula = formular_me, data = training_dataset)
ind_v_from_test_dataset <- subset(test_dataset,select=independent_variables)
linear_model_analysis <- predict(linear_model,ind_v_from_test_dataset)
dep_v_from_test_dataset <- test_dataset[,dependent_variables]
RMSE_me <- round(Nrmse(actual = dep_v_from_test_dataset, predicted = linear_model_analysis),digits=2)
MAE_me <- round(Nmae(actual = dep_v_from_test_dataset,predicted = linear_model_analysis),digits=2)
R2_me <- round(Nr2(linear_model_analysis),digits=2)
linear_analysis_error <- dep_v_from_test_dataset - linear_model_analysis
linear_results<- data.frame(dep_v_from_test_dataset,ind_v_from_test_dataset,linear_analysis_error)
linear_results<- linear_analysis_error[order(ind_v_from_test_dataset),]
plot(linear_results[,independent_variables],
linear_results$ind_v_from_test_dataset,
pch=4,
ylab="dependent variable",
xlab="independent variables",
main="Linear Regression Errors",
sub=paste("MAE=",mae,"RMSE=",RMSE," R2=",r2))
abline(linear_model,col = "blue", lwd=6)
suppressWarnings(arrows(linear_results[,ind_v_from_test_dataset],
linear_results$dep_v_from_test_dataset,
linear_results[,independent_variables],
linear_results$dep_v_from_test_dataset-linear_results$error,
length=0.05,angle=90,code=3,col="red"))
return(
list(RMSE_me=RMSE,
MAE_me=mae,
R2_me=r2))
}
解决方案
推荐阅读
- python - 如何在 Python 3.7 中向 bytearray 添加字节?
- php - 在 PHP 表单中选中取消选中
- c# - 如何使用其他值从字典中获取值
- reactjs - 回调阻止 setState
- javascript - 如何获取滑块范围值并将其存储在 JavaScript 中的变量中
- python - 如何将 pandas 系列转换为 seaborn 条形图
- oracle - Rman 备份命令
- c# - 如何不打印到新行 c# 控制台
- oracle - 如何将oracle数据迁移到greenplum数据库
- c# - 如何在 .NET Core 2.2 WebApi 和 Azure AD 2.0 中配置 Swagger?