search for: capturado

Hola, Antes de nada, muchas gracias por tu ayuda. El código se ha acercado bastante, pero no termina de funcionar porque considera cada captura de un individuo como años consecutivos aunque haya pasado más tiempo entre ellos. Por ejemplo el individuo 4 es capturado por primera vez el año 1 y por segunda vez el año 3, por lo que debería de ser renombrado ya que en este ejemplo en concreto asumimos que la vida maxima son 2 años desde su primera aparición. Pero el script considera que es el mismo individuo porque es la segunda vez un individuo con ese nombre es...

Hi, I try to put a legend in a xyplot graphic. xyplot(y~x|g,ylim=c(0,80),xlim=c(10,40),as.table=T,layout=c(2,3), ylab="N??mero de machos capturados",xlab=expression(paste("Temperatura (",degree,"C)")), key=list(corner=c(0,0),x=0, y=0, text=list(legenda),lines=list(col=cor, lwd = espessura, lty=linha),columns=7,between=0.5,betwen.columns=0.5,cex=0.8)) The problem is that legend is very close do xlab. I try change c...

...s de nada, muchas gracias por tu ayuda. >> >> El código se ha acercado bastante, pero no termina de funcionar >> porque considera cada captura de un individuo como años consecutivos aunque >> haya pasado más tiempo entre ellos. >> >> Por ejemplo el individuo 4 es capturado por primera vez el año 1 y por >> segunda vez el año 3, por lo que debería de ser renombrado ya que en este >> ejemplo en concreto asumimos que la vida maxima son 2 años desde su primera >> aparición. Pero el script considera que es el mismo individuo porque es la >> segunda...

...ir registrando y cambiando los IDs a lo largo del tiempo. Muchas gracias por adelantado, Un cordial saludo, Rubén Codigo usadodatabase es la base de datos con la serie temporalID_original es el identificado original que tiene cada individuoMonth_Capt es la variable que me indica en que momento fue capturado cada individuo y por tanto si es posible o no que el individuo sea el mismo a lo largo del tiempo. newID <-sapply(unique(database$ID_original), function(x) c(0,cumsum(diff(database$Month_Capt[database$ID_original==x]))%%48))names(newID)<-(unique(database$ID_original)) new_df<-data.frame(da...