library(vcdExtra)
data("HairEyeColor")
freqForm <- as.data.frame(HairEyeColor) # Generate frequency form data
tidy_freqForm <- dplyr::as_tibble(HairEyeColor) # Generate tidy frequency form data
tableForm <- as_table(HairEyeColor) # Generate table form data
arrayDat <- as_array(HairEyeColor) # Generate an array
# Frequency form -> case form
as_caseform(freqForm) |> str()
# Frequency form (tibble) -> case form
as_caseform(tidy_freqForm, freq = "n") |> str()
# Array -> case form
as_caseform(arrayDat) |> str()
# Optionally specify dims
as_caseform(tableForm, dims = c("Hair", "Eye")) |> str()
Run the code above in your browser using DataLab