1,2,4:7,9:10)]
head(tmp)
colnames(tmp) <- strsplit('sampleID GSM bs1 bs2 bs3...),stringsAsFactors = F,quote = '')
# OLD :'cellline','celltype','tissue'
# NEW : 'bs1','bs2','bs3...'
colnames(a)=c('sampleID','uniqID','bs1','bs2','bs3','gender','age','IP','url')
a$species='human...colClasses=c('character'),stringsAsFactors = F,quote = '')
colnames(a)=c('sampleID','uniqID','bs1','bs2','bs3...colClasses=c('character'),stringsAsFactors = F,quote = '')
colnames(a)=c('sampleID','uniqID','bs1','bs2','bs3