Skip to content

Instantly share code, notes, and snippets.

@dfjenkins3
Last active September 30, 2015 00:03
Show Gist options
  • Save dfjenkins3/b79e64e1d29c1f4baf20 to your computer and use it in GitHub Desktop.
Save dfjenkins3/b79e64e1d29c1f4baf20 to your computer and use it in GitHub Desktop.
Testing ASSIGN Probability Convergence
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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment