powered by
Coo
edm
baseline(Coo, ldk1=1, ldk2=2, t1=c(-0.5, 0), t2=c(0.5, 0))
def.par <- par(no.readonly = TRUE) layout(matrix(1:2, 1, 2)) data(hearts) stack(hearts, border="#1A1A1A22") hearts2 <- baseline(hearts, 2, 4) stack(hearts2, border="#1A1A1A22") par(def.par)
Run the code above in your browser using DataLab