Displaying 1 result from an estimated 1 matches for "ppccexp".
2008 Sep 15
0
how to calculate PPCC?
...)
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 <- ppoints(x)
cor(qexp(pp,rate=rate),x)
}/
Thanks in advanced,
[[alternative HTML version deleted]]