Я студент, впервые пытающийся построить нейронную сеть для регрессии, чтобы предсказать мою переменную Math_G3.Однако я не могу сделать это из-за следующей ошибки:
Ошибка в x - y: несовместимые массивы Дополнительно: Предупреждающие сообщения: 1: В cbind (1, act.temp):число строк результата не кратно длине вектора (arg 1) 2: В cbind (1, act.temp): количество строк результата не кратно длине вектора (arg 1)
Ошибка в совпадении (x, table, nomatch = 0L): для 'match' требуются аргументы вектора
Вот мой код для этого:
index_train_math<-sample(1:nrow(dat_math),0.6*nrow(dat_math))
#from 1st row to end , put random 70 % AS TRAINING DATA
train_math <- dat_math[index_train_math,]
# training data of math
maxs <-apply(dat_math,2,max)
mins <- apply(dat_math,2,min)
scaled <- as.data.frame(scale(dat_math,center = mins,scale=maxs-mins))
#returns a matrix that needs to be coerced into a data frame
train_math <- scaled[index_train_math,]
test_math <- scaled[-index_train_math,]
n_math <- names(train_math)
f_math <- as.formula(paste("Math_G3 ~ traveltime + studytime + failure + famrel + goout + Dalc + Walc + health + absences + Math_G1 + Math_G2", paste(n_math[!n_math %in% "Math_G3"], collapse = " + ")))
nn <- neuralnet(f_math,data=train_math,hidden=c(5,3),linear.output=T)
Ниже приведен предварительный просмотр моегонабор данных: 
Могу ли я узнать, что не так с моим кодом и как я могу это исправить?Спасибо!