Looping Pipe оператор в R - PullRequest
Новая
       9

Looping Pipe оператор в R

0 голосов
/ 01 ноября 2019

В настоящее время я строю глубокую нейронную сеть в R, используя керасы. Каждый раз, когда я хочу добавить слой в свою сеть, я должен вручную добавить его следующим образом:

модель%>% 

      layer_dense(units=5,activation = "relu",input_shape = c(4))%>%
      layer_dense(units=5,activation = "relu",input_shape = c(4))%>%
      layer_dense(units=100,activation = "relu",input_shape = c(4))%>%

Однако, если яхочу сколь угодно большие сети, это не удобно. Есть ли способ «зацикливаться» на операторах канала? То есть, если я укажу нужную глубину, могу ли я создать цикл, который добавляет слои до этой суммы?

1 Ответ

0 голосов
/ 01 ноября 2019

На самом деле, это довольно просто: 

model<-keras_model_sequential() 

for(i in 1:Depth){   
model %>%
    layer_dense(units=5,activation = "relu",input_shape = c(4)) %>% 
    layer_dense(units=Height,activation = "relu",input_shape = c(4))
}   

model %>% layer_dense(units=1)
...