Unscale прогнозируемое значение для нейронной сети (пакет Keras) - PullRequest
Новая
       6

Unscale прогнозируемое значение для нейронной сети (пакет Keras)

0 голосов
/ 11 февраля 2019

раздел данных 

set.seed(1234)
ind <- sample(2, nrow(bronx_data), replace = T, prob = c(.7,.3))
train <- bronx_data[ind==1,2:11]
test <- bronx_data[ind==2,2:11]
train_target <- bronx_data[ind==1,1]
test_target <- bronx_data[ind==2,1]

нормализовать мои данные **

m <- colMeans(train)
s <- apply(train, 2, sd)
train <- scale(train, center = m, scale = s)
test <- scale(test, center = m, scale = s) # use same mean and sd obtained form train data

Модель

Это моя модель 

library(keras)
model <- keras_model_sequential()
model %>%
        layer_dense(units = 5, activation = 'relu', input_shape = c(10)) %>%
        layer_dense(units = 1)

Я получаю хороший вывод, но у меня проблема с масштабированием данных.Кто-то, пожалуйста, помогите. Я новый кодер.Я попытался 

unscale(vals, norm.data, col.ids)

и получил следующую ошибку

Ошибка в scale.default (данные, центр = ЛОЖЬ, масштаб = 1 / масштаб): длина шкалы'должно равняться количеству столбцов' x '

...