Como uso argumentos de uma função ao usar sapply?
Eu tenho um conjunto de dados que criei por ligação de coluna usando ocbindX
função dogdata
pacote. Essa função permite vincular colunas com diferentes números de linhas. Assim,NA
são introduzidos quando não há valores em uma coluna específica. Agora, quero calcular o desvio padrão para cada coluna. Eu tentei usar
sapply(dataset,sd)
Isso retorna o desvio padrão para a coluna que possui todas as linhas com valores eNA
para as colunas com menos linhas. Eu tentei usar ona.rm
argumento com osd
função:
sapply(dataset,sd(na.rm=T))
e recebi a mensagem de erro
Error in is.data.frame(x) : argument "x" is missing, with no default
Por exemplo:
firstcol <- matrix(c(1:150),ncol=1)
secondcol <- matrix(c(1:300),ncol=1)
thirdcol <- matrix(c(1:450),ncol=1)
fourthcol <- matrix(c(1:600),ncol=1)
fifthcol <- matrix(c(1:30),ncol=1)
sixthcol <- matrix(c(1:30),ncol=1)
seventhcol <- matrix(c(1:30),ncol=1)
library(gdata)
allcolscomb <- data.frame(cbindX (firstcol,secondcol,thirdcol,fourthcol,fifthcol,sixthcol,seventhcol))
names(allcolscomb) <- c("1stcol","2ndcol","3rdcol","4thcol","5thcol","6thcol","7thcol")
sapply(allcolscomb,sd)
sapply(allcolscomb,sd(na.rm=T))
Como posso calcular o desvio padrão usando osapply
função?