(test1 <- data.frame(
a=c(-1,1),
b=c(2,2)
))
(test2 <- data.frame(
a=c(1,1),
b=c(2,2)
))
library(sqldf)
sqldf::sqldf("select
case when sum(a) != 0 then sum(b)/sum(a) else 0 end as c
from test1")
sqldf::sqldf("select
case when sum(a) != 0 then sum(b)/sum(a) else 0 end as c
from test2")
library(dplyr)
summarise(test1,
c = case_when(sum(a) != 0 ~ sum(b)/sum(a) ,
TRUE ~ 0))
summarise(test2,
c = case_when(sum(a) != 0 ~ sum(b)/sum(a) ,
TRUE ~ 0))