search for: agustindewi

Hola Agustin Creo que esto te podría valer Tiempos<-rnorm(100) Caudales<-rnorm(100) qmed<-0 #Tiempos<-c(1,3,5) #Caudales<-c(-1,1,-1) zeros<-function(tiempo,valor,qmed){ orden<-order(tiempo) tiempo<-tiempo[orden] valor<-valor[orden] zeros<-c() for(i in 1:(length(tiempo)-1)){ if((valor[i]-qmed)*(valor[i+1]-qmed)<0){

Buenas a todos, no encuentro la forma de hacer lo que quiero hacer, a ver si alguien me muestra el camino. La cuestión es así: estoy graficando una serie temporal en la cual tengo un único valor por mes del caudal de un río. La serie es de unos 4 años. Lo grafico con plot(..., type="l") y le agrego una abline() horizontal con un valor de caudal ficticio para mi serie temporal pero que