Цитата(nokh @ 14.03.2016 - 11:10)

У меня так же получилось. К ответам выше можно добавить, что даже если чел. попутал станд. ошибку со станд. отклонением (бывает нередко) всё равно ерунда выходит, ну и, конечно, среднее такое не получить в указанном диапазоне. Получается, что в данных как минимум две ошибки: 1) В диапазоне 17-18 или в среднем, 2) в станд. ошибке.
Да, скорее всего есть 1-2 29ти летних студента, которые сильно в результате отклонили среднее и среднеквадратическое.
Код
> my.f<-function(x)(18.2-quantile(mean(c(rep(x[1],x[2]), s)), probs=c(0.5)))^2 + (1.1-quantile(sd(c(rep(x[1],x[1]), s)), probs=c(0.5)))^2
> optim(c(23,5), my.f)
$par
[1] 20.41329 28.77820
$value
[1] 3.123124e-06
$counts
function gradient
61 NA
$convergence
[1] 0
$message
NULL
> quantile(replicate(100000, mean(c(rep(20.41,28), sample(c(18+((11:12)/12), 17+((1:10)/12)), 120, replace=T)))), probs=c(0.025, 0.5, 0.975))
2.5% 50% 97.5%
18.13500 18.21833 18.30955
> quantile(replicate(100000, sd(c(rep(20.41,28), sample(c(18+((11:12)/12), 17+((1:10)/12)), 120, replace=T)))), probs=c(0.025, 0.5, 0.975))
2.5% 50% 97.5%
1.170157 1.191596 1.211992
Например вот так