Error: Evaluation error: argument “yes” is missing, with no default

Question

When I run the following code:

set<- set %>% mutate(Premium = ifelse(Price > mean(Price) + 2*sd(Price)),1,0)

I get the following error m