bic.glm from the
BMA package until all variables are exhausted.
The data is assumed to consist of
two classes. Logistic regression is used for classification.iterateBMAglm.wrapper (sortedA, y, nbest=10, maxNvar=30, maxIter=20000, thresProbne0=1)bic.glm in the BMA package.
The default is 10.bic.glm from the BMA package.
The default is 30.bic.glm. The default is 20000.bic.glm. The default
is 1 percent.bic.glm returned by the last iteration
of bic.glm. Otherwise, -1 is returned.
The object of class bic.glm is a list consisting
of the following components:
bic.glm.bic.glm is called repeatedly. In the first application of
the bic.glm algorithm, the top maxNvar univariate
ranked genes are used. After each application of the bic.glm
algorithm, the genes with probne0 < thresProbne0
are dropped, and the next univariate ordered genes are added
to the BMA window.
The function iterateBMAglm.train calls BssWssFast before
calling this function.
Using this function, users can experiment with alternative
univariate measures.Yeung, K.Y., Bumgarner, R.E. and Raftery, A.E. (2005) Bayesian Model Averaging: Development of an improved multi-class, gene selection and classification tool for microarray data. Bioinformatics 21: 2394-2402.
iterateBMAglm.train,
iterateBMAglm.train.predict,
iterateBMAglm.train.predict.test,
BssWssFast
library (Biobase)
library (BMA)
library (iterativeBMA)
data(trainData)
data(trainClass)
## Use the BSS/WSS ratio to rank all genes in the training data
sorted.vec <- BssWssFast (t(exprs(trainData)), trainClass, numClass = 2)
## get the top ranked 50 genes
sorted.train.dat <- t(exprs(trainData[sorted.vec$ix[1:50], ]))
## run iterative bic.glm
ret.bic.glm <- iterateBMAglm.wrapper (sorted.train.dat, y=trainClass)
## The above commands are equivalent to the following
ret.bic.glm <- iterateBMAglm.train (train.expr.set=trainData, trainClass, p=50)
Run the code above in your browser using DataLab