# READ SURVEY RESULTS
survey <- as.numeric(unlist(read.csv(file="survey.csv", header=FALSE, sep=",")))

# READ NUMBER OF OCCURRENCES
occurrences <- as.numeric(unlist(read.csv(file="occurrences.csv", header=FALSE, sep=",")))

# MEASURE THE CORRELATION
cor(survey, occurrences, method="spearman")