Programm ausführen
Rscript <file> Commands
binom.test(15,20,p=0.5,alternative="two.sided");
augenzahlen <- c(1,2,3,4,5,6);
haeufigkeiten <- c(4, 15, 9, 15, 5, 12);
chisq.test(haeufigkeiten);
PearsonQ <- function(O, E) {
return(sum((O-E)^2 / E));
}
my_O <- c(18,13,22,2,16,29);
my_E <- c(14,17,20,5,25,19);
PearsonQ(my_O, my_E);