#------------------
# Data Preparation
#------------------

#Read datasets
#Download the data from http://www.saedsayad.com/datasets/CreditData.zip
train <- read.csv("Credit_train.csv")
test <- read.csv("Credit_test.csv")

#Rows and Cols
dim(train)
dim(test)

#Columns name
colnames(train)
colnames(test)

#Show  
head(train)
head(test)



#-------
# ZeroR
#-------

#train
train.frq <- table(train$DEFAULT)
max.frq <- which.max(train.frq)
model.zeror <- names(max.frq)

#test
test.count <- length(test$DEFAULT)
test.error <- length(which(test$DEFAULT != model.zeror))
test.accuracy <- 1-(test.error/test.count)