powered by
crnames(dnames,idx)
dimnames
require(GenABEL.data) data(ge03d2ex) a <- as.numeric(ge03d2ex[1:20,1:3]) crnames(dimnames(a),a==1)
Run the code above in your browser using DataLab