Displaying 1 result from an estimated 1 matches for "ppcclog".
Did you mean:
gcclog
2008 Sep 15
0
how to calculate PPCC?
...functions
for /normal, exponential, poisson, and lognormal. /
Could someone says me if these functions are correct? Are there other
ways to estimate the correlation coefficient?
/PPCCNORM <- function(x,mean,sd) {
x <- sort(x)
pp <- ppoints(x)
cor(qnorm(pp,mean=mean,sd=sd),x)
}
PPCCLOG <- function(x,mean,sd) {
x <- sort(x)
pp <- ppoints(x)
cor(qlnorm(pp,meanlog=mean,sdlog=sd),x)
}
PPCCPOIS <- function(x,lambda) {
x <- sort(x)
pp <- ppoints(x)
cor(qpois(pp,lambda=lambda),x)
}
PPCCEXP <- function(x,rate) {
x <- sort(x)
pp <- ppoint...