data(accruedDataExample)
dat <- data.accrued(accruedDataExample)
uploadPattern(dat) # Diagonal plot (default)
dev.new(height = 1.5, width = 10) # Horizontal plot - best short and wide
uploadPattern(dat, horizontal = TRUE)Run the code above in your browser using DataLab