データフレームを丸ごとＴ得点化

試しに、データフレームを丸ごとＴ得点化する関数を作ってみた。

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)
	names(result) <- names(x)
	result
}

clusterSimパッケージのdata.Normalizationを参考にしています。
工夫の余地はいろいろありそうですが、とりあえず使い物にはなるかと。