分散0の列を取り除く

piyo <- hoge[,apply(hoge,2,var) != 0]

というのがあったが，実際に何が行われるかはともかくとして，見かけ上は，
piyo <- hoge[,sd(hoge) > 0]
でよい。ここで，
piyo <- hoge[,var(hoge) > 0]
としてはいけない。