library(WebPower)
library(tidyverse)

# Předpokládejme, že chceme odhadnout lineárně regresní model s 5 prediktory
# Očekáváme, že mohou vysvětlovat 5 % (pesimistický odhad), 
# 10% (realistický odhad) nebo 15% (optimistický odhad) rozptylu v populaci.

# Uvažujeme o tom, že bychom mohli pracovat s hladinou alfa = 0.05 a možná i 
# 0.01

# A že můžeme získat vzorek o velikosti 30 až 1000 osob.

# Vypočtěte statistickou sílu pro všechny kombinace uvedených vstupních
# parametrů a výsledky znázorněte pomocí spojnicového grafu s velikostí 
# vzorku na ose X, statistickou silou na ose Y. Barevně odlište různé 
# velikosti účinku (podíl vysvětleného rozptylu na úrovni populace) a 
# rozdělte graf do dvou fazet podle hladiny alfa.