employees <- read.csv("http://download.hanbit.co.kr/exam/2011/hfda_ch09_employees_kr.csv",header=TRUE)