求教各位大神，为什么我用sapply做书上的相同操作不管有没有data.frame，sapply总是提示缺少object，

library（mass）
sapply ( UScrime [c( “U1”,“U2”)], function (X)(c(mean=mean(x), sd=sd(x))))

提示：Error in nlevels(object) : 缺少参数"object",也没有缺省值
Called from: levels(x)
收捲时出错: (29)种类目前没有在'eval'里实现

Error: no more error handlers available (recursive errors?); invoking 'abort' restart
收捲时出错: INTEGER() can only be applied to a 'integer', not a 'unknown type #29'
Error: no more error handlers available (recursive errors?); invoking 'abort' restart