attach(credito1)
str(credito1)
install.packages("partykit")
install.packages("CHAID", repos="http://R-Forge.R-project.org")
library(partykit)
library(CHAID)
credit_rank<-as.factor(credit_rank)
age <-as.factor(age)
amex<-as.factor(amex)
pay_week <-as.factor(pay_week)
class <-as.factor(class)
is.factor(credit_rank)
is.factor(age)
is.factor(class)
is.factor(pay_week)
is.factor(amex)