if (FALSE) {
constructD(fbb2003) # columns as dependent (default)
constructD(fbb2003, "c") # row as dependent
constructD(fbb2003, "s") # symmetrical index
# suppress printing
d <- constructD(fbb2003, out = 0, trim = 5)
d
# more digits
constructD(fbb2003, dig = 3)
# add index column, no trimming
constructD(fbb2003, col.index = TRUE, index = F, trim = NA)
}
Run the code above in your browser using DataLab