library("ALL")
data("ALL")
############ Individual Characteristic in ALL data
bcell = grep("^B", as.character(ALL$BT))
moltyp = which(as.character(ALL$mol.biol) 
    %in% c("NEG", "BCR/ABL"))
ALL_bcrneg = ALL[, intersect(bcell, moltyp)]
ALL_bcrneg$mol.biol = factor(ALL_bcrneg$mol.biol)
data<-exprs(ALL_bcrneg)
whp<-which(rownames(data)=="1636_g_at")
tempdat=data.frame(data[whp,],ALL_bcrneg$mol.biol)
colnames(tempdat)=c("y","mol_biol")