Displaying 1 result from an estimated 1 matches for "pp2a".
Did you mean:
pp2
2012 Sep 14
0
problem with user defined panel function in xyplot
...1)) - bl)/3)
m1 <- bl+m
m2 <- bl+2*m
?
##### cutting the blue poly above the baseline
# poly above the baseline
s1 <- setdiff(pp1, pp2)
y2 <- rep(m1, length(index(ts01)))
mat2a <-
cbind(c(index(ts01)[1],index(ts01), index(ts01)[length(index(ts01))]),
c(bl[[1]], y2, bl[[1]]))
pp2a <- as(mat2a,
"gpc.poly")
?
# poly above
baseline between baseline and first horizontal line at m1
sa1 <-
intersect(pp2a,s1)
?
# remaining
polygon - translate polygon down using my translate.poly function
s2 <- translate.poly(setdiff(s1, pp2a), yscale = -m)
?
# poly below...