Anyone can slove error for me
#install packages
install.packages("neuralnet")
library("neuralnet")
#data source
setwd("E:/r studio")
mydata=read.csv("welldata3.csv",sep= ";" , header= TRUE,)
str(mydata)
mydata
attach(mydata)
names(mydata)
#split the data for training and testing
index = sample(1:nrow(mydata), round(0.70*nrow(mydata)))
train_data<- data.frame(mydata[index,])
test_data<- data.frame(mydata[-index,])
View(train_data)
str(train_data)
numbers <- as.numeric(X,X.1, X.2, X.3,X.4,X.6,X.5,X.7,X.8,X.9,X.10)
nn <-neuralnet(X~X.1+X.2+X.3+X.4+X.5+X.6+X.7+X.8+X.9+X.10, data = train_data, hidden = c(10), linear.output = FALSE,threshold = 0.01)
plot(nn)
garson(nn)