R/vcDimensionArtificialNeuralNetwork.R

In juscelino-izidoro/supcavs: Supervised and Unsupervised PCA Variable Selection

Defines functions vcDimensionArtificialNeuralNetwork

Documented in vcDimensionArtificialNeuralNetwork

vcDimensionArtificialNeuralNetwork <-
function(d){
  return(round(2 * (d + 1) * d * log10(exp(1) * d))) 
}