Displaying 1 result from an estimated 1 matches for "pp2b".
Did you mean:
pp2
2012 Sep 14
0
problem with user defined panel function in xyplot
...aseline
sb2 <- setdiff(pp2, pp1)
?
# poly below
the baseline flipped on top of the base line
sbf2 <-
flip.poly(sb2, dir = "up")
?
y2 <- rep(m1, length(index(ts01)))
mat2b <-
cbind(c(index(ts01)[1],index(ts01), index(ts01)[length(index(ts01))]), c(bl[[1]],
y2, bl[[1]]))
pp2b <-
as(mat2b, "gpc.poly")
?
# poly above
baseline between baseline and first horizontal line at m1
sb1 <-
intersect(pp2b,sbf2)
?
# remaining
polygon
# translate polygon down using my translate.poly function
sb2 <- translate.poly(setdiff(sbf2, pp2b), yscale = -m)
?
# doing...