Δεδομένα: Κατανομή των χρωμάτων στο δείγμα των 20 εντόμων

bug.colors = c(1, 2, 1, 3, 3, 2, 2, 1, 1, 1, 2, 3, 3, 2, 1, 1 ,1 ,2, 3, 2)
bug.colors = factor(bug.colors, levels = c(1,2,3), labels = c("Yellow", "Green", "Red"))

1. Πίνακας συχνοτήτων (1η επιλογή) (Frequency table)

library(expss)  
fre(bug.colors)

Πίνακας συχνοτήτων (2η επιλογή) (Frequency table)

table(bug.colors)

2.H₀ (ερευνητική υπόθεση σχετικά με την κατανομή του χρώματος):
Κίτρινο: 50% Πράσινο: 25% Κόκκινο: 25%

Έλεγχος απόρριψης της H₀

expected.percent = c(0.5, 0.25, 0.25) 
chisq.test(table(bug.colors), p = expected.percent)