Взаимосвязь текучести персонала и времени зачатия ребенка в Швеции

В рамках подготовки к семинару по управлению текучестью персоналом на основе данных изучаю книгу шведского ученого Göran Broström-Event History Analysis with R-CRC Press (2012).
В книге помимо прочего приводится статистика фертильности (плодовитости) женщин. Статистика первой половины 19 века (!). Помимо прочего идут такие показатели: дата замужества, дата рождения первого ребенка, дата рождения второго ребенка и т.д...
Я человек окончательно испорченный, вижу сразу самое непотребное: я обратил внимание, что во многих случаях разница между датой выхода замуж и рождением первого ребенка менее 9 месяцев. Захотелось ответить на вопрос: а каков % тех женщин, что зачали ребенка до замужества.

деление здесь 0, 25 соответствует 3-м месяцам, 0,5 - полгода, 0, 75 - 9 месяцев, 1 - год. Заметно, что мода приходится на 0, 75 лет или 9 месяцев и соответствует интуитивной гипотезе, что бОльшая часть женщин зачинают ребенка в брачную ночь.
Медиана - 9, 72. И 42, 3 % имеет разницу между датой замужества и рождением первого ребенка менее 9 месяцев. Нужно учитывать срок беременности, но я думаю, что распределение срока беременности носит нормальное распределение, поэтому мы достаточно уверено можем сказать, что у примерно 40 % шведских женщин в 19 веке момент зачатия предшествовал свадьбе.
Для сравнения: всего было 1857 обследуемых женщин, частота указана по оси Y. Следовательно в первые три месяца после замужества ребенка родили примерно 15 % = (50  100 125)/ 1857. Можно посчитать точнее, но мне уже лень
.....
Для тех, кто следит за моими постами по текучести персонала, поняли ли вы, почему я привожу кейсы, далекие от HR?
Управление текучестью персонала на основе данных - базовый показатель текучести персонала
Я бы еще вывод сделал: аналитика - это серьезный труд, который приносит результаты через годы, нельзя сегодня поставить задачу, а завтра получить результат. Более того, аналитика не есть проект, а процесс: не думаю, что церковнослужители думали о том, что в 21 веке кто-то будет рыться в их книгах... Это еще и культура данных...

ПыСы

Для пользователей R, Rstudio
library(eha)
data(fert)
Сам же научился делать scale функции hist
hist(g$next.ivl, axes=F)
axis(2)
axis(1, at=seq(0,10, by=0.25), labels=seq(0,10, by=0.25))