valorT<-length(dados) 
valorn<-21
valorm<-valorT/valorn
indicematrix1<-seq(from=1,to=valorT,by=valorn)
indicematrix2<-seq(from=valorn,to=valorT,by=valorn)
indicematrix<-matrix(0,valorm,2)
indicematrix[,1]<-indicematrix1
indicematrix[,2]<-indicematrix2
blocofunc<-function(posicao){
   serieaux<-dados[posicao[1]:posicao[2]]
   maximoaux<-max(serieaux)
   maximoaux}
maximos<-apply(as.matrix(indicematrix),1,blocofunc)