powered by
km.GB2(b, a, p, q, k)
a.test<- 4 b.test<- 20000 p.test<- 0.7 q.test<- 1 alpha.test<-1 GB2sample<-rGB2(10000,b.test,a.test,p.test,q.test) km.GB2(b.test,a.test,p.test,q.test,k=1) mean(GB2sample)
Run the code above in your browser using DataLab