Message-ID: <dd258e120812181217q70c6a452l5b88e1f10cb4d0c6@mail.gmail.com>
Date: 2008-12-18T20:17:48Z
From: Stefan Björk
Subject: Algorithm for calculating McCall's T-scores
In-Reply-To: <dd258e120812180333n6e0a3de9j37ddc14fa54b0bc8@mail.gmail.com>
I seem to have solved this on my own:
t.score.table <- data.frame(T=10:90,F=pnorm(10:90,mean=50.5,sd=10))
t.score <- function(x) {
p <- ecdf(x)
t <- cut(p(x),breaks=c(t.score.table$F,Inf),labels=t.score.table$T)
t <- as.numeric(levels(t))[as.integer(t)]
return(t)
}
/S
2008/12/18 Stefan Bj?rk <stefan.bjork at gmail.com>:
> I'm looking for a function or algorithm for calculating McCall's area
> transformed T-scores, but have not find any. An algorithm is described
> on http://www.visualstatistics.net/Visual Statistics
> Multimedia/normalization.htm, but this seem to be an overly
> complicated procedure for implementing in R.
>
> /S
>