binom.test(sum(cft$MotivEnglisch>3.5), length(cft$MotivEnglisch), p=0.5, alternative='two.sided', conf.level=0.95)