メモがわりとして
外れ値の除去
remove.R
m <- mean(x)
s <- sd(x)
removed <- x[(x>=m-3*s)&(x<=m+3*s),]
ファイルへの出力
output.R
write.csv(removed,"~/Desktop/write.csv",row.names = FALSE)
write.csv()は引数でrow.names = FALSEを渡さないと1列目を行名として扱おうとするので注意
More than 5 years have passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme