Displaying 1 result from an estimated 1 matches for "sbf2".
Did you mean:
sb2
2012 Sep 14
0
problem with user defined panel function in xyplot
...ne 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 the baseline
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 horizont...