Formula: DEFF = Var_design / Var_SRS
Details
DEFT = sqrt(DEFF) is the standard-error inflation factor, and n_eff = n / DEFF the effective sample size. Both arguments may be vectors, in which case the ratio is taken element by element.
Examples
V <- c(1, 2, 3, 4, 5, 6, 7, 8)
Deftef(V, V)
#> $estimate
#> [1] 1
#>
#> $deff
#> [1] 1 1 1 1 1 1 1 1
#>
#> $deft
#> [1] 1 1 1 1 1 1 1 1
#>
#> $n
#> [1] 8
#>
#> $method
#> [1] "Kish design effect DEFF = Var_design / Var_SRS"
#>
#> attr(,"class")
#> [1] "morie_rich_result" "list"
