ASSIGN bug example

ASSIGN.R

library("devtools")
install_github("dfjenkins3/ASSIGN")
library("ASSIGN")
data(trainingData1)
data(testData1)
data(geneList1)
tempdir <- "test2"
trainingLabel1 <- list(control = list(bcat=1:10, e2f3=1:10,
                       myc=1:10, ras=1:10, src=1:10),
                       bcat = 11:19, e2f3 = 20:28, myc= 29:38,
                       ras = 39:48, src = 49:55)
testLabel1 <- rep(c("Adeno","Squamous"),c(53,58))

assign.wrapper(trainingData=trainingData1, testData=testData1,
               trainingLabel=trainingLabel1, testLabel=testLabel1,
               geneList=NULL, n_sigGene=rep(200,5), adaptive_B=TRUE,
               adaptive_S=TRUE, mixture_beta=TRUE, outputDir= tempdir,
               iter=200, burn_in=100, sigma_sZero = 0.1, sigma_sNonZero = 0.1)