R/gevcdn.reshape.R

In GEVcdn: GEV Conditional Density Estimation Network

gevcdn.reshape <-
function (x, weights, n.hidden)
{
    N11 <- ncol(x) + 1
    N12 <- n.hidden
    N1 <- N11*N12
    W1 <- weights[1:N1]
    W1 <- matrix(W1, nrow = N11, ncol = N12)
    N21 <- n.hidden + 1
    N22 <- 3
    N2 <- N1 + N21*N22
    W2 <- weights[(N1 + 1):N2]
    W2 <- matrix(W2, nrow = N21, ncol = N22)
    list(W1 = W1, W2 = W2)
}