Displaying 2 results from an estimated 2 matches for "genemetric".
2010 Dec 18
0
[BioC] problem with function
...on of each miR in deMirPresGenes with its FC to form a vector of FC in correct order
???
??? fcVector <- as.numeric(with (deMirs, FC[match(deMirPresGenes[,4], Probe)] ) )
??? #multiply fc by context score for each interaction???
? ? metric <- fcVector * as.numeric(deMirPresGenes[,11])
? ? geneMetric <- cbind(deMirPresGenes[,2], metric)
? ? colnames(geneMetric) <- c('sym', 'metric')
? ?
? ? #make cumul by aggregate
? ? listMetric <- aggregate(as.numeric(geneMetric[,2]), list(geneMetric[,1]), sum)#returns a dataframe
??? colnames(listMetric) <- c('symbol',&...
2010 Dec 17
1
help with function
...each miR in deMirPresGenes with its FC to form a vector of FC in correct order
? ? fc <- deMirs
? ? fcVector <- as.numeric(with (fc, FC[match(deMirPresGenes[,4], Probe)] ) )
? ? #multiply fc by context score for each interaction
? ? metric <- fcVector * as.numeric(deMirPresGenes[,11])
? ? geneMetric <- cbind(deMirPresGenes[,2], as.numeric(metric))
? ? #make cumul weighted score
? ? listMetric <- unstack(geneMetric, as.numeric(geneMetric[,2])~geneMetric[,1])
? ? listMetric <- as.data.frame(sapply(listMetric,sum)) #returns a dataframe
? ? colnames(listMetric) <- c('cumulMetric...