# NOT RUN {
#Create data from two groups
random<-get.groups(n=c(100,100), size=c(0.7, 0.7), lambda=c(0.8, 0), rho=c(0.6, 0.6),
tp=7, trend="constant")
#Define hypothesis
h<-function(lambda.eta){
lambda.eta[2]
}
hgrad<-function(lambda.eta){
c(0, 1, 0)
}
test.nb.gf(dataC=random[101:200,], dataE=random[1:100,], h=h, hgrad=hgrad, h0=0,
trend="constant", H0=FALSE)
# }
Run the code above in your browser using DataCamp Workspace