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