Packages

library(psych) #->Deskriptive Statistik
library(ggplot2)#->Diagramme

Roadmap

  1. Hypothese
  2. Voraussetzungen
  3. Grundlegende Konzepte: Was ist Spearman?
  4. Grafische Veranschaulichung des Zusammenhangs
  5. Deskriptive Statistik
  6. Ergebnisse der Korrelationsanalyse
  7. Berechnung des Bestimmtheitsmasses
  8. Berechnung der Effektstärke
  9. Eine Aussage
head(uebung3)

Hypothese

H0: Es gibt keinen linearen Zusammenhang zwischen den ordinalskalierten Variablen Alter und Leistung von Motoren.
H1: Es gibt einen linearen Zusammenhang zwischen den ordinalskalierten Variablen Alter und Leistung von Motoren.

Vorraussetzungen

Die Variablen sind mindestens ordinalskaliert -> Beide Variablen sind metrisch.

Die Variablen haben einen linearen Zusammenhang-> siehe Scatterplot

Grundlegende Konzepte: Was ist Spearman?

Bei der Rangkorrelation wird der ungerichtete lineare Zusammenhang zweier Variable untersucht. “Ungerichtet” bedeutet, dass nicht von einer abhängigen und einer unabhängigen Variable gesprochen wird. Es werden folglich keine kausalen Aussagen gemacht.

Die Rangkorrelation nach Spearman ist das nichtparametrische äquivalent der Korrelationsanalyse nach Bravais-Pearson und wird angewendet, wenn die Voraussetzungen für ein parametrisches Verfahren nicht erfüllt sind.

Oft werden auch die Begriffe “Spearman-Korrelation” oder “Spearmans Rho” verwendet, wenn von einer Rangkorrelation nach Spearman gesprochen wird.

Grafische Veranschaulichung des Zusammenhangs

Ein Streudiagramm, auch Punktwolke genannt (engl. scatter plot), ist die graphische Darstellung von beobachteten Wertepaaren zweier statistischer Merkmale. Diese Wertepaare werden in ein kartesisches Koordinatensystem eingetragen, wodurch sich eine Punktwolke ergibt.

library(ggplot2)#->Diagramme

ggplot(uebung3, aes(x = AlterdesMotors, y = Leistung)) + geom_point(size = 2) + geom_smooth(method = "lm", col = "green")

Es besteht ein augenscheinlicher negativer linearer Zusammenhang.

Deskriptive Statistik


library(psych) #->Deskriptive Statistik
describe(uebung3)

Im Mittel liegt die Leistung der untersuchten Motoren bei etwa 60 (Median: 60, arithm. Mittel: 61,79). Die Leistung der untersuchten Motoren liegen zwischen 50,5 und 76,25. Das Alter der Untersuchten Motoren liegt im Durchschnitt bei 5 Jahren (Mittelwert 5,02; Median: 5). Die untersuchten Motoren liegen bei einem Alter von 2,4 bis 7,23 Jahren.

Korrelation nach Spearman

Der Korrelationskoeffizient kann nur Werte im Bereich zwischen -1 und +1 annehmen. Ist er kleiner als Null (r < 0), so besteht ein negativer linearer Zusammenhang. Bei einem Wert grösser als Null (r > 0) besteht ein positiver linearer Zusammenhang und bei einem Wert von Null (r = 0) besteht kein Zusammenhang zwischen den Variablen.

test1 <- cor.test(uebung3$Leistung, uebung3$AlterdesMotors, method = "spearman")
test1

    Spearman's rank correlation rho

data:  uebung3$Leistung and uebung3$AlterdesMotors
S = 876, p-value < 2.2e-16
alternative hypothesis: true rho is not equal to 0
sample estimates:
       rho 
-0.9252747 

Die Information aus der Auswertung werden in der Varibale “test” gespeichert.

Es wird ersichtlich, dass ein Zusammenhang zwischen Leistung und Alter des Motors (r = .9252, p = .000, n =14)vorliegt. Da r ein negativen Wert aufweist, kann von einem negativen linearen und signifikanten Zusammenhang zwischen Leistung und Alter des Motors ausgegangen werden. Das bedeutet: Je älter der Motor, desto schwächer der Motor oder je schwächer der Motor, desto älter der Motor. Letzter macht wenig Sinn.

Bestimmtheitsmaß - R²

Das Bestimmtheitsmaß, auch Determinationskoeffizient, bezeichnet mit R² ist in der Statistik eine Kennzahl zur Beurteilung der Anpassungsgüte. Das Bestimmtheitsmaß entspricht dem Quadrat des Bravais-Pearson-Korrelationskoeffizienten.

\[Bestimmtheitsmaß=Korrelationskoeffizient2∗100\] \[Bestimmtheitsmaß=r2∗100\]


rbestimmt <- (test1$estimate)^2  *100
sprintf("Bestimmtheitsmaß: %.2f Prozent",rbestimmt)
[1] "Bestimmtheitsmaß: 85.61 Prozent"

Zur Berechung des Bestimmtheitsmaßes wird auf die Varibale “test1” zurückgegriffen. Der Korrelationskoeffizient ist in “estimate” gespeichert.

Wird dieser Wert mit 100 multipliziert, so ergibt sich ein Prozentwert. Dieser gibt an, welcher Anteil der Varianz in beiden Variablen durch gemeinsame Varianzanteile determiniert wird. Für das vorliegende Beispiel beträgt der Anteil der gemeinsamen Varianz 85.61%.

Effektstärke

Effektstärke (auch Effektgröße) bezeichnet die Größe eines statistischen Effekts. Sie kann zur Verdeutlichung der praktischen Relevanz von statistisch signifikanten Ergebnissen herangezogen werden. Zur Messung der Effektstärke werden unterschiedliche Effektmaße verwendet. Im Rahmen dieses Verfahrens wird die Effektstärke nach Cohen interpretiert.

sprintf("Effektstärke: %.2f",abs(test1$estimate))
[1] "Effektstärke: 0.93"

|r| = .10 entspricht einem schwachen Effekt

|r| = .30 entspricht einem mittleren Effekt

|r| = .50 entspricht einem starken Effekt

Das Ergebnis ist stark nach Cohen(1992).

Aussage

Das Alter und die Leistung der Motoren korrelieren hochsignifikant (rho = -0.925, p = .000, n = 14). Je hoeher das Alter eines Motors, desto schlechter ist die Leistung. 85.61% der Streuung der gemeinsamen Varianz kann durch Alter und Leistung der Motoren erklaert werden (Bestimmtheitsmass). Dabei handelt es sich nach Cohen (1992) um einen starken Effekt.

H0 kann verworfen werden. “Es gibt keinen linearen Zusammenhang zwischen den ordinalskalierten Variablen Alter und Leistung von Motoren.”

LS0tDQp0aXRsZTogIlNwZWFybWFuIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCiMjIFBhY2thZ2VzDQpgYGB7cn0NCmxpYnJhcnkocHN5Y2gpICMtPkRlc2tyaXB0aXZlIFN0YXRpc3Rpaw0KbGlicmFyeShnZ3Bsb3QyKSMtPkRpYWdyYW1tZQ0KYGBgDQoNCg0KDQoNCiMjIFJvYWRtYXAgDQoNCjEpIEh5cG90aGVzZQ0KMikgVm9yYXVzc2V0enVuZ2VuDQozKSBHcnVuZGxlZ2VuZGUgS29uemVwdGU6IFdhcyBpc3QgU3BlYXJtYW4/DQo0KSBHcmFmaXNjaGUgVmVyYW5zY2hhdWxpY2h1bmcgZGVzIFp1c2FtbWVuaGFuZ3MNCjUpIERlc2tyaXB0aXZlIFN0YXRpc3Rpaw0KNikgRXJnZWJuaXNzZSBkZXIgS29ycmVsYXRpb25zYW5hbHlzZQ0KNykgQmVyZWNobnVuZyBkZXMgQmVzdGltbXRoZWl0c21hc3Nlcw0KOCkgQmVyZWNobnVuZyBkZXIgRWZmZWt0c3TDpHJrZQ0KOSkgRWluZSBBdXNzYWdlIA0KDQoNCmBgYHtyfQ0KaGVhZCh1ZWJ1bmczKQ0KYGBgDQoNCg0KDQoNCiMgSHlwb3RoZXNlDQpIMDogRXMgZ2lidCBrZWluZW4gbGluZWFyZW4gWnVzYW1tZW5oYW5nIHp3aXNjaGVuIGRlbiBvcmRpbmFsc2thbGllcnRlbiBWYXJpYWJsZW4gQWx0ZXIgdW5kIExlaXN0dW5nIHZvbiBNb3RvcmVuLjxicj4NCkgxOiBFcyBnaWJ0IGVpbmVuIGxpbmVhcmVuIFp1c2FtbWVuaGFuZyB6d2lzY2hlbiBkZW4gb3JkaW5hbHNrYWxpZXJ0ZW4gVmFyaWFibGVuIEFsdGVyIHVuZCBMZWlzdHVuZyB2b24gTW90b3Jlbi4NCg0KDQojIFZvcnJhdXNzZXR6dW5nZW4NCg0KRGllIFZhcmlhYmxlbiBzaW5kIG1pbmRlc3RlbnMgb3JkaW5hbHNrYWxpZXJ0IC0+IEJlaWRlIFZhcmlhYmxlbiBzaW5kIG1ldHJpc2NoLiANCg0KRGllIFZhcmlhYmxlbiBoYWJlbiBlaW5lbiBsaW5lYXJlbiBadXNhbW1lbmhhbmctPiBzaWVoZSBTY2F0dGVycGxvdA0KDQoNCiMgR3J1bmRsZWdlbmRlIEtvbnplcHRlOiBXYXMgaXN0IFNwZWFybWFuPw0KDQpCZWkgZGVyIFJhbmdrb3JyZWxhdGlvbiB3aXJkIGRlciB1bmdlcmljaHRldGUgbGluZWFyZSBadXNhbW1lbmhhbmcgendlaWVyIFZhcmlhYmxlIHVudGVyc3VjaHQuIOKAnFVuZ2VyaWNodGV04oCdIGJlZGV1dGV0LCBkYXNzIG5pY2h0IHZvbiBlaW5lciBhYmjDpG5naWdlbiB1bmQgZWluZXIgdW5hYmjDpG5naWdlbiBWYXJpYWJsZSBnZXNwcm9jaGVuIHdpcmQuIEVzIHdlcmRlbiBmb2xnbGljaCBrZWluZSBrYXVzYWxlbiBBdXNzYWdlbiBnZW1hY2h0Lg0KDQpEaWUgUmFuZ2tvcnJlbGF0aW9uIG5hY2ggU3BlYXJtYW4gaXN0IGRhcyBuaWNodHBhcmFtZXRyaXNjaGUgw6RxdWl2YWxlbnQgZGVyIEtvcnJlbGF0aW9uc2FuYWx5c2UgbmFjaCBCcmF2YWlzLVBlYXJzb24gdW5kIHdpcmQgYW5nZXdlbmRldCwgd2VubiBkaWUgVm9yYXVzc2V0enVuZ2VuIGbDvHIgZWluIHBhcmFtZXRyaXNjaGVzIFZlcmZhaHJlbiBuaWNodCBlcmbDvGxsdCBzaW5kLg0KDQorIG5pY2h0IG5vcm1hbHZlcnRlaWx0IHNlaQ0KKyBWYXJpYWJsZW4gbcO8c3NlbiBsZWRpZ2xpY2ggb3JkaW5hbHNrYWxpZXJ0IHNlaW4uDQorIGtsZWluZW4gU3RpY2hwcm9iZW4gDQorIEF1c3JlacOfZXJuIA0KDQpPZnQgd2VyZGVuIGF1Y2ggZGllIEJlZ3JpZmZlIOKAnFNwZWFybWFuLUtvcnJlbGF0aW9u4oCdIG9kZXIg4oCcU3BlYXJtYW5zIFJob+KAnSB2ZXJ3ZW5kZXQsIHdlbm4gdm9uIGVpbmVyIFJhbmdrb3JyZWxhdGlvbiBuYWNoIFNwZWFybWFuIGdlc3Byb2NoZW4gd2lyZC4NCg0KDQojICBHcmFmaXNjaGUgVmVyYW5zY2hhdWxpY2h1bmcgZGVzIFp1c2FtbWVuaGFuZ3MNCg0KRWluIFN0cmV1ZGlhZ3JhbW0sIGF1Y2ggUHVua3R3b2xrZSBnZW5hbm50IChlbmdsLiBzY2F0dGVyIHBsb3QpLCBpc3QgZGllIGdyYXBoaXNjaGUgRGFyc3RlbGx1bmcgdm9uIGJlb2JhY2h0ZXRlbiBXZXJ0ZXBhYXJlbiB6d2VpZXIgc3RhdGlzdGlzY2hlciBNZXJrbWFsZS4gRGllc2UgV2VydGVwYWFyZSB3ZXJkZW4gaW4gZWluIGthcnRlc2lzY2hlcyBLb29yZGluYXRlbnN5c3RlbSBlaW5nZXRyYWdlbiwgd29kdXJjaCBzaWNoIGVpbmUgUHVua3R3b2xrZSBlcmdpYnQuDQoNCg0KYGBge3J9DQpsaWJyYXJ5KGdncGxvdDIpIy0+RGlhZ3JhbW1lDQoNCmdncGxvdCh1ZWJ1bmczLCBhZXMoeCA9IEFsdGVyZGVzTW90b3JzLCB5ID0gTGVpc3R1bmcpKSArIGdlb21fcG9pbnQoc2l6ZSA9IDIpICsgZ2VvbV9zbW9vdGgobWV0aG9kID0gImxtIiwgY29sID0gImdyZWVuIikNCmBgYA0KRXMgYmVzdGVodCBlaW4gYXVnZW5zY2hlaW5saWNoZXIgbmVnYXRpdmVyIGxpbmVhcmVyIFp1c2FtbWVuaGFuZy4NCg0KDQoNCiMgRGVza3JpcHRpdmUgU3RhdGlzdGlrDQoNCmBgYHtyfQ0KDQpsaWJyYXJ5KHBzeWNoKSAjLT5EZXNrcmlwdGl2ZSBTdGF0aXN0aWsNCmRlc2NyaWJlKHVlYnVuZzMpDQpgYGANCkltIE1pdHRlbCBsaWVndCBkaWUgTGVpc3R1bmcgZGVyIHVudGVyc3VjaHRlbiBNb3RvcmVuIGJlaSBldHdhIDYwIChNZWRpYW46IDYwLCBhcml0aG0uIE1pdHRlbDogNjEsNzkpLiBEaWUgTGVpc3R1bmcgZGVyIHVudGVyc3VjaHRlbiBNb3RvcmVuIGxpZWdlbiB6d2lzY2hlbiA1MCw1IHVuZCA3NiwyNS4gIERhcyBBbHRlciBkZXIgVW50ZXJzdWNodGVuIE1vdG9yZW4gbGllZ3QgaW0gRHVyY2hzY2huaXR0IGJlaSA1IEphaHJlbiAoTWl0dGVsd2VydCA1LDAyOyBNZWRpYW46IDUpLiBEaWUgdW50ZXJzdWNodGVuIE1vdG9yZW4gbGllZ2VuIGJlaSBlaW5lbSBBbHRlciB2b24gMiw0IGJpcyA3LDIzIEphaHJlbi4NCg0KDQojIEtvcnJlbGF0aW9uIG5hY2ggU3BlYXJtYW4NCg0KRGVyIEtvcnJlbGF0aW9uc2tvZWZmaXppZW50IGthbm4gbnVyIFdlcnRlIGltIEJlcmVpY2ggendpc2NoZW4gLTEgdW5kICsxIGFubmVobWVuLiBJc3QgZXIga2xlaW5lciBhbHMgTnVsbCAociA8IDApLCBzbyBiZXN0ZWh0IGVpbiBuZWdhdGl2ZXIgbGluZWFyZXIgWnVzYW1tZW5oYW5nLiBCZWkgZWluZW0gV2VydCBncsO2c3NlciBhbHMgTnVsbCAociA+IDApIGJlc3RlaHQgZWluIHBvc2l0aXZlciBsaW5lYXJlciBadXNhbW1lbmhhbmcgdW5kIGJlaSBlaW5lbSBXZXJ0IHZvbiBOdWxsIChyID0gMCkgYmVzdGVodCBrZWluIFp1c2FtbWVuaGFuZyB6d2lzY2hlbiBkZW4gVmFyaWFibGVuLg0KDQoNCmBgYHtyfQ0KdGVzdDEgPC0gY29yLnRlc3QodWVidW5nMyRMZWlzdHVuZywgdWVidW5nMyRBbHRlcmRlc01vdG9ycywgbWV0aG9kID0gInNwZWFybWFuIikNCnRlc3QxDQpgYGANCg0KDQpEaWUgSW5mb3JtYXRpb24gYXVzIGRlciBBdXN3ZXJ0dW5nIHdlcmRlbiBpbiBkZXIgVmFyaWJhbGUg4oCcdGVzdOKAnSBnZXNwZWljaGVydC48YnI+DQoNCkVzIHdpcmQgZXJzaWNodGxpY2gsIGRhc3MgZWluIFp1c2FtbWVuaGFuZyB6d2lzY2hlbiBMZWlzdHVuZyB1bmQgQWx0ZXIgZGVzIE1vdG9ycyAociA9IC45MjUyLCBwID0gLjAwMCwgbiA9MTQpdm9ybGllZ3QuIERhIHIgZWluIG5lZ2F0aXZlbiBXZXJ0IGF1ZndlaXN0LCBrYW5uIHZvbiBlaW5lbSBuZWdhdGl2ZW4gbGluZWFyZW4gdW5kIHNpZ25pZmlrYW50ZW4gWnVzYW1tZW5oYW5nIHp3aXNjaGVuIExlaXN0dW5nIHVuZCBBbHRlciBkZXMgTW90b3JzIGF1c2dlZ2FuZ2VuIHdlcmRlbi4gRGFzIGJlZGV1dGV0OiBKZSDDpGx0ZXIgZGVyIE1vdG9yLCBkZXN0byBzY2h3w6RjaGVyIGRlciBNb3RvciBvZGVyIGplIHNjaHfDpGNoZXIgZGVyIE1vdG9yLCBkZXN0byDDpGx0ZXIgZGVyIE1vdG9yLiBMZXR6dGVyIG1hY2h0IHdlbmlnIFNpbm4uIA0KDQojIEJlc3RpbW10aGVpdHNtYcOfIC0gUsKyDQoNCkRhcyBCZXN0aW1tdGhlaXRzbWHDnywgYXVjaCBEZXRlcm1pbmF0aW9uc2tvZWZmaXppZW50LCBiZXplaWNobmV0IG1pdCBSwrIgaXN0IGluIGRlciBTdGF0aXN0aWsgZWluZSBLZW5uemFobCB6dXIgQmV1cnRlaWx1bmcgZGVyIEFucGFzc3VuZ3Nnw7x0ZS4gRGFzIEJlc3RpbW10aGVpdHNtYcOfIGVudHNwcmljaHQgZGVtIFF1YWRyYXQgZGVzIEJyYXZhaXMtUGVhcnNvbi1Lb3JyZWxhdGlvbnNrb2VmZml6aWVudGVuLg0KDQokJEJlc3RpbW10aGVpdHNtYcOfPUtvcnJlbGF0aW9uc2tvZWZmaXppZW50MuKIlzEwMCQkDQokJEJlc3RpbW10aGVpdHNtYcOfPXIy4oiXMTAwJCQNCg0KYGBge3J9DQoNCnJiZXN0aW1tdCA8LSAodGVzdDEkZXN0aW1hdGUpXjIgICoxMDANCnNwcmludGYoIkJlc3RpbW10aGVpdHNtYcOfOiAlLjJmIFByb3plbnQiLHJiZXN0aW1tdCkNCmBgYA0KDQoNCg0KDQoNCg0KWnVyIEJlcmVjaHVuZyBkZXMgQmVzdGltbXRoZWl0c21hw59lcyB3aXJkIGF1ZiBkaWUgVmFyaWJhbGUg4oCcdGVzdDHigJ0genVyw7xja2dlZ3JpZmZlbi4gRGVyIEtvcnJlbGF0aW9uc2tvZWZmaXppZW50IGlzdCBpbiDigJxlc3RpbWF0ZeKAnSBnZXNwZWljaGVydC48YnI+DQoNCldpcmQgZGllc2VyIFdlcnQgbWl0IDEwMCBtdWx0aXBsaXppZXJ0LCBzbyBlcmdpYnQgc2ljaCBlaW4gUHJvemVudHdlcnQuIERpZXNlciBnaWJ0IGFuLCB3ZWxjaGVyIEFudGVpbCBkZXIgVmFyaWFueiBpbiBiZWlkZW4gVmFyaWFibGVuIGR1cmNoIGdlbWVpbnNhbWUgVmFyaWFuemFudGVpbGUgZGV0ZXJtaW5pZXJ0IHdpcmQuIEbDvHIgZGFzIHZvcmxpZWdlbmRlIEJlaXNwaWVsIGJldHLDpGd0IGRlciBBbnRlaWwgZGVyIGdlbWVpbnNhbWVuIFZhcmlhbnogODUuNjElLg0KDQoNCg0KIyBFZmZla3RzdMOkcmtlDQoNCkVmZmVrdHN0w6Rya2UgKGF1Y2ggRWZmZWt0Z3LDtsOfZSkgYmV6ZWljaG5ldCBkaWUgR3LDtsOfZSBlaW5lcyBzdGF0aXN0aXNjaGVuIEVmZmVrdHMuIFNpZSBrYW5uIHp1ciBWZXJkZXV0bGljaHVuZyBkZXIgcHJha3Rpc2NoZW4gUmVsZXZhbnogdm9uIHN0YXRpc3Rpc2NoIHNpZ25pZmlrYW50ZW4gRXJnZWJuaXNzZW4gaGVyYW5nZXpvZ2VuIHdlcmRlbi4gWnVyIE1lc3N1bmcgZGVyIEVmZmVrdHN0w6Rya2Ugd2VyZGVuIHVudGVyc2NoaWVkbGljaGUgRWZmZWt0bWHDn2UgdmVyd2VuZGV0LiBJbSBSYWhtZW4gZGllc2VzIFZlcmZhaHJlbnMgd2lyZCBkaWUgRWZmZWt0c3TDpHJrZSBuYWNoIENvaGVuIGludGVycHJldGllcnQuDQoNCg0KYGBge3J9DQpzcHJpbnRmKCJFZmZla3RzdMOkcmtlOiAlLjJmIixhYnModGVzdDEkZXN0aW1hdGUpKQ0KYGBgDQoNCg0KfHJ8ID0gLjEwIGVudHNwcmljaHQgZWluZW0gc2Nod2FjaGVuIEVmZmVrdCANCg0KfHJ8ID0gLjMwIGVudHNwcmljaHQgZWluZW0gbWl0dGxlcmVuIEVmZmVrdA0KDQp8cnwgPSAuNTAgZW50c3ByaWNodCBlaW5lbSBzdGFya2VuIEVmZmVrdA0KDQpEYXMgRXJnZWJuaXMgaXN0IHN0YXJrIG5hY2ggQ29oZW4oMTk5MikuDQoNCiMgQXVzc2FnZQ0KDQpEYXMgQWx0ZXIgdW5kIGRpZSBMZWlzdHVuZyBkZXIgTW90b3JlbiBrb3JyZWxpZXJlbiBob2Noc2lnbmlmaWthbnQgKHJobyA9IC0wLjkyNSwgcCA9IC4wMDAsIG4gPSAxNCkuIEplIGhvZWhlciBkYXMgQWx0ZXIgZWluZXMgTW90b3JzLCBkZXN0byBzY2hsZWNodGVyIGlzdCBkaWUgTGVpc3R1bmcuIDg1LjYxJSBkZXIgU3RyZXV1bmcgZGVyIGdlbWVpbnNhbWVuIFZhcmlhbnoga2FubiBkdXJjaCBBbHRlciB1bmQgTGVpc3R1bmcgZGVyIE1vdG9yZW4gZXJrbGFlcnQgd2VyZGVuIChCZXN0aW1tdGhlaXRzbWFzcykuIERhYmVpIGhhbmRlbHQgZXMgc2ljaCBuYWNoIENvaGVuICgxOTkyKSB1bSBlaW5lbiBzdGFya2VuIEVmZmVrdC4gDQoNCkgwIGthbm4gdmVyd29yZmVuIHdlcmRlbi4gIkVzIGdpYnQga2VpbmVuIGxpbmVhcmVuIFp1c2FtbWVuaGFuZyB6d2lzY2hlbiBkZW4gb3JkaW5hbHNrYWxpZXJ0ZW4gVmFyaWFibGVuIEFsdGVyIHVuZCBMZWlzdHVuZyB2b24gTW90b3Jlbi4iDQo=