# NOT RUN {
# }
# NOT RUN {
rectangle of size [0,110] x [0,90]
# }
# NOT RUN {
wr<-swin(c(0,0,110,90))
area.swin(wr)
# }
# NOT RUN {
circle with radius 50 centred on (55,45)
# }
# NOT RUN {
wc<-swin(c(55,45,50))
area.swin(wc)
# }
# NOT RUN {
polygon (diamond shape)
# }
# NOT RUN {
t1 <- c(0,0,55,0,0,45)
t2 <- c(55,0,110,0,110,45)
t3 <- c(0,45,0,90,55,90)
t4 <- c(55,90,110,90,110,45)
wp <- swin(wr, rbind(t1,t2,t3,t4))
area.swin(wp)
# }
Run the code above in your browser using DataLab