In_class exercise 0413

Revised in_class exercise3

I add the setting of par(pty=“s”). The new flag is as below.

op <- par(bg="white",pty="s")
plot.new()
plot.window(xlim=c(0, 34), 
            ylim=c(0, 34))
title(main='National flag of Denmark')
rect(0, 0, 34, 28, col="red", 
     border="red")
rect(12, 0, 16, 28, col="white", 
     border="white")
rect(0, 12, 34, 16, col="white", 
     border="white")

par(op)