ETA
Posted: Sun Oct 03, 2021 6:50 am
Hello. I'm new in jamovi. I would just like to ask, can this app solve ETA? not the ETA squared related to ANOVA.. just the ETA correlation.. I'm quite lost in this part of my research.
Code: Select all
eta <- function(f, y, na.rm = FALSE) {
if (is.factor(f)) # convert factor to numeric in case it is a factor
f <- as.numeric(f)
if (!(is.vector(f) & is.vector(y)))
stop("'f' must be vectors or a factor, 'y' must be a vector", call. = FALSE)
if (na.rm) {
i <- !(is.na(f) | is.na(y)) # listwise deletion for NAs
f <- f[i]
y <- y[i]
}
enne <- tapply(y, f, FUN = length)
ymedio <- tapply(y, f, FUN = mean)
my_eta <- sum((ymedio - mean(y))^2 * enne)/sum((y - mean(y))^2)
cat('eta =', my_eta)
}