diff --git a/encoder/graph.R b/encoder/graph.R index 076fa2a9207da743803d5b137f4531c02c83937e..6ef6e0a74cc25b2ffc8c82d71ccc5c8b58f93c41 100644 --- a/encoder/graph.R +++ b/encoder/graph.R @@ -1810,7 +1810,6 @@ paintCrossVariables <- function (paf, varX, varY, option, } cexNums = 1 adjHor = 0 - #if only one series if(length(unique(seriesName)) == 1) { cexBalls = 1.8 @@ -2084,8 +2083,8 @@ paintCrossVariables <- function (paf, varX, varY, option, #colBalls = "black" uniqueColors=topo.colors(length(unique(seriesName))) - #in x axis move a little every series to right in order to compare - seqX = seq(0,length(unique(seriesName))-1,by=1)-(length(unique(seriesName))-1)/2 + # #in x axis move a little every series to right in order to compare + # seqX = seq(0,length(unique(seriesName))-1,by=1)-(length(unique(seriesName))-1)/2 maxy <- max(y) miny <- min(y) @@ -2099,10 +2098,10 @@ paintCrossVariables <- function (paf, varX, varY, option, colBalls[thisSerie] = uniqueColors[i] - if(! dateAsX) { - #in x axis move a little every series to right in order to compare - x[thisSerie] = x[thisSerie] + (seqX[i]/5) - } + # if(! dateAsX) { + # #in x axis move a little every series to right in order to compare + # x[thisSerie] = x[thisSerie] + (seqX[i]/5) + # } #find min/max Y on power if(varY == "Power" && length(unique(x[thisSerie])) >= 3 && ! dateAsX) { diff --git a/encoder/pfvProfileEvolution.R b/encoder/pfvProfileEvolution.R index 880c9a9eb2433da189c3f51647ad08088b761f8c..527d27377d782e306e0c25cd1d757d1d7cb60695 100644 --- a/encoder/pfvProfileEvolution.R +++ b/encoder/pfvProfileEvolution.R @@ -171,7 +171,9 @@ pfvProfileDrawProfilesEvolution <- function(analyzeTable) pfvProfileExecute <- function(analyzeTable) { print("analyzeTable") - print(analyzeTable) + #print(analyzeTable[1:(length(analyzeTable[,1]) -3),]) + print(analyzeTable) - pfvProfileDrawProfilesEvolution(analyzeTable) + #pfvProfileDrawProfilesEvolution(analyzeTable[1:(length(analyzeTable[,1]) -3),]) + pfvProfileDrawProfilesEvolution(analyzeTable) }