Se eu tiver um conjunto de dados diários, desejo obter o valor mínimo para cada mês e a data em que esse valor ocorreu. Se eu usar oapply.monthly função, ele me fornece o valor mínimo, mas a data correspondente é o final de cada mês, não a data em que ocorreu realmente. Como posso obter a data correta?

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