install.packages("neuralnet/neuralnet_1.32.tar.gz", repos=NULL, type="source")

library(neuralnet)

# calc sample
x <- runif(1000, -10, 10)
y <- x^2

# create training data
dat <- cbind(x,y)
colnames(dat) <- c("x","y")

# train network
nett <- neuralnet( y~x, dat[1:750,], hidden=10, threshold=1, lifesign="full")
res <- compute( nett, dat[751:1000,1])

# check results
plot(dat[751:1000,2],res$net.result)
plot(dat[751:1000,1],res$net.result)

# visualize network
plot(nett)