Skip to content

Instantly share code, notes, and snippets.

@dialektike
Created Jun 11, 2022
Embed
What would you like to do?
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))
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment