[Rd] rmultinom has a bug. (PR#4431)

[skon at stats.snu.ac.kr]

Full_Name: SungGON Yi.
Version: 1.7.1
OS: Windows 2000 pro
Submission from: (NULL) (147.46.24.107)


p <- runif(4)
rmultinom(1, 100, c(p, 0, 0, 0, 0))

That result are a wrong. For example,
     [,1]
[1,]   21
[2,]   59
[3,]    6
[4,]   NA
[5,]    0
[6,]    0
[7,]    0
[8,]    0