試しに、データフレームを丸ごとＴ得点化する関数を作ってみた。 T.score <- function(x) { result <- NULL for (nn in names(x)){ result <- cbind(result, 100-(qnorm(1-((rank(x[, nn])-0.5)/length(x[, nn])))*10+50)) } result <- data.frame(result) n…

id:bob3:20080224 にR言語での「正規分位点（正規化得点）の算出」というのを書きましたが、どうも世間ではこれの線型変換であるＴ得点というのがメジャーであるらしい。 #正規分位点（正規化得点）の算出 qnorm(rank(X)/(length(X)+1)) # Ｔ得点の算出 100-…

{agricolae} パッケージの関数 design.graeco を使うと簡単にグレコラテン方格がデザインできる。 > # パッケージの読み込み > library(agricolae) > > # 要因（因子、属性）と水準の設定 > T1<-c("A","B","C","D") > T2<-c("1","2","3","4") > > graeco <- …

学生時代の後輩が独立開業したというお知らせを頂く。 後輩といっても私は大したお世話もしていなくて、かえって申し訳ないぐらいのもんで。 こっちが事務所のページ↓ 「みそら行政書士・社会福祉士事務所」 こっちがブログ↓ 「日本初！リーガルソーシャルワ…