R/multiActivationList.R

In deepdive: Deep Learning for General Purpose

#' Activation List for Deepforest

#' @return
#' @noRd

multiActivationList<-function(multiLayerList,activation,seed){

layerLengths<-sapply(multiLayerList , function(l){
       length(l)})


activationList<-lapply(1:length(layerLengths), function(m){
  set.seed(m*seed)
  sample(activation,layerLengths[m],replace = T)
})


return(activationList)

}