Question

library(nnet)
data(iris)
attach(iris)
partition<-c(sample(1:50, 25), sample(51:100, 25), sample(101:150, 25))
train.iris<-iris[partition,]
test.iris<-iris[-partition,]
iris_nnet<-nnet(Species~., data=train.iris, size=2, decay=5e-4)
summary(iris_nnet)
y<-test.iris$Species
p<-predict(iris_nnet, test.iris, type="class")
tt<-table(y,p)
summary(tt)
test.err<-function(h.size){
  ir<-nnet(Species~., data=train.iris, size=h.size, decay=5e-4, trace=F)
  y<-test.iris$Species
  p<-predict(ir, test.iris, type="class")
  err<-mean(y != p)
  c(h.size, err)
}
out<-t(sapply(2:10, FUN=test.err))
plot(out, type="b", xlab="The number of Hidden Units", ylab="Test Error“)

最后一个情节声明不起作用。我希望它会弹出情节，但事实并非如此。这有什么问题？

请告诉我。

Answer 1

哦不。我多么愚蠢。

plot(out, type="b", xlab="The number of Hidden Units", ylab="Test Error“)

最后一个标点符号的方向是错误的。

大家好日子！

情节不会出现在nnet中

1 个答案: