R para Data Science

Loops For Versus Funcionais | 323

output [ i ]

<- mean

( df [[i ]])

}

output

}

Porém, você pensa que também seria útil calcular a mediana, e o desvio-padrão, então

copia e cola sua função col_mean() e substitui a mean() por median() e sd():

col_median <- function( df ) {

output <- vector( "double", length( df

))

for ( i in seq_along( df )) {

outpu[ i ] <- median( df [[i ]])

}

output

}

col_s

d <- function( df ) {<-

output <- vector( "double", length( df ))

for ( i in seq_along( df )) {

output [ i ] <- sd( df[[i ]])

}

output

}

Ops! Você copiou e colou esse código duas vezes, então é hora de pensar sobre como ...