Displaying 2 results from an estimated 2 matches for "mutate_call".
2017 Jul 20
2
dynamically create columns using a function
...[i], sep = "_")
col_mean_gg <- paste("YLD_BE", blup_datacut[i], sep = "_")
dat2 <- calc_gg(dataset = dat, col = col_mean_gg, col_name = col_name_gg)
}
dat2
}
# function calc_gg
Calc_gg<- function (dataset, col, col_name)
{
mutate_call = lazyeval::interp(~round(((a - mean(a[IS_GG ==
"YES"], na.rm = TRUE))/mean(a[IS_GG == "YES"], na.rm = TRUE)) *
100, 1), a = as.name(col))
dataset %>% group_by(TEST_SET_NAME) %>% mutate_(.dots = setNames(list(mutate_call),
col_name)) %>%...
2017 Jul 21
0
dynamically create columns using a function
...up_datacut[i], sep = "_")
>
> dat2 <- calc_gg(dataset = dat, col = col_mean_gg, col_name =
> col_name_gg)
>
> }
>
> dat2
>
> }
>
>
> # function calc_gg
>
> Calc_gg<- function (dataset, col, col_name)
>
> {
>
> mutate_call = lazyeval::interp(~round(((a - mean(a[IS_GG ==
>
> "YES"], na.rm = TRUE))/mean(a[IS_GG == "YES"], na.rm = TRUE)) *
>
> 100, 1), a = as.name(col))
>
> dataset %>% group_by(TEST_SET_NAME) %>% mutate_(.dots =
> setNames(list(mutate_ca...