**Problem :**

I want to use the neural net for predictions.

I am trying to create some X as follows :

x <- cbind(seq(1, 50, 1), seq(51, 100, 1))

I am trying to create some Y as follows :

y <- x[,1]*x[,2]

Give them the names as follows

colnames(x) <- c('x1', 'x2')

names(y) <- 'y'

Make the data.frame as below:

dt <- data.frame(x, y)

Finally I got, below error

model <- neuralnet(y~., dt, hidden=10, threshold=0.01)

error in terms.formula(formula) : '.' in formula and no 'data' argument

Does anybody have any idea regarding the error I am facing? Any solution?