Skip to content

Instantly share code, notes, and snippets.

@dfjenkins3
Created September 22, 2015 12:18
Show Gist options
  • Save dfjenkins3/dfd6a5754caa0e6e1357 to your computer and use it in GitHub Desktop.
Save dfjenkins3/dfd6a5754caa0e6e1357 to your computer and use it in GitHub Desktop.
ASSIGN bug example
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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment