# this creates a fictious time series at 100 time points obtained in two conditions:
dta <- GRD( WSFactors = "timepoints (50) : condition(2)",
SubjectsPerGroup = 20,
RenameDV = "activation",
Effects = list("timepoints" = extent(5), "condition" = extent(3) ),
Population=list(mean=50,stddev=10,rho=0.75)
)
# This will make a plot with error band
superbPlot(dta,
WSFactors = c("timepoints(50)", "condition(2)"),
variables = colnames(dta)[2:101], ## all the names of the dataframe except "id"
adjustments = list(
purpose = "single",
decorrelation = "CM" ## or none for no decorrelation
),
plotStyle="lineBand", # note the uppercase B
pointParams = list(size= 1) # making points smaller has better look
)
# if you extract the data with superbData, you can
# run this layout directly
#processedData <- superbData(dta,
# WSFactors = c("timepoints(50)", "condition(2)"), variables = colnames(dta)[2:101],
# adjustments = list(
# purpose = "single",
# decorrelation = "CM" ## or none for no decorrelation
# )
#)
#
#superbPlot.lineBand(processedData$summaryStatistic,
# "timepoints",
# "condition",
# ".~.",
# processedData$rawData)
Run the code above in your browser using DataLab