# NOT RUN {
library (barsurf)
h <- matrix (sample (1:24), 4, 6)
rownames (h) <- LETTERS [1:4]
colnames (h) <- letters [1:6]
f <- gbvpmf (h)
plot (f)
plot (f, FALSE)
h [2, 1:4] / sum (h)
f (2, 1:4)
f ("B", c ("a", "b", "c", "d") )
# }
Run the code above in your browser using DataLab