Рассчитать теоретические частоты нормального распределения числа позвонков у 267 датских угрей

Задача из книги Лакин "Биометрия"

Совокупность 267 датских угрей распределилась по числу позвонков следующим образом:

Характеристики этого распределения следующие: x =114,74; Sx =1,35. Рассчитать теоретические частоты нормального распределения. Решим эту задачу в среде R. Внимание! Скрипт будет обращаться к функции Tndf, которую нужно будет установить в рабочую директорию и указать к ней путь (смотри начало скрипта). Загрузить скрипт функции Tndf.R' с нашего сайта можно кликнув по ссылке.

# команда source считывает указанный скрипт 'Tndf.R' из рабочей директории.
# После ее выполнения в фоновом режиме появится функция
# к кторой можно обращаться прямо из скрипта: Tndf.R(x)
setwd('C:/R myFunction')
source('Tndf.R')

# Распределение численности позвонков датских угрей
Xi = 111:119 # варианты
Pi = c(3,9,31,71,82,46,19,5,1) # эмпирические частоты
xy = data.frame(value=Xi, freq=Pi)
x <- rep(xy$value, xy$freq)
mean(x)
sd(x)
Tndf(data = x, Ymax = 0.35)
sum(DF$Freq)
sum(DF$Tfreg)
sum(DF$ERROR)

> Tndf(data = x, Ymax = 0.35)
 data Freq Tfreg ERROR
1 111 3 2 1
2 112 9 10 -1
3 113 31 34 -3
4 114 71 68 3
5 115 82 77 5
6 116 46 51 -5
7 117 19 20 -1
8 118 5 4 1
9 119 1 1 0
> sum(DF$Freq)
[1] 267
> sum(DF$Tfreg)
[1] 267
> sum(DF$ERROR)
[1] 0