library (Biobase)
library (BMA)
library (iterativeBMA)
data(trainData)
data(trainClass)
data (testData)
ret.vec <- iterateBMAglm.train.predict (train.expr.set=trainData, test.expr.set=testData, trainClass, p=100)
## compute the Brier Score
data (testClass)
brier.score (ret.vec, testClass)
Run the code above in your browser using DataLab