Mouse Empathy

Percentage of time spent stretching in three treatments of mice. Both condition and treatment code for the same variable.

Usage

MouseEmpathy

Format

A data frame with 42 observations on the following 3 variables.

treatment

a factor with levels Both Writhing, Isolated, and One Writhing

percent.stretching

a numeric vector

trt

a factor with levels bw, isolated, and ow

Source

Langford, D.J., S.E. Crager, Z. Shehzah, S.B. Smith, S.G. Sotocinal, J.S. Levenstadt, M.L. Chande, D.J. Levitin, J.S. Mogill. 2006. Social modulation of pain as evidence for empathy in mice. Science 312: 1967-1970.

Examples

str(MouseEmpathy)
#> 'data.frame':	42 obs. of  3 variables:
#>  $ treatment         : Factor w/ 3 levels "Both Writhing",..: 1 1 1 1 1 1 1 1 1 1 ...
#>  $ percent.stretching: num  36.7 81.1 66.7 66.7 44.4 54.4 63.3 62.2 58.9 50 ...
#>  $ trt               : Factor w/ 3 levels "bw","iso","ow": 1 1 1 1 1 1 1 1 1 1 ...

aov.fit <- aov(percent.stretching ~ treatment, data = MouseEmpathy)
summary(aov.fit)
#>             Df Sum Sq Mean Sq F value  Pr(>F)   
#> treatment    2   4041  2020.5   6.674 0.00322 **
#> Residuals   39  11807   302.8                   
#> ---
#> Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
lm.fit <- lm(percent.stretching ~ treatment, data = MouseEmpathy)
anova(lm.fit)
#> Analysis of Variance Table
#> 
#> Response: percent.stretching
#>           Df  Sum Sq Mean Sq F value   Pr(>F)   
#> treatment  2  4040.9 2020.46  6.6736 0.003216 **
#> Residuals 39 11807.4  302.75                    
#> ---
#> Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1