Displaying 2 results from an estimated 2 matches for "olivier3".
Did you mean:
olivier
2016 Oct 28
2
Encontrar la primera columna no NA
...dos)
#
step2 <- gather(step1, month, games, -player)
#y 3) Filtramos los meses con NA y por cada jugador nos quedamos con
# el primer dato:
step3 <- step2 %>%
filter(!is.na(games)) %>%
group_by(player) %>%
slice(1)
},
Olivier3 = {
dat <-
data.table( Uno = sample( c(runif(numero) , rep(NA , numero /2e0
)) , size = numero ) ,
dos = sample( c(runif(numero) , rep(NA , numero /1e1
)) , size = numero ) ,
tres = sample( c(runif(numero) , rep(NA , numero /2e1
)) ,...
2016 Oct 27
4
Encontrar la primera columna no NA
Por último, utilizando la indexación lineal de matriz que propusó luisfo en su momento:
> t <- Sys.time()
> M=as.matrix(dat)
> index <- which(!is.na(M)) - 1
> meses<-colnames(M)
> M2<- data.table(columna=index %/% nrow(M) +1L, jugador=index %% nrow(M) +1L , valor=M[index+1L])
> setkey(M2,jugador,columna)
>