Displaying 2 results from an estimated 2 matches for "affyobj".
2011 Oct 07
1
Creating One Single Object with Phenotype and Expression Data
...quot;QC",sep="/")
sampleFile <-
paste(processedDir,"/",strInputAccession,"_RAWfilenames.txt",sep="")
defaultExprs <-
paste(processedDir,"/",strInputAccession,"_default_exprs.csv",sep="")
if(file.exists(sampleFile)){
affyobj <- try(ReadAffy(filenames=read.table(sampleFile,as.is
=T,header=FALSE)[,1]))
if(class(affyobj)=="try-error"){
rm(affyobj)
}else{
sampleNames(affyobj) <- sub("\\..*","",sampleNames(affyobj)) #get rid
of .CEL etc extension, just keep GSM
}
}
if(!exi...
2011 Oct 07
0
Creating One Single Object Linking Multiple Datapoints
...aste(processedDir,"/",**strInputAccession,"_**RAWfilenames.txt",sep="")
>> defaultExprs<-
>> paste(processedDir,"/",**strInputAccession,"_default_**exprs.csv",sep="")
>>
>> if(file.exists(sampleFile)){
>> affyobj<- try(ReadAffy(filenames=read.**table(sampleFile,as.is
>> =T,header=FALSE)[,1]))
>> if(class(affyobj)=="try-error"**){
>> rm(affyobj)
>> }else{
>> sampleNames(affyobj)<- sub("\\..*","",sampleNames(**affyobj)) #get
>&g...