W <- Window(chorley)
opa <- par(mfrow=c(2,5))
plot(as.mask(W, dimyx=10), col="grey", main="sample")
plot(W, add=TRUE, lwd=3, border="red")
plot(owin2mask(W, rule.pix="ma", dimyx=10), col="grey", main="majority")
plot(W, add=TRUE, lwd=3, border="red")
plot(owin2mask(W, rule.pix="i", dimyx=10), col="grey", main="inside")
plot(W, add=TRUE, lwd=3, border="red")
plot(owin2mask(W, rule.pix="c", dimyx=10), col="grey", main="cover")
plot(W, add=TRUE, lwd=3, border="red")
plot(owin2mask(W, rule.pix="b", dimyx=10), col="grey", main="boundary")
plot(W, add=TRUE, lwd=3, border="red")
plot(as.mask(complement.owin(W), dimyx=10), col="grey",
main="notsample")
plot(W, add=TRUE, lwd=3, border="red")
plot(owin2mask(W, rule.pix="mi", dimyx=10), col="grey", main="minority")
plot(W, add=TRUE, lwd=3, border="red")
plot(owin2mask(W, rule.pix="o", dimyx=10), col="grey", main="outside")
plot(W, add=TRUE, lwd=3, border="red")
plot(owin2mask(W, rule.pix="u", dimyx=10), col="grey", main="uncover")
plot(W, add=TRUE, lwd=3, border="red")
plot(owin2mask(W, rule.pix="b", dimyx=10), col="grey", main="boundary")
plot(W, add=TRUE, lwd=3, border="red")
par(opa)
Run the code above in your browser using DataLab