I have a large data frame that consists of data that looks something like this:
date w x y z region 1 2012 01 21 43 12 3 NO
Loop through each unique date and build the subset.
uniq <- unique(unlist(data$Date)) for (i in 1:length(uniq)){ data_1 <- subset(data, date == uniq[i]) #your desired function }