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