Quellcode zum Tutorial
 

III - 09 Deskriptive Analyse
> attach(burnout)
> table(geschlecht)
geschlecht
  1   2 
 48 104 
> hist(
+ 	x=unterstuetzung)
> mean(
+ 	x=unterstuetzung)
[1] 4.223684
> median(
+ 	x=unterstuetzung)
[1] 4.428571
> sd(
+ 	x=unterstuetzung)
[1] 0.7546175
> summary(
+ 	object=unterstuetzung)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.357   3.911   4.429   4.224   4.714   5.000 
> 
> 
> summary(
+ 	object=burnout)
     alter         geschlecht        erwerb       fachsemester  
 Min.   :19.00   Min.   :1.000   Min.   :1.000   Min.   :2.000  
 1st Qu.:21.00   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:2.000  
 Median :22.00   Median :2.000   Median :2.000   Median :4.000  
 Mean   :22.49   Mean   :1.684   Mean   :1.533   Mean   :4.191  
 3rd Qu.:24.00   3rd Qu.:2.000   3rd Qu.:2.000   3rd Qu.:6.000  
 Max.   :31.00   Max.   :2.000   Max.   :2.000   Max.   :8.000  
   aufwand_h     unterstuetzung   erschöpfung    bedeutungsverlust
 Min.   : 0.00   Min.   :1.357   Min.   : 1.00   Min.   : 0.000   
 1st Qu.:12.00   1st Qu.:3.911   1st Qu.: 8.00   1st Qu.: 3.000   
 Median :18.00   Median :4.429   Median :13.00   Median : 7.000   
 Mean   :18.61   Mean   :4.224   Mean   :13.66   Mean   : 8.658   
 3rd Qu.:25.00   3rd Qu.:4.714   3rd Qu.:20.00   3rd Qu.:13.000   
 Max.   :48.00   Max.   :5.000   Max.   :30.00   Max.   :24.000   
 selbstwirk_verlust    aufwand      
 Min.   : 0.00      Min.   :  0.00  
 1st Qu.: 7.00      1st Qu.: 22.00  
 Median :11.00      Median : 30.00  
 Mean   :11.59      Mean   : 32.24  
 3rd Qu.:15.00      3rd Qu.: 40.00  
 Max.   :30.00      Max.   :130.00  


III - 10 Korrelation

> plot(
+ 	x=erschöpfung,
+ 	y=bedeutungsverlust)
> 
> cor(
+ 	x=erschöpfung,
+ 	y=bedeutungsverlust,
+ 	use="everything",
+ 	method="pearson")
[1] 0.4589965
> cor.test(
+ 	x=erschöpfung,
+ 	y=bedeutungsverlust)

	Pearson's product-moment correlation

data:  erschöpfung and bedeutungsverlust
t = 6.3274, df = 150, p-value = 2.725e-09
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
 0.3234297 0.5761001
sample estimates:
      cor 
0.4589965