df <- data.frame(id = c(1, 1, 2, 2),
fu = c(1, 2, 1, 2),
mo = c(1, 1, 1, 1),
sc = c(1, 1, 5, 1),
ua = c(1, 1, 4, 3),
pd = c(1, 1, 1, 3),
ad = c(1, 1, 1, 1))
.pchc(df, level_fu_1 = 1, add_noprobs = TRUE)
Run the code above in your browser using DataLab