# NOT RUN {
comp_popu(hi = 4, mi = 1, fa = 2, cr = 3) # => computes a table of N = 10 cases
popu <- comp_popu() # => initializes popu (with current values of freq and txt)
dim(popu) # => N x 3
head(popu) # => shows head of data frame
# }
Run the code above in your browser using DataLab