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)
   

  } }