Если вы хотите, чтобы критическое значение для данной альфа и df для распределения хи-квадрат, вы должны использовать
qchisq(1-alpha, df=1)
или
qchisq(alpha, lower.tail=FALSE, df=1)
(последнее будет более точным для альфа << 1) </p>
для alpha=0.05
, это 3.841459 (что подтверждается этой веб-страницей )