###################################################
### chunk number 1: dol eval=FALSE
###################################################
## load("C1.rda")
## names(C1)
## C1[[2]][1,]


###################################################
### chunk number 2: domo eval=FALSE
###################################################
## ofi = dir(patt="C.*rda")
## allsm = list()
## cn = rep(NA,24)
## for (i in 1:24) { 
##   cat(i)
##   load(ofi[i]); fn = gsub(".rda", "", ofi[i]); allsm[[i]] =  get(fn)[[1]]
##   cn[i] = as.character(get(fn)[[2]][1,"Chromosome"])
##   print(fn)
##   rm(fn)
##   gc()
## }