# No groups
sparsity = calculateSparsity(Fujita2023)
length(sparsity)
hist(sparsity)
# Consider groups
colnames(Shao2019$mode1)
sparsity = calculateSparsity(Shao2019, considerGroups=TRUE, groupVariable="Delivery_mode")
dim(sparsity)
hist(sparsity[1,])
hist(sparsity[2,])
Run the code above in your browser using DataLab