e
И тогда уровень значимость съезжает в какое то усредненное значение, без учета групп
Size: a a a
2020 April 25
e
Как правильно обратиться к столбцу, который проверяем на нормальность, не нарушая группировку
e
Спасибо
IS
а в чем принципиальная потребность обращаться по индексам внутри функции? в принципе все сработает и с именами полей
можно попросить код функции которая не работает?
можно попросить код функции которая не работает?
A
В дипилюре NSE, поэтому нужны дополнительные движения
A
library(data.table)
mtcars <- as.data.table(mtcars)
mtcars[, .(p_value = shapiro.test(mpg)$p.value), by = .(am, vs)]
f <- function(dt, x, gr) {
dt[, .(p_value = shapiro.test(get(x))$p.value), by = gr]
}
f(mtcars, "mpg", c("am", "vs"))
вот аналог с
data.table. Почему-то выходит проще, чем в "простом" tidyverseA
при обновлении все пакеты ломаются, так что делаем
update.packages(checkBuilt=TRUE, ask=FALSE)A
и Rtools надо обновлять
A
А под бубунту надо подождать 4.0, да? Когда будет?
PU
А под бубунту надо подождать 4.0, да? Когда будет?
так ставь не с репы убунты, а с cran
PU
или и там нету?
A
у меня все прописано, но новее 3.6.3 не подтягивается
PU
тут 20.04 lts вышла, меж тем
PU
значит ждать надо
IS
В дипилюре NSE, поэтому нужны дополнительные движения
foo<-function(a,...){a %>% group_by_(...) %>% summarise(p_value = shapiro.test(mpg)$p.value)}
mtcars %>% foo(.,'am','vs')
И все работает
mtcars %>% foo(.,'am','vs')
И все работает
A
А если другая переменная нужна вместо mpg?
A
Так-то можно все захардкодить. Вопрос был в том, как сделать параметризацию