############ converting data structure #######################

##############################################################
names(data)[names(data) == 'Confidence.Score.for.Bank'] = 'cs'

#### BMC R Workshop - Day 2 #####################################################
data = read.csv("E:/R-chitwan/CS_Bank.csv") # give the location of your data here
############### categories the number data (data trasformation) #################
head(data,3)
names(data)=c("sn","cs","sex","marital",'income',"age","edu")
data = within(data,{   
  income.cat = NA
  income.cat[income < 10000] = "Low"
  income.cat[income >= 10000 & income < 20000] = "Middle"
  income.cat[income >= 20000] = "High"})
data <- within(data, {   
  income.cat1 <- NA 
  income.cat1[income < 10000] <- "< 10K"
  income.cat1[income >= 10000 & income < 20000] <- "10K-20K"
  income.cat1[income >= 20000] <- ">20K"})
table(data$income.cat1)
pie(table(data$income.cat1),col=rainbow(4))
barplot(table(data$income.cat1),col=rainbow(2))