allx2 <- data.frame(t(exprs(fALL)), class=ALL$BT)
