LGB <- function(Beta, alpha=.05,rpt=TRUE, plt=TRUE, pltl=TRUE) {
s<-LGBc(Beta,alpha,rpt,plt,pltl)
}