# Assume bank data is available
BANKNEW <- bank	                         # Copy bank data to new data frame BANKNEW 
BANKNEW$AGE<-2002 - BANKNEW$BDATE         # Create new variable AGE

#
BANKNEW<-BANKNEW[order(BANKNEW$GENDER),]  # Sort BANKNEW by GENDER
plot(BANKNEW$JOBTIME, BANKNEW$SALARY, xlab = "JOBTIME", ylab = "SALARY",main="Salary by Jobtime")
points(BANKNEW$JOBTIME[BANKNEW$GENDER == 2],BANKNEW$SALARY[BANKNEW$GENDER ==2],col = 3)
points(BANKNEW$JOBTIME[BANKNEW$GENDER == 1],BANKNEW$SALARY[BANKNEW$GENDER ==1],col = 4)

leg.names <- c("f","m")

key( 
    text = leg.names, 
    lines = list(type = c("p", "p")),
    border = T, corner = c(0,1) , 
    col = 3:4
)



#
export.graph(Name = "GSD2",
	Graph = "",
	ExportType = "BMP",
	FileName = "C:\\temp\\JOBTIME.BMP",
	OutputFile = "",
	ColorBits = "",
	QFactor = "",
	Progressive = F,
	NumPasses = "",
	Height = "",
	Width = "",
	Units = "")
#

plot(BANKNEW$AGE, BANKNEW$SALARY, xlab = "AGE", ylab = "SALARY",main="Salary by Age")
points(BANKNEW$AGE[BANKNEW$GENDER == 2],BANKNEW$SALARY[BANKNEW$GENDER ==2],col = 3)
points(BANKNEW$AGE[BANKNEW$GENDER == 1],BANKNEW$SALARY[BANKNEW$GENDER ==1],col = 4)
leg.names <- c("f","m")

key( 
    text = leg.names, 
    lines = list(type = c("p", "p")),
    border = T, corner = c(0,1) , 
    col = 3:4
)



#
export.graph(Name = "GSD2",
	Graph = "",
	ExportType = "BMP",
	FileName = "C:\\temp\\AGE.BMP",
	OutputFile = "",
	ColorBits = "",
	QFactor = "",
	Progressive = F,
	NumPasses = "",
	Height = "",
	Width = "",
	Units = "")

menuSplit(data = BANKNEW, split.col = "GENDER", replicate.cols = "<ALL>", result.type = "Separate", max.numeric.levels = 10, nbins = 6, save.name = "BYGEN", show.p = T)
sink("c:\\temp\\Report1.txt")
lm(BYGEN.1$SALARY ~ BYGEN.1$EDUC + BYGEN.1$JOBTIME + BYGEN.1$PREVEXP + BYGEN.1$AGE, na.action = na.exclude)
sink("c:\\temp\\Report2.txt")
lm(BYGEN.2$SALARY ~ BYGEN.2$EDUC + BYGEN.2$JOBTIME + BYGEN.2$PREVEXP + BYGEN.2$AGE, na.action = na.exclude)
sink()