data(LPdata)
pattern.ID <- zPatterns(LPdata,label=0)
LPdata[pattern.ID==5,]
LPdata[pattern.ID==7,]
LPdata[pattern.ID==10,]
# Modify cell labels and show percentages along with barplots
pattern.ID <- zPatterns(LPdata,label=0,
cell.labels=c("Zero","Non-zero"),bar.labels=TRUE)
# Show compositional geometric means (in %) per zero pattern
zPatterns(LPdata,label=0,show.means=TRUE)
# Same but orderer by pattern frequency and incidence of zeros by component
zPatterns(LPdata,label=0,bar.ordered=c(TRUE,TRUE),,bar.labels=TRUE,show.means=TRUE)
# Data set with zeros and missing data (0 = zero; NA = missing) (see lrEMplus function).
data(LPdataZM)
# Show missingness patterns only
zPatterns(LPdataZM,label=NA)
# Show zero patterns only and means by pattern based on available data
# (blanks indicate not enough data available for computation)
zPatterns(LPdataZM,label=0,show.means=TRUE)
Run the code above in your browser using DataLab