response <- data.frame(A=c(2,2,4,0,2,14,6,16,0,0),
B=c(2,0,0,0,6,2,10,6,0,0),
C=c(12,6,0,6,2,0,0,0,0,0),
D=c(0,0,0,14,0,0,0,0,2,0),
E=c(0,0,0,0,0,0,0,0,16,15))
prop.multinom(response)
Run the code above in your browser using DataLab