R/casewhen.R

# case when

d=tibble(x=1:6,g=c("a","a","a","b","b","b"))
d
d %>% mutate(y=case_when(
  g=="a" ~ x,
  g=="b" ~ -x
  ))
nxskok/btstan documentation built on May 24, 2019, 11:51 a.m.