R语言实战中用相关性探索缺失值部分，按照书上的代码写的，结果运行错误，请问怎么破？结果显示：
Error in is.data.frame(x) :
  (list) object cannot be coerced to type 'double'


我知道x是一个数据框，sd()函数是不能用于数据框的，那么请问这个应该怎么修改才能出现正确结果呢？
y <- x[which(sd(x)>0)]  #原始意图是提取sleep中含缺失值的变量。