Displaying 1 result from an estimated 1 matches for "gamqq".
Did you mean:
game
2004 Mar 08
0
Graphical Test
...lim=c(0,max(qq)),
+
ylim=c(0,max(c(exp.boot$t0,env$overall[2,]))),pch=1)
> lines(qq,env$overall[1,]); lines(qq,env$overall[2,])
> lines(qq,env$point[1,],lty=2);
lines(qq,env$point[2,],lty=2)
>
>
>
> # Testing if the aircondit data comes from a gamma
distribution
>
> gamqq.fun <- function(data, q) sort(data)/mean(data)
> gam.gen <- function(data, mle)
rgamma(length(data),shape=12, scale=108.0833/12)
> n <- nrow(aircondit)
> p<-seq(.01,.99, by=.01)
> qq <- qgamma(p,shape=12,scale=108.0833/12)
> gam.boot <- boot(aircondit$hours, gamqq.f...