Displaying 2 results from an estimated 2 matches for "mdexprs".
2011 Oct 07
1
Creating One Single Object with Phenotype and Expression Data
...=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(!exists("affyobj")){
mdExprs <- as.matrix(read.csv(defaultExprs,row.names=1))
if( min( mdExprs, na.rm = TRUE ) >= 0 & max( mdExprs, na.rm = TRUE ) >= 50
) {
mdExprs <- log(mdExprs, base = 2) }
affyobj <- new("ExpressionSet",exprs=mdExprs)
}
x <- arrayQualityMetrics(expressionset = affyo...
2011 Oct 07
0
Creating One Single Object Linking Multiple Datapoints
...t;**){
>> rm(affyobj)
>> }else{
>> sampleNames(affyobj)<- sub("\\..*","",sampleNames(**affyobj)) #get
>> rid
>> of .CEL etc extension, just keep GSM
>> }
>> }
>>
>> if(!exists("affyobj")){
>> mdExprs<- as.matrix(read.csv(**defaultExprs,row.names=1))
>> if( min( mdExprs, na.rm = TRUE )>= 0& max( mdExprs, na.rm = TRUE )>= 50
>>
>> ) {
>> mdExprs<- log(mdExprs, base = 2) }
>> affyobj<- new("ExpressionSet",exprs=**mdExprs)
>>...