# NOT RUN {
data <- rbind(c(0, 10, 0, 0, 0),
c(0, 10, 0, 0, 0),
c(0, 0, 10, 0, 0),
c(0, 0, 0, 5, 5))
rownames(data) <- 1:4
colnames(data) <- 1:5
fromTableToVectors(cont.table = data)
# }
Run the code above in your browser using DataLab