calculate probability using estimated logit model r studio code example Example: how to code binary response in r data$response <- ifelse(response == "yes", 1, 0)