神经bp网络误差怎么算_r语言bp神经网络_bp神经网络(2)

library(e1071)

model.svm <- svm(a1~., norm.data)

preds <- predict(model.svm, norm.data)

plot(preds~ scale(clean.algae$a1))

model.svm <-svm(Species ~ .,data = iris)

pre=predict(model.svm, iris,type='class')

table(pre,iris$Species)

多元自适应回归样条（MARS）

library(earth)

model.mars <- earth(a1~., clean.algae)

preds <- predict(model.mars, clean.algae)

plot(preds~ clean.algae$a1)

(nmse2 <- mean((preds-clean.algae$a1)^2)/

mean((mean( clean.algae$a1)- clean.algae$a1)^2))

model.mars <-earth(Species ~ .,data = iris)

pre=predict(model.mars, iris,type='class')

table(pre,iris$Species)

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-28858-2.html