绘图不出现在nnet中

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“)

最后的plot语句不起作用。我希望它能弹出情节，但它没有。这有什么问题吗？

请让我知道。

Answer 1

哦，不。我有多傻

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

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

祝大家今天好！