我正在尝试使用boot
中的R
包为Kruskal-Wallis检验计算eta方的置信区间。但这似乎不起作用,我不确定为什么。
获取eta平方(有效!)
通过一些小步骤,我从返回eta平方值的自定义函数开始。这样就行了。
# set up
set.seed(123)
library(tidyverse)
library(PMCMRplus)
# custom function to get eta-squared value
kw_eta_h <- function(data,
x,
y) {
# creating a dataframe from entered data
data <- dplyr::select(
.data = data,
x = !!rlang::enquo(x),
y = !!rlang::enquo(y)
) %>%
dplyr::filter(.data = ., !is.na(x), !is.na(y)) %>%
tibble::as.tibble(x = .)
# running the function
fit <-
PMCMRplus::kruskalTest(
formula = y ~ x,
data = data,
dist = "KruskalWallis"
)
# calculating the eta-squared estimate using the H-statistic
# ref. http://www.tss.awf.poznan.pl/files/3_Trends_Vol21_2014__no1_20.pdf
effsize <-
(fit$statistic[[1]] - fit$parameter[[1]] + 1) /
(fit$parameter[[3]] - fit$parameter[[1]])
# return the value of interest: effect size
return(effsize[[1]])
}
# using the function
kw_eta_h(iris, Species, Sepal.Length)
#> [1] 0.6458329
获取eta平方(无效):
现在,我使用了刚与boot
包结合使用的自定义函数,但是它为eta平方生成了相同的值,因此不计算置信区间。我在这里做什么错了?
# function to get confidence intervals
kw_eta_h_ci <- function(data,
x,
y,
nboot = 100,
conf.level = 0.95,
conf.type = "norm",
...) {
# creating a dataframe from entered data
data <- dplyr::select(
.data = data,
x = !!rlang::enquo(x),
y = !!rlang::enquo(y)
) %>%
dplyr::filter(.data = ., !is.na(x), !is.na(y)) %>%
tibble::as.tibble(x = .)
# eta-squared value
eta_sq_H <- kw_eta_h(
data = data,
x = x,
y = y
)
# function to obtain 95% CI for for eta-squared
eta_h_ci <- function(data, x, y, indices) {
# allows boot to select sample
d <- data[indices, ]
# running the function
fit <-
kw_eta_h(
data = data,
x = x,
y = y
)
# return the value of interest: effect size
return(fit)
}
# save the bootstrapped results to an object
bootobj <- boot::boot(
data = data,
x = x,
y = y,
statistic = eta_h_ci,
R = nboot,
parallel = "multicore",
...
)
# get 95% CI from the bootstrapped object
bootci <- boot::boot.ci(
boot.out = bootobj,
conf = conf.level,
type = conf.type
)
# extracting ci part
if (conf.type == "norm") {
ci <- bootci$normal
} else if (conf.type == "basic") {
ci <- bootci$basic
} else if (conf.type == "perc") {
ci <- bootci$perc
} else if (conf.type == "bca") {
ci <- bootci$bca
}
# preparing a dataframe out of the results
results_df <-
tibble::as_data_frame(x = cbind.data.frame(
"eta_sq_H" = eta_sq_H,
ci,
"nboot" = bootci$R
))
# returning the results
return(results_df)
}
# using the function
kw_eta_h_ci(iris, Species, Sepal.Length)
#> [1] "All values of t are equal to 0.645832897963594 \n Cannot calculate confidence intervals"
#> Error in data.frame(..., check.names = FALSE): arguments imply differing number of rows: 1, 0
由reprex package(v0.2.1)于2018-11-16创建
答案 0 :(得分:1)
在eta_h_ci
内创建d
作为新样本,但随后在data
中调用未采样的kw_eta_h
。这样可以纠正我的行为。
eta_h_ci <- function(data, x, y, indices) {
# allows boot to select sample
d <- data[indices, ]
# running the function
fit <-
kw_eta_h(
data = d, # d instead of data
x = x,
y = y
)
# return the value of interest: effect size
return(fit)
}