# NOT RUN {
H <- 3 # number of neurons in hidden layer
I <- 6 # number of inputs
random_weights <- new("Weights", alpha = rnorm(1), alpha_h = rnorm(H), w_h = rnorm(H),
w_ih = matrix(nrow=I,ncol=H, data=rnorm(I*H)))
# }
Run the code above in your browser using DataLab