Δεδομένα
|
Άποψη για τον καθηγητή
|
|
|||||
|
Αποτέλεσμα
|
Πολύ αρνητική
|
Αρνητική
|
Ουδέτερη
|
Θετική
|
Πολύ θετική
|
Σύνολο
|
|
Αποτυχία
|
10
|
11
|
5
|
8
|
8
|
42
|
|
Επιτυχία
|
6
|
8
|
6
|
15
|
25
|
60
|
|
Σύνολο
|
16
|
19
|
11
|
23
|
33
|
102
|
Η0: Η επιτυχία στις εξετάσεις είναι ανεξάρτητη από την κρίση του μαθητή για τον καθηγητή.
Η1: όχι η Η0.
Έλεγχος ανεξαρτησίας χ2
1. Καταχώρηση δεδομένων
the.table = matrix(c(10, 11, 5, 8, 8, 6, 8, 6, 15, 25), 2, 5, byrow=TRUE) rownames(the.table) = c('Αποτυχία', 'Επιτυχία')
colnames(the.table) = c('Πολύ αρνητική', 'Αρνητική', 'Ουδέτερη', 'Θετική', 'Πολύ θετική')
2. Έλεγχος ανεξαρτησίας χ2
my.test = chisq.test(the.table)
print(my.test)
3. Αναμενόμενες συχνότητες (δεν πρέπει να είναι μικρότερες από το 5, σε ποσοστό μεγαλύτερο του 10%)
print(round(my.test$expected, 1))
4. Διαφορά μεταξύ παρατηρούμενων και αναμενόμενων συχνοτήτων
print(round(my.test$residuals, 1))
