## Not run:
# data(faramea)
# faramea <- na.omit(faramea)
# faramea$presence <- as.numeric(faramea$Faramea.occidentalis > 0)
# attach(faramea)
# library(nnet)
# result <- nnetrandom(presence ~ Elevation, data=faramea, size=2,
# skip=FALSE, entropy=TRUE, trace=FALSE, maxit=1000, tries=100,
# leave.one.out=FALSE)
# summary(result)
# result$fitted.values
# result$value
# result2 <- nnetrandom(presence ~ Elevation, data=faramea, size=2,
# skip=FALSE, entropy=TRUE, trace=FALSE, maxit=1000, tries=50,
# leave.one.out=TRUE)
# result2$range
# result2$CV
# result2$successful
# ## End(Not run)
Run the code above in your browser using DataLab