questionnaire = D %>% filter(!is.na(response_responseV), is.na(response_responseS)) %>% if (Reverse_keyed == "1") { if (response_responseV == "1") { response_responseV == "7" } else if (response_responseV == "2") { response_responseV == "6" } else if (response_responseV == "3") { response_responseV == "5" } else if (response_responseV == "5") { response_responseV == "3" } else if (response_responseV == "6") { response_responseV == "2" } else if (response_responseV == "7") { response_responseV == "1" } }