# NOT RUN {
plot(x=1:2, y=c(10,20), type="n", bty="n", xlab="", ylab="")
rayonx <- 0.01
centerx <- 1.2
centery <- 15
symbol.Male(centerx=centerx, centery = centery, rayonx=rayonx)
symbol.Female(centerx=centerx+0.5, centery = centery, rayonx=rayonx)
rayonx <- 0.03
centerx <- 1.2
centery <- 18
symbol.Male(centerx=centerx, centery = centery, rayonx=rayonx, lwd=3)
symbol.Female(centerx=centerx+0.5, centery = centery, rayonx=rayonx, lwd=3, col="red")
rayonx <- 0.05
centerx <- 1.4
centery <- 13
symbol.Male(centerx=centerx, centery = centery, rayonx=rayonx, lwd=4, col="blue")
symbol.Female(centerx=centerx+0.5, centery = centery, rayonx=rayonx, lwd=4, col="red")
# }
Run the code above in your browser using DataLab