# We first generate randomly a 2-measurement dataset with 50 participants and a large effect
dta <- GRD(SubjectsPerGroup = 50, WSFactors = "moment(2)", Effects = list("moment"=slope(3)))
# This will make a basic corset plot
superb(
cbind(DV.1, DV.2) ~ .,
dta,
WSFactors = "moment(2)",
plotStyle = "corset"
)
# This will color the increasing and decreasing individuals
superb(
cbind(DV.1, DV.2) ~ .,
dta,
WSFactors = "moment(2)",
plotStyle = "corset",
lineParams = list(colorize=TRUE)
)
# This layout has similarities with the "pointindividualline" layout
superb(
cbind(DV.1, DV.2) ~ .,
dta,
WSFactors = "moment(2)",
plotStyle = "pointindividualline"
)
# if you extract the data with superbData, you can
# run this layout directly
processedData <- superb(
cbind(DV.1, DV.2) ~ .,
dta,
WSFactors = "moment(2)",
showPlot = FALSE
)
superbPlot.corset(processedData$summaryStatistic,
"moment", NULL, ".~.",
processedData$rawData,
lineParams = list(colorize=TRUE) )
Run the code above in your browser using DataLab