# This will make a plot with bars
superbPlot(ToothGrowth,
BSFactors = c("dose","supp"), variables = "len",
plotStyle="bar"
)
# if you extract the data with superbData, you can
# run this layout directly
#processedData <- superbData(ToothGrowth,
# BSFactors = c("dose","supp"), variables = "len"
#)
#
#superbPlot.bar(processedData$summaryStatistic,
# "dose",
# "supp",
# ".~.",
# processedData$rawData)
Run the code above in your browser using DataLab