Commit a68c67d5 by Xavier Padullés

F-V multiple sessions Fixed. TODO: Discuss about the eliminated code

parent b56c41e3
 ... ... @@ -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) { ... ...
 ... ... @@ -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) }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment