代码详解: 用R语言构建ANN并将其可视化( 九 )

summary(Lm_Mod)

predict_lm <- predict(Lm_Modtest_data)

MSE.lm <- sum((predict_lm - test_data$mpg)^2)/nrow(test_data)

Lm_Mod <- lm(mpg~. data=https://mparticle.uc.cn/api/train_data)

summary(Lm_Mod)

predict_lm <- predict(Lm_Modtest_data)

MSE.lm <- sum((predict_lm - test_data$mpg)^2)/nrow(test_data)

par(mfrow=c(12))

plot(test_data$mp_gpredict_net_test$net.resultcol='black'main='Real vs predicted for neural network'pch=18cex=4)construction

abline(01lwd=5)

plot(test_data$mpgpredict_lmcol='black'main='Real vs predicted for linear regression'pch=18cex=4)

abline(01lwd=5)

推荐阅读