Displaying 1 result from an estimated 1 matches for "trueandpredicted".
2009 May 24
2
accuracy of a neural net
...ot;?"))
crs$nnet <- nnet(Value ~ ., data=crs$dataset[,c(1:22,922)], size=10,
linout=TRUE, skip=TRUE, trace=FALSE, maxit=1000)
targets=crs$dataset[,922]
rawpredictions =predict(crs$nnet, crs$dataset[, c(1:22)], type="raw")
roundedpredictions=round(rawpredictions[,1],digits = 0)
trueAndPredicted=cbind(roundedpredictions, targets)
howManyEqual=trueAndPredicted[,1]==trueAndPredicted[,2]
sum(howManyEqual)
samp <- c(sample(1:50,25), sample(51:100,25), sample(101:150,25))
samp <- c(sample(1:250,125), sample(251:500,125), sample(500:920,300))
crs$nnet <- nnet(Value ~ ., data=crs$dat...