লগ-সাধারণ ডেটার জন্য, ওলসন (2005) একটি 'পরিবর্তিত কক্স পদ্ধতি' প্রস্তাব দেয়
এক্সই (এক্স)=θলগ( θ )
ওয়াই¯= এস22± টিঘচএস2এন+ এস42 ( এন - 1 )------------√
ওয়াই= লগ( এক্স)ওয়াইওয়াই¯ওয়াইএস2
একটি আর ফাংশন নীচে রয়েছে:
ModifiedCox <- function(x){
n <- length(x)
y <- log(x)
y.m <- mean(y)
y.var <- var(y)
my.t <- qt(0.975, df = n-1)
my.mean <- mean(x)
upper <- y.m + y.var/2 + my.t*sqrt(y.var/n + y.var^2/(2*(n - 1)))
lower <- y.m + y.var/2 - my.t*sqrt(y.var/n + y.var^2/(2*(n - 1)))
return(list(upper = exp(upper), mean = my.mean, lower = exp(lower)))
}
অলসনের কাগজ থেকে উদাহরণটি পুনরাবৃত্তি করা
CO.level <- c(12.5, 20, 4, 20, 25, 170, 15, 20, 15)
ModifiedCox(CO.level)
$upper
[1] 78.72254
$mean
[1] 33.5
$lower
[1] 12.30929