## Not run:
# data(Bakal2007)
# bm1<-new("BetaMixture", pheno=Bakal2007, metric="cosine",
# model="global", order=1)
# bm1<-fitNULL(bm1, nPerm=10, thetaNULL=c(alphaNULL=4, betaNULL=4),
# sumMethod="median", permMethod="all", verbose=TRUE)
# bm1<-fitBM(bm1, para=list(zInit=NULL, thetaInit=c(alphaNeg=2, betaNeg=4,
# alphaNULL=bm1@result$fitNULL$thetaNULL[["alphaNULL"]],
# betaNULL=bm1@result$fitNULL$thetaNULL[["betaNULL"]],
# alphaPos=4, betaPos=2), gamma=NULL),
# ctrl=list(fitNULL=FALSE, tol=1e-1), verbose=TRUE, gradtol=1e-3)
# view(bm1, "fitNULL")
# view(bm1, "fitBM")
# bm1
# ## End(Not run)
Run the code above in your browser using DataLab