¿Cómo uso los argumentos de una función cuando uso sapply?

Tengo un conjunto de datos que creé mediante el enlace de columna usando elcbindX funcionar desde elgdata paquete. Esta función me permite vincular columnas con diferentes números de filas. Entonces,NASe introducen cuando no hay valores en una columna en particular. Ahora, quiero calcular la desviación estándar para cada columna. Traté de usar

sapply(dataset,sd)

Esto devuelve la desviación estándar para la columna que tiene todas las filas con valores yNA para las columnas que tienen menos filas. Traté de usar elna.rm discusión con elsd función:

sapply(dataset,sd(na.rm=T))

y recibí el mensaje de error

Error in is.data.frame(x) : argument "x" is missing, with no default

Por ejemplo:

  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))

¿Cómo puedo calcular la desviación estándar usando elsapply ¿función?

Respuestas a la pregunta(2)

Su respuesta a la pregunta