|
...
|
...
|
@@ -183,8 +183,13 @@ mergeMatricesForPlotCOMPASSResultStack <- function(x,
|
|
183
|
183
|
|
|
184
|
184
|
# Finally remove Counts column from catsMerged after assigning rownames
|
|
185
|
185
|
rownames(catsMerged) <- catsMerged$name
|
|
|
186
|
+ #Note this is not numeric type. needs to be fixed.
|
|
186
|
187
|
catsMerged <- as.data.frame(catsMerged[,setdiff(names(catsMerged), c("name", "Counts"))])
|
|
187
|
188
|
|
|
|
189
|
+ cm<-apply(catsMerged,2,as.numeric)
|
|
|
190
|
+ cm<-as.data.frame(cm)
|
|
|
191
|
+ rownames(cm)<-rownames(catsMerged)
|
|
|
192
|
+ catsMerged<-cm
|
|
188
|
193
|
# MMerged may be a noquote matrix object. Convert to a matrix object that has columns of numeric type (not a list)
|
|
189
|
194
|
MMerged <- apply(as.matrix(unclass(MMerged)), 2, unlist)
|
|
190
|
195
|
|
