colonCA
x <- t(exprs(colonCA))
dim(x)
colnames(x)
y
alon
str(alon)
