study.area=owin(xrange=c(0,100),yrange=c(0,100))
xp=create.lines(study.area,nlines=10,width=5,angle=180)
ls=lines_to_strips(xp,study.area)
plot(ls$lines,lty=2)
# Owin will not pass package check under Mac or Linux with checkpolygons=TRUE
spatstat.options(checkpolygons=FALSE)
plot(owin(poly=ls$transects),add=TRUE)
spatstat.options(checkpolygons=TRUE)Run the code above in your browser using DataLab