# NOT RUN {
ellip1 <- partEllipse()
ellip2 <- partEllipse(x=0.1, y=-0.1, ring.wide=0.4)
ellip3 <- partEllipse(mod="hcirc2", y=0.2, intensity=0.4,
re1=0.5, no.xax1=0, DebugLevel="Normal")
ellip4 <- partEllipse(mod="hcirc3", y=0.2, intensity=0.4,
re1=0.5, no.xax2=0, DebugLevel="Normal")
viewData(list(ellip1, ellip2, ellip3, ellip4,),
list("Part of an ellipse 1", "Part of an ellipse 2",
"Part of an ellipse 3", "Part of an ellipse 4"))
rm(ellip1,ellip2,ellip3,ellip4)
# }
Run the code above in your browser using DataLab