Ошибка в cbind (1, pred)% *% weights [[num_hidden_layers + 1]]: требуются числовые / сложные матричные / векторные аргументы

Question

Я занимаюсь разработкой модели WANN и пытаюсь предсказать поток.Я использую следующий код ...

WaveletForecast<-WaveletFittingann(ts=file, Waveletlevels=2, boundary='periodic',FastFlag=TRUE,nonseaslag,seaslag,NForecast=5)
file2 = as.data.frame(cbind(dw_SF_test@series,dw_temp_test@series,dw_ppt_test@series))

names(file2) = c('streamflow', 'temperature', 'precipitation')
WANN<- as.matrix(WaveletForecast)

c = compute(WANN, file2[,c(2,3)])
h = data.frame(actual = file2$V1, pred = c)

plot(h$actual, h$pred.net.result)

k = lm(h$actual~h$pred.net.result)
summary(k)

Error in cbind(1, pred) %*% weights[[num_hidden_layers + 1]] : 
  requires numeric/complex matrix/vector arguments