ich möchte einen Kontingenzkoeffizienten berechnen und komme an dieser Stelle einfach nicht weiter.
Die Codes habe ich bisher ausgeführt.
Code: Alles auswählen
> table(dataset.diseases[,"gender"],dataset.diseases[,"commute_time"])
0 0.1 0.43 0.77 1.1 1.43 1.77 2.1 2.43 2.77 3.1 3.43
female 513 49 49 38 50 54 52 50 55 24 27 14
male 530 52 53 60 60 48 49 36 47 43 22 25
> addmargins(table(dataset.diseases[,"gender"],dataset.diseases[,"commute_time"]))
0 0.1 0.43 0.77 1.1 1.43 1.77 2.1 2.43 2.77 3.1 3.43 Sum
female 513 49 49 38 50 54 52 50 55 24 27 14 975
male 530 52 53 60 60 48 49 36 47 43 22 25 1025
Sum 1043 101 102 98 110 102 101 86 102 67 49 39 2000
> prop.table(table(dataset.diseases[,"gender"],dataset.diseases[,"commute_time"]),1)
0 0.1 0.43 0.77 1.1 1.43 1.77 2.1
female 0.52615385 0.05025641 0.05025641 0.03897436 0.05128205 0.05538462 0.05333333 0.05128205
male 0.51707317 0.05073171 0.05170732 0.05853659 0.05853659 0.04682927 0.04780488 0.03512195
2.43 2.77 3.1 3.43
female 0.05641026 0.02461538 0.02769231 0.01435897
male 0.04585366 0.04195122 0.02146341 0.02439024
> a <- table(dataset.diseases[,"gender"],dataset.diseases[,"commute_time"])
> a
0 0.1 0.43 0.77 1.1 1.43 1.77 2.1 2.43 2.77 3.1 3.43
female 513 49 49 38 50 54 52 50 55 24 27 14
male 530 52 53 60 60 48 49 36 47 43 22 25
> b <- matrix(NA, 2, 2)
> + for (i in 1:nrow(a))
+ + {for (j in 1:ncol(a))
+ + b[i,j]<-sum(a[i,])*sum(a[,j])/sum(a)}
could not find function "+<-"
Kann mir vielleicht jemand bzgl. der Fehlermeldung wieterhelfen?
Was mache ich falsch?
Vielen lieben Dank!
Liebe Grüße Katti