# parametry wejściowe
cat('Liczba przyjętych: ', intake <- 80) # przyjęci kandydaci
## Liczba przyjętych:  80
cat('Frakcja językoznawcza:', frakcja.j <- 0.6) # odsetek zainteresowanych językoznawstwem
## Frakcja językoznawcza: 0.6
cat('Rozmiar grupy:', grupa <- 21) # liczność grupy
## Rozmiar grupy: 21
cat('Wymiar godzin seminariów: ', godz <- 120) # razem godzin seminariów
## Wymiar godzin seminariów:  120
cat('Godzin drugiej tematyki: ', godz.minor <- 30) # godzin tego drugiego
## Godzin drugiej tematyki:  30
cat('Liczba godzin podstawowej tematyki:', godz.major <- godz - godz.minor)
## Liczba godzin podstawowej tematyki: 90
cat('Frakcja literaturoznawcza:', frakcja.l <- 1 - frakcja.j)
## Frakcja literaturoznawcza: 0.4
cat('Godzino-studentów jęz.:', godz.j <- intake * (frakcja.j * godz.major + frakcja.l * godz.minor))
## Godzino-studentów jęz.: 5280
cat('Godzino-studentów lit.:', godz.l <- intake * (frakcja.l * godz.major + frakcja.j * godz.minor))
## Godzino-studentów lit.: 4320
# liczba seminariów
cat('Liczba sem. językoznawczych:', ceiling(sem.j <- godz.j / 15 / grupa))
## Liczba sem. językoznawczych: 17
cat('Liczba sem. literaturoznawczych:', ceiling(sem.l <- godz.l / 30 / grupa))
## Liczba sem. literaturoznawczych: 7
grupa <- 15:21
knitr::kable(data.frame(`Rozmiar grupy` = grupa, `Semin. Jęz.` = ceiling(sem.j <- godz.j / 15 / grupa), `Semin. Lit.` = ceiling(sem.l <- godz.l / 30 / grupa)))
Rozmiar.grupy Semin..Jęz. Semin..Lit.
15 24 10
16 22 9
17 21 9
18 20 8
19 19 8
20 18 8
21 17 7