data(acl)
dat <- acl[, 1:2] + 1 # select 2 items from ACL
var <- 1 : ncol(dat) # define the variables
marg <- Margins(var, c(0, 1)) # margins are total (0) and 1st order
dim <- rep(5, length(var))
t(RecordsToFrequencies(dat, var, dim, "obs")) # frequency vector with observed cells
t(RecordsToFrequencies(dat, var, dim, "1k")) # frequency vector with observed and
Run the code above in your browser using DataLab