Help!!!!!

Hello,
Try the following.

incub <- function(x){
     x$Incubation <- 0
     x$Incubation[1] <- x$Symptomes[1]
     if(nr > 1)
         x$Incubation[2] <- sum(x$Symptomes[1:2])
     for(i in seq_len(nrow(x))[-(1:2)])
         x$Incubation[i] <- sum(x$Symptomes[i - (0:2)])
     x
}
contag <- function(x){
     x$CONTAGIEUX <- 0
     for(i in seq_len(nrow(x)))
         x$CONTAGIEUX[i] <- sum(x$Symptomes[i + 0:6], na.rm = TRUE)
     x
}
result <- lapply(split(dat, dat$i), incub)
result <- lapply(result, contag)
result <- do.call(rbind, result)
rownames(result) <- seq_len(nrow(result))
result

Hope this helps,

Rui Barradas
Em 24-11-2012 14:39, anoumou escreveu:

Help!!!!!

Thread (3 messages)