Wenn ich eine Reihe von Tagesdaten habe, möchte ich den Mindestwert für jeden Monat und das Datum abrufen, an dem dieser Wert aufgetreten ist. Wenn ich das benutzeapply.monthly Funktion gibt es mir den Mindestwert, aber das entsprechende Datum ist das Ende eines jeden Monats, nicht das Datum, an dem es tatsächlich aufgetreten ist. Wie kann ich das richtige Datum bekommen?

library(xts)
#create sample data
dates<-seq(from=as.Date("1970-01-01"),to=as.Date("1970-12-31"),by=1)
x<-sample(1:365,365)
ts<-xts(x,dates)

#apply function
monthly.mins<-apply.monthly(ts,min)
monthly.mins