# NOT RUN {
#some variables
samplesize <- 1000
classsize <- 6
etasize <- 3
alphasize <- 2
#test of softmax
Xtest <- data.frame(matrix(rnorm(samplesize*etasize),samplesize,etasize))
etatest <- matrix(seq(1.15,1,length=etasize*classsize),etasize,classsize)
softmax_value <- softmax(etatest,Xtest)
# }
Run the code above in your browser using DataLab