Manipulando data em R

ndta <- Sys.Date() #recuperando a data correntennas.character(dta) #convertendo para stringnndta2 <- as.Date("2016-04-30") #convertendo string para datanndtas <- seq(from = dta2, to = dta, by=1) # lista com sequencia de datasnndtaFormatada <- as.Date("07/Ago/12", format = "{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}d/{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}b/{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}y") #data formatadanndtaFormatada2 <- as.Date("2012-Agosto-07", format = "{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}Y-{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}B-{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}d") #data formatadannformat(dtaFormatada, "{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}d") #recuperando o dia da datannformat(dtaFormatada, "{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}m/{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}Y") #recuperando o mes e anonnrange(dtas) #recuperando o range de datas envolvidasnndta3 <- seq(from = as.Date("2016-04-01"), to = dta2, by=1)nnall(dtas {a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}in{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806} dta3) #verificando se todas as datas de um array está contido em outronnwhich(dtas {a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}in{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806} dta3) #verificando quais datas estão contidas em outro arraynnwhich(!(dtas {a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}in{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806} dta3)) #verficando quais datas não estão contidas dentro de um arraynndtas[which(!(dtas {a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806}in{a6d75afc0951333a5191dd31582459a49b0767d1739e5fa449ee730714a07806} dta3))] #recuperando os valores das datas de quais não estão contidas dentro de um arraynndtas4 <- dtas > as.Date("2016-05-05") & dtas <= as.Date("2016-05-15") #criando subset com comparativo de datasn