Sleuth3 (version 0.1-8)

case0202: Anatomical Abnormalities Associated with Schizophrenia

Description

Are any physiological indicators associated with schizophrenia? In a 1990 article, researchers reported the results of a study that controlled for genetic and socioeconomic differences by examining 15 pairs of monozygotic twins, where one of the twins was schizophrenic and the other was not. The researchers used magnetic resonance imaging to measure the volumes (in cm$^3$) of several regions and subregions of the twins' brains.

Usage

case0202

source

Ramsey, F.L. and Schafer, D.W. (2013). The Statistical Sleuth: A Course in Methods of Data Analysis (3rd ed), Cengage Learning.

References

Suddath, R.L., Christison, G.W., Torrey, E.F., Casanova, M.F. and Weinberger, D.R. (1990). Anatomical Abnormalities in the Brains of Monozygotic Twins Discordant for Schizophrenia, New England Journal of Medicine 322(12): 789--794.

Examples

attach(case0202) 
str(case0202)  

diff <- Unaffected-Affected    
summary(diff)
t.test(diff) # Paired t-test is a one-sample t-test on differences 
t.test(Unaffected,Affected,pair=TRUE)  # Alternative coding for the same test 

boxplot(diff,       
  ylab="Difference in Hippocampus Volume (cubic cm)", 
  xlab="15 Sets of Twins, One Affected with Schizophrenia", 
  main="Hippocampus Difference: Unaffected Twin Minus Affected Twin") 
abline(h=0,lty=2)   # Draw a dashed (lty=2) horizontal line at 0    
  
## BOXPLOT FOR PRESENTATION:
boxplot(diff, 
  ylab="Difference in Hippocampus Volume (cubic cm)", 
  xlab="15 Sets of Twins, One Affected with Schizophrenia",
  main="Hippocampus Difference: Unaffected Minus Affected Twin",  
  col="green", boxlwd=2, medlwd=2, whisklty=1, whisklwd=2, 
  staplewex=.2, staplelwd=2, outlwd=2, outpch=21, outbg="green",
  outcex=1.5)      
abline(h=0,lty=2) 

detach(case0202)