[R] Getting Sphericity Tests for Within Subject Repeated Measure Anova (using "car" package)

Tue Nov 10 11:47:03 CET 2009

Check out the reshape package for transforming data from long to wide
and vice versa.

Yet I still don't know what problem you've encountered with ezANOVA.
Using the data you just sent, where Day now has 3 levels, I reformat
back to the presumably original long format and find that ezANOVA
returns the same sphericity tests as John's solution (which is
expected because ezANOVA is a wrapper to Anova):

library(ez)
a = read.table( 'Sergios_wide_data.txt' , header=T )
b = melt.data.frame( data=a , id.vars=c('subject','treatment') ,
variable_name='day' )
ezANOVA( data=b , dv=.(value) , sid=.(subject) , within=.(treatment,day) )

On Mon, Nov 9, 2009 at 10:20 PM, Sergios (Sergey) Charntikov
<sergioschr at gmail.com> wrote:
> Thank you very much.  Finally got it to work.  However, I had to recode it from:
> columns: subject/treatment/DV (where all my response data was in one
> DV column) to columns: subject/treatment/day1/day2/day3/ (where my
> response data is now in three different columns).
>
> Is there a way to do that without hand recoding (cutting and pasting
> in spreadsheet) by hand? Thank you for your help.  Glad it works as
> is.
>
>
> Sincerely,
>
> Sergios Charntikov (Sergey), MA
>
> Behavioral Neuropharmacology Lab
> Department of Psychology
> University of Nebraska-Lincoln
> Lincoln, NE 68588-0308  USA
>
>
>
>
>
> On Mon, Nov 9, 2009 at 7:12 PM, John Fox <jfox at mcmaster.ca> wrote:
>> Dear Sergios,
>>
>> Why don't you try what I suggested originally? Adapted to this data set,
>>
>> mod <- lm(cbind(day1, day2, day3) ~ Treatment, data=Dataset)
>> idata <- data.frame(Day=factor(1:3))
>> summary(Anova(mod, idata=idata, idesign=~Day))
>>
>> Peter Dalgaard also pointed toward an article that describes how to do the
>> same thing with anova().
>>
>> Regards,
>>  John
>>
>>> -----Original Message-----
>>> From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-project.org]
>> On
>>> Behalf Of Sergios (Sergey) Charntikov
>>> Sent: November-09-09 7:13 PM
>>> To: Mike Lawrence
>>> Cc: r-help at r-project.org
>>> Subject: Re: [R] Getting Sphericity Tests for Within Subject Repeated
>> Measure
>>> Anova (using "car" package)
>>>
>>> Hi Mike,
>>>
>>> I tried to run my data in SPSS and it works fine without any problems,
>> plug
>>> in my levels, plug in my covariate (since it is all within) and get my
>>> Mauchly Tests.
>>>
>>> I tried to rearrange the data so it looks like this
>>>
>>> subj/treatment/day1/day2/day3
>>>
>>> subject    treatment    day1    day2    day3
>>> 1    1    8    8    8
>>> 1    2    5    7    5
>>> 2    1    7    4    4
>>> 2    2    4    5    7
>>> 3    1    8    6    4
>>> 3    2    5    2    4
>>> 4    1    2    9    4
>>> 4    2    1    9    1
>>> 5    1    4    8    1
>>> 5    2    7    8    2
>>> 6    1    4    7    2
>>> 6    2    4    5    2
>>>
>>>
>>> When I try mlmfit <- lm(Dataset~1), I get "invalid type (list) for
>> variable
>>> 'Dataset"
>>>
>>> When I try
>>>
>>> mod <- lm(cbind(day1, day2, day3) ~ Treatment, data=Dataset)
>>>
>>> idata<- data.frame(factor(rep(c(Dataset$day1, Dataset$day2,
>> Dataset$day3))),
>>> ordered(Dataset$Treatment))
>>>
>>> Anova(mod, idata=idata, idesign=~Dataset$Treatment)
>>>
>>> I get: Terms in the intra-subject model matrix are not orthogonal.
>>>
>>> When I try is.matrix(Dataset) - I get no.
>>>
>>> My original mock Dataset (attached in txt) is below.  Maybe I am not
>> coding
>>> it right? I would hate to recode all my data for SPSS, since at the end I
>>> would need to show that Sphericity was not violated.
>>>
>>> Subj  Trtmt   Sessn   Response
>>>
>>> 1     N       1       5
>>>
>>> 1     D       1       6
>>>
>>> 1     N       2       4
>>>
>>> 1     D       2       7
>>>
>>> 2     N       1       8
>>>
>>> 2     D       1       9
>>>
>>> 2     N       2       2
>>>
>>> 2     D       2       1
>>>
>>> 3     N       1       4
>>>
>>> 3     D       1       5
>>>
>>> 3     N       2       6
>>>
>>> 3     D       2       2
>>>
>>> 4     N       1       5
>>>
>>> 4     D       1       6
>>>
>>> 4     N       2       4
>>>
>>> 4     D       2       7
>>>
>>> 5     N       1       8
>>>
>>> 5     D       1       9
>>>
>>> 5     N       2       2
>>>
>>> 5     D       2       1
>>>
>>> 6     N       1       4
>>>
>>> 6     D       1       5
>>>
>>> 6     N       2       6
>>>
>>> 6     D       2       2
>>>
>>>
>>>
>>>
>>> Sincerely,
>>>
>>> Sergios Charntikov (Sergey), MA
>>>
>>> Behavioral Neuropharmacology Lab
>>> Department of Psychology
>>> University of Nebraska-Lincoln
>>> Lincoln, NE 68588-0308  USA
>>>
>>>
>>>
>>> On Mon, Nov 9, 2009 at 5:29 PM, Mike Lawrence <Mike.Lawrence at dal.ca>
>> wrote:
>>> >
>>> > No luck as in...? What error did you encounter?
>>> >
>>> > In your example data set, you only have 2 levels of each within-Ss
>>> > factor, in which case you shouldn't expect to obtain tests of
>>> > sphericity; as far as I understand it, sphericity necessarily holds
>>> > when for repeated measures with only 2 levels and tests are really
>>> > only possible for repeated measures with 3 or more levels.
>>> >
>>> > I think it's analogous to how you don't need to test homogeneity of
>>> > variance when performing a paired t-test; the test ends up
>>> > representing the pairs as single distribution of difference scores
>>> > with a single variance.
>>> >
>>> > Mike
>>> >
>>> > On Mon, Nov 9, 2009 at 5:30 PM, Sergios (Sergey) Charntikov
>>> > <sergioschr at gmail.com> wrote:
>>> > > Tried EZanova, no luck with my particular dataset.
>>> > >
>>> > >
>>> > > Sincerely,
>>> > >
>>> > > Sergios Charntikov (Sergey), MA
>>> > >
>>> > > Behavioral Neuropharmacology Lab
>>> > > Department of Psychology
>>> > > University of Nebraska-Lincoln
>>> > > Lincoln, NE 68588-0308  USA
>>> > >
>>> > >
>>> > >
>>> > >
>>> > > On Mon, Nov 9, 2009 at 2:25 PM, Mike Lawrence <Mike.Lawrence at dal.ca>
>>> wrote:
>>> > >>
>>> > >> Have you tried ezANOVA from the ez pacakge? It attempts to provide
>>> > >> a simple user interface to car's ANOVA (and when that fails, aov).
>>> > >>
>>> > >> On Mon, Nov 9, 2009 at 1:44 PM, Sergios (Sergey) Charntikov
>>> > >> <sergioschr at gmail.com> wrote:
>>> > >> > Hello everyone,
>>> > >> >
>>> > >> > I am trying to do within subjects repeated measures anova
>>> > >> > followed by the test of sphericity (sample dataset below).
>>> > >> > I am able to get either mixed model or linear model anova and
>>> > >> > TukeyHSD, but have no luck with Repeated-Measures Assuming
>>> > >> > Sphericity or Separate Sphericity Tests.
>>> > >> > I am trying to follow example from "car" package, but it seems
>>> > >> > that I am not getting something right.
>>> > >> >
>>> > >> >> Dataset$Sessn <- as.factor(Dataset$Sessn)
>>> > >> >
>>> > >> >> LinearModel.1 <- lm(Response ~ Sessn*Trtmt, data=Dataset)
>>> > >> >
>>> > >> >> summary(LinearModel.1)
>>> > >> >
>>> > >> > All, good so far, but I have problem understanding "idata=" and
>>> > >> > "idesign="
>>> > >> > functions pertaining to my example.  Session is my repeated
>>> > >> > measure (Sessn 1 and Sessn 2 = two sessions, in reality I have
>>> > >> > more) and it is already stacked. Any help or guidance on this
>>> > >> > matter.
>>> > >> >
>>> > >> > Thank you, my mock dataset is below.  Each subject has two levels
>>> > >> > of treatment throughout four calendar days which are recoded to
>>> > >> > Session 1 and Session 2 in order to compare treatments by the
>>> > >> > first and subsequent days of exposure (Treatment x Session; my DV
>>> > >> > is Response; Session is repeated).
>>> > >> >
>>> > >> >    Subj Trtmt Sessn Response  1 N 1 5  1 D 1 6  1 N 2 4  1 D 2 7
>>> > >> > 2 N 1
>>> > >> > 8
>>> > >> > 2 D 1 9  2 N 2 2  2 D 2 1  3 N 1 4  3 D 1 5  3 N 2 6  3 D 2 2  4
>>> > >> > N 1 5
>>> > >> >  4 D
>>> > >> > 1 6  4 N 2 4  4 D 2 7  5 N 1 8  5 D 1 9  5 N 2 2  5 D 2 1  6 N 1
>>> > >> > 4  6 D
>>> > >> > 1 5
>>> > >> > 6 N 2 6  6 D 2 2
>>> > >> >
>>> > >> > Sincerely,
>>> > >> >
>>> > >> > Sergios Charntikov (Sergey), MA
>>> > >> >
>>> > >> > Behavioral Neuropharmacology Lab
>>> > >> > Department of Psychology
>>> > >> > University of Nebraska-Lincoln
>>> > >> > Lincoln, NE 68588-0308  USA
>>> > >> >
>>> > >> > sergioschr-at-gmail-dot-com
>>> > >> >
>>> > >> >        [[alternative HTML version deleted]]
>>> > >> >
>>> > >> > ______________________________________________
>>> > >> > R-help at r-project.org mailing list
>>> > >> > https://stat.ethz.ch/mailman/listinfo/r-help
>>> > >> > PLEASE do read the posting guide
>>> > >> > http://www.R-project.org/posting-guide.html
>>> > >> > and provide commented, minimal, self-contained, reproducible code.
>>> > >> >
>>> > >> >
>>> > >>
>>> > >>
>>> > >>
>>> > >> --
>>> > >> Mike Lawrence
>>> > >> Graduate Student
>>> > >> Department of Psychology
>>> > >> Dalhousie University
>>> > >>
>>> > >> Looking to arrange a meeting? Check my public calendar:
>>> > >> http://tr.im/mikes_public_calendar
>>> > >>
>>> > >> ~ Certainty is folly... I think. ~
>>> > >
>>> > >
>>> >
>>> >
>>> >
>>> > --
>>> > Mike Lawrence
>>> > Graduate Student
>>> > Department of Psychology
>>> > Dalhousie University
>>> >
>>> > Looking to arrange a meeting? Check my public calendar:
>>> > http://tr.im/mikes_public_calendar
>>> >
>>> > ~ Certainty is folly... I think. ~
>>
>>
>>
>
>

-- 
Mike Lawrence
Graduate Student
Department of Psychology
Dalhousie University

Looking to arrange a meeting? Check my public calendar:
http://tr.im/mikes_public_calendar

~ Certainty is folly... I think. ~