test_R.R

temp <- function(x){
	temp_csv <- read_csv(file= x, locale= locale(encoding = "EUC-KR"))
	nodate <- temp_csv[,2:length(names(temp_csv))]
	return (cor(nodate))
	}