rmc2list <-
function(x,grp.col,lev.col,pr=TRUE){
#
# for a between by within design
# grp.col is column indicating levels of between factor.
# lev.col indicates the columns where repeated measures are contained
#
# Example: column 2 contains information on levels of between factor
# have a 3 by 2 design, column 3 contains time 1 data,
# column 7 contains time 2
# rmc2list(x,2,c(3,7)) will store data in list mode that can be
# bw2list(x,2,c(3,7)) also can be used.
# used by rmanova and related functions
#
res=selbybw(x,grp.col,lev.col)
if(pr){
print("Levels for between factor:")
print(unique(x[,grp.col]))
}
res$x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.