A developer created the following function:

check.CreditByIfElse<-function(x)

{

ifelse(x<=500,"Rejected","Approved")

}

If a user runs the check.CreditByIfElse command as follows:

applicants<-c(420,300,680,700,560)

check.CreditByIfElse(applicants)

What does the user get in R?

A) 420 300 680 700 560

B) RejectedRejectedRejectedRejectedRejected

C) 420,300,680,700,560

D) RejectedRejectedApproved Approved Approved