Logistic回归

library(ggplot2)
library(lattice)
library(kernlab)
library(caret)

train <- createDataPartition(y=iris$Species, p=0.75, list=FALSE)
training <- iris[train,]
testing <- iris[-train,]

library(nnet)

iris.logistic <- multinom(Species ~ ., data = training)
table(predict(iris.logistic, testing, type="class"), testing$Species)
最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容