Testing ASSIGN Probability Convergence

ASSIGN_test.R

setwd("C:/Users/dfj/Desktop/")

data("trainingData1")
data("testData1")
data("geneList1")

trainingLabel1 <- list(control = list(bcat=1:10), bcat = 11:19)
testLabel1 <- rep(c("subtypeA","subtypeB"),c(53,58))

tempdir <- "delta_test9"

assign.wrapper(trainingData=trainingData1, testData=testData1,
               trainingLabel=trainingLabel1, testLabel=testLabel1, geneList=NULL, n_sigGene=200,
               adaptive_B=TRUE, adaptive_S=TRUE, mixture_beta=TRUE,
               outputDir=tempdir, p_beta=0.01, theta1=0.9, theta0=0.01,
               iter=200, burn_in=100, S_zeroPrior=F,sigma_sZero=100,sigma_sNonZero=100)

tempdir <- "delta_test10"

assign.wrapper(trainingData=trainingData1, testData=testData1,
               trainingLabel=trainingLabel1, testLabel=testLabel1, geneList=NULL, n_sigGene=200,
               adaptive_B=TRUE, adaptive_S=TRUE, mixture_beta=TRUE,
               outputDir=tempdir, p_beta=0.01, theta1=0.85, theta0=0.05,
               iter=200, burn_in=100, S_zeroPrior=F,sigma_sZero=100,sigma_sNonZero=100)

tempdir <- "delta_test11"
#failing with error:
#Error in heatmap(as.matrix(path[, order(coef_test[, i])]), Colv = NA,  : 
# 'x' must be a numeric matrix
assign.wrapper(trainingData=trainingData1, testData=testData1,
               trainingLabel=trainingLabel1, testLabel=testLabel1, geneList=NULL, n_sigGene=200,
               adaptive_B=TRUE, adaptive_S=TRUE, mixture_beta=TRUE,
               outputDir=tempdir, p_beta=0.01, theta1=0.9, theta0=0.01,
               iter=20000, burn_in=10000, S_zeroPrior=F,sigma_sZero=100,sigma_sNonZero=100)

tempdir <- "delta_test12"
#failing with error:
#Error in heatmap(as.matrix(path[, order(coef_test[, i])]), Colv = NA,  : 
# 'x' must be a numeric matrix
assign.wrapper(trainingData=trainingData1, testData=testData1,
               trainingLabel=trainingLabel1, testLabel=testLabel1, geneList=NULL, n_sigGene=200,
               adaptive_B=TRUE, adaptive_S=TRUE, mixture_beta=TRUE,
               outputDir=tempdir, p_beta=0.01, theta1=0.85, theta0=0.05,
               iter=20000, burn_in=10000, S_zeroPrior=F,sigma_sZero=100,sigma_sNonZero=100)