昨日は、あまり意味がない関数だったんで、ちょっと工夫してみる。 vector からNA を除き、上下5% を除外したmean とsd を計算する関数 > trim_mn <- function(x,alpha=.05){ # alpha=.05 がデフォルト値 + x <- sort(x) + x[1:ceiling(length(x)*alpha)] <-…

This news is a little old.After 3.11, we often watch the diagnosis test for the cervical cancer on TV commercial. This message is that diagnostic test is very effective to detect and cure this cancer at early stage. Now main diagnostic tes…