Vidurkio PI, suskaičiuotas pagal aprašomąsias statistikas

Funkcija ci_mean_t_stat() skaičiuoja vidurkio pasikliautinajį intervalą (PI) pagal klasikinę formulę su t (Stjudento) koeficientu, kai duotos aprašomosios statistikos (vidurkis, standartinis nuokrypis, imties dydis). Naudinga, kai tokie dydžiai būna pateikti mokslinėje literatūroje.

ci_mean_t_stat(mean_, sd_, n, group = "", conf.level = 0.95)

Arguments

mean_

Vektorius su kiekvienos grupės vidurkiais.

sd_

Vektorius su kiekvienos grupės standartiniu nuokrypiu.

n

Vektorius su kiekvienos grupės dydžiu.

group

Grupės pavadinimas. Numatytoji reikšmė – tuščia eilutė ("").

conf.level

Pasikliovimo lygmuo. Numatytoji reikšmė – 0.95.

Value

Rezultatas – duomenų lentelė, su šiais stulpeliais:

• group (<fct>) – grupės pavadinimas;

• mean (<dbl>) – vidurkio įvertis;

• lwr.ci (<dbl>) – apatinė vidurkio PI riba (lwr. atitinka „lower“);

• upr.ci (<dbl>) – viršutinė vidurkio PI riba (upr. atitinka „upper“);

• sd (<dbl>) – standartinis nuokrypis;

• n (<int>) – imties/grupės dydis.

Skaičiavimai gali būti atlikti ir rezultatai pateikti daugiau nei vienai grupei.

Note

Kiekvieno iš mean_, sd_, n, group ilgis (reikšmių skaičius) turi būti (a) arba vieną reikšmė, (b) arba sutapti su ilgiausiu šios argumentų grupės vektoriumi.

Dėl aiškumo išnagrinėkite pavyzdžius.

Examples

# Pavyzdžiai

# Nurodant argumentų pavadinimus:
ci_mean_t_stat(mean_ = 362, sd_ = 35, n = 100)
#> # A tibble: 1 × 6
#>   group  mean lwr.ci upr.ci    sd     n
#>   <fct> <dbl>  <dbl>  <dbl> <dbl> <int>
#> 1 ""      362   355.   369.    35   100

# Nenurodant argumentų pavadinimų:
ci_mean_t_stat(362, 35, 100)
#> # A tibble: 1 × 6
#>   group  mean lwr.ci upr.ci    sd     n
#>   <fct> <dbl>  <dbl>  <dbl> <dbl> <int>
#> 1 ""      362   355.   369.    35   100


# Skaičiavimai kelioms grupėms:
vidurkis     <- c(1, 2, 3)
st_nuokrypis <- c(3, 2, 3)
n            <- c(50, 20, 40)
grupe        <- c("A", "B", "C")

ci_mean_t_stat(vidurkis, st_nuokrypis, n, grupe)
#> # A tibble: 3 × 6
#>   group  mean lwr.ci upr.ci    sd     n
#>   <fct> <dbl>  <dbl>  <dbl> <dbl> <int>
#> 1 A         1  0.147   1.85     3    50
#> 2 B         2  1.06    2.94     2    20
#> 3 C         3  2.04    3.96     3    40


# Simuliacija su keliais imties dydžiais:
ci_mean_t_stat(mean_ = 362, sd_ = 35, n = c(10, 50, 100, 1000))
#> # A tibble: 4 × 6
#>   group  mean lwr.ci upr.ci    sd     n
#>   <fct> <dbl>  <dbl>  <dbl> <dbl> <int>
#> 1 ""      362   337.   387.    35    10
#> 2 ""      362   352.   372.    35    50
#> 3 ""      362   355.   369.    35   100
#> 4 ""      362   360.   364.    35  1000


# Jei norite, kad rodytų daugiau skaitmenų po kablelio:
rez_pi <- ci_mean_t_stat(362, 35, 100)
as.data.frame(rez_pi)
#>   group mean   lwr.ci   upr.ci sd   n
#> 1        362 355.0552 368.9448 35 100

# Arba
# View(rez_pi)