Commit a68c67d5 authored by Xavier Padullés's avatar 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