# NOT RUN {
data(longDat)
print(dim(longDat))
print(longDat[1:3,])
print(table(longDat$time, useNA = "ifany"))
print(table(longDat$grp, useNA = "ifany"))
print(table(longDat$sid, useNA = "ifany"))
print(table(longDat$time, longDat$grp))
statVisual(type = 'ErrBar',
data = longDat,
x = 'time',
y = 'y',
group = 'grp',
title = "Dot plots across time")
ErrBar(
data = longDat,
x = 'time',
y = 'y',
group = 'grp',
title = "Dot plots across time")
# }
Run the code above in your browser using DataLab