Nested IFelse in R not returning desired result

Hello i am getting this error when trying the below nested if else in R studio:

Error: unexpected ')' in "ifelse(test$X1H.2016.Segment=="CSP" & test$X2H.2016.Segment=="Enterprise","CSP to Enterprise",0))"

I should not be the number of brackets so i am not sure how i can fix it.

Here is the code:

test$Changes=ifelse(test$X1H.2016.Segment=="Commerical" & test$X2H.2016.Segment=="Commerical","Commercial to Commercial",
ifelse(test$X1H.2016.Segment=="Commerical" & test$X2H.2016.Segment=="BP Pool","Commercial to BP Pool",
ifelse(test$X1H.2016.Segment=="Commerical" & test$X2H.2016.Segment=="Enterprise","Commercial to Enterprise",
ifelse(test$X1H.2016.Segment=="Commerical" & test$X2H.2016.Segment=="Industry","Commercial to Industry",
ifelse(test$X1H.2016.Segment=="Commerical" & test$X2H.2016.Segment=="CSP","Commercial to CSP",
ifelse(test$X1H.2016.Segment=="BP Pool" & test$X2H.2016.Segment=="BP Pool","BP Pool to BP Pool",
ifelse(test$X1H.2016.Segment=="BP Pool" & test$X2H.2016.Segment=="Commercial","BP Pool to Commercial",              
ifelse(test$X1H.2016.Segment=="BP Pool" & test$X2H.2016.Segment=="Enterprise","BP Pool to Enterprise",
ifelse(test$X1H.2016.Segment=="BP Pool" & test$X2H.2016.Segment=="Industry","BP Pool to Industry",
ifelse(test$X1H.2016.Segment=="BP Pool" & test$X2H.2016.Segment=="CSP","BP Pool to CSP",
ifelse(test$X1H.2016.Segment=="Enterprise" & test$X2H.2016.Segment=="Enterprise","Enterprise to Enterprise",
ifelse(test$X1H.2016.Segment=="Enterprise" & test$X2H.2016.Segment=="Commercial","Enterprise to Commerciall",
ifelse(test$X1H.2016.Segment=="Enterprise" & test$X2H.2016.Segment=="BP Pool","Enterprise to BP Pool",
ifelse(test$X1H.2016.Segment=="Enterprise" & test$X2H.2016.Segment=="Industry","Enterprise to Industry",
ifelse(test$X1H.2016.Segment=="Enterprise" & test$X2H.2016.Segment=="CSP","Enterprise to CSP",
ifelse(test$X1H.2016.Segment=="Industry" & test$X2H.2016.Segment=="Industry","Industry to Industry",
ifelse(test$X1H.2016.Segment=="Industry" & test$X2H.2016.Segment=="Commercial","Industry to Commercial",
ifelse(test$X1H.2016.Segment=="Industry" & test$X2H.2016.Segment=="BP Pool","Industry to BP Pool",
ifelse(test$X1H.2016.Segment=="Industry" & test$X2H.2016.Segment=="Enterprise","Industry to Enterprise",
ifelse(test$X1H.2016.Segment=="Industry" & test$X2H.2016.Segment=="CSP","Industry to CSP",
ifelse(test$X1H.2016.Segment=="CSP" & test$X2H.2016.Segment=="BP Pool","CSP to BP Pool",
ifelse(test$X1H.2016.Segment=="CSP" & test$X2H.2016.Segment=="CSP","CSP to CSP",
ifelse(test$X1H.2016.Segment=="CSP" & test$X2H.2016.Segment=="Commerical","CSP to Commerical",
ifelse(test$X1H.2016.Segment=="CSP" & test$X2H.2016.Segment=="Industry","CSP to Industry",
ifelse(test$X1H.2016.Segment=="CSP" & test$X2H.2016.Segment=="Enterprise","CSP to Enterprise",0)))))))))))))))))))))))))