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