# NOT RUN {
data(chem)
modf<-lm(y~A*B*C*D,data=chem)
LGB(coef(modf)[-1],rpt=FALSE)
## The function is currently defined as
LGB <- function(Beta, alpha=.05,rpt=TRUE, plt=TRUE, pltl=TRUE) {
sigLGB<-LGBc(Beta,alpha,rpt,plt,pltl)
}
# }
Run the code above in your browser using DataLab