Fixed bug in 'plot.lambda.selection'

CompEpigen · Jul 30, 2018 · aa95e9d · aa95e9d
1 parent 6715024
commit aa95e9d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plotting.R b/R/plotting.R
@@ -715,7 +715,7 @@ plot.lambda.selection<-function(
 
 	for(elt in 1:length(elts)){
 
-		vals<-getStatistics(MeDeComSet, K, lmbd, cg_subset, statistic=elts[elt])
+		vals <- as.numeric(getStatistics(MeDeComSet, K, lmbd, cg_subset, statistic=elts[elt]))
 		offs<-(max(vals[!is.na(vals)])-min(vals[!is.na(vals)]))/5
 
 		if(!all(is.na(vals))){