R/gevcdn.initialize.R

gevcdn.initialize <-
function (x, n.hidden, init.range)
{
    W1 <- matrix(runif((ncol(x) + 1)*n.hidden, min = min(init.range),
                 max = max(init.range)), nrow = ncol(x) + 1,
                 ncol = n.hidden)
    W2 <- matrix(runif((n.hidden + 1)*3, min = min(init.range),
                 max = max(init.range)), nrow = n.hidden + 1, ncol = 3)
    c(W1, W2)
}

Try the GEVcdn package in your browser

Any scripts or data that you put into this service are public.

GEVcdn documentation built on April 24, 2020, 9:05 a.m.