search

briandk / granovaGG

Bob Pruzek and Jim Helmreich's implementation of Elemental Graphics for Analysis of Variance
Other
15 stars 4 forks source link

where to compute confidenceBand? #9

Closed WilDoane closed 13 years ago

WilDoane commented 13 years ago

My sense is that this should be moved to the getGraphicsParams(...) function. However, it also relies on CIBandText, which doesn't get set until the getGraphicsText(...) method.

  ## Adding the Confidence band    
  confidenceBand <- data.frame(
                  cx    = ((crossbowIntercept - lowerTreatmentEffect) / 2) 
                          - shadowOffset,
                  cy    = ((crossbowIntercept + lowerTreatmentEffect) / 2) 
                          - shadowOffset,
                  cxend = ((crossbowIntercept - upperTreatmentEffect) / 2) 
                          - shadowOffset,
                  cyend = ((crossbowIntercept + upperTreatmentEffect) / 2) 
                          - shadowOffset,
                  Legend = factor(CIBandText)
                )
briandk commented 13 years ago

Solved. See commit: https://github.com/briandk/granova/commit/08d22be116aed552b75a1ae586e95d147af651ed