setwd("~/Desktop")
mites <- read.csv('mites.csv')