for (i in 1:length(filepath)) {
data <- read.csv(filepath)
date <- data[ ,1]
years <- unique(year(date))
for (k in 1:length(years)) {
nyears <- length(date[grep(years[k],date)])
if(nyears>=365) cyears[k] <- years[k]
wzyears<- list(cyears)
} }