Une petite fonction sans prétention qui vous permettra de calculer simplement la SEM de tout jeu de donnée.

sem<-function(x,digits= 3,na.rm=FALSE)
{
if(na.rm==TRUE) {x<-x[!is.na(x)]}
return(round(sd(x)/sqrt(length(x)),digits))
}

Exemple : 

data<-c(4,6,7,8,34,67,77,4,4) #soit un jeu de donnée 
sem(data)
[1] 9.736

sem(data, digits = 4) #nous pouvons tout à fait spécifier le nombre de chiffre après la virgule à considérer
 [1] 9.7355