Obtive uma resposta correta...

plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '')
rect(-1, -1, 1, 1, lwd = 1.5)
x <- cos(seq(0, 2 * pi, length = 1000))
y <- sin(seq(0, 2 * pi, length = 1000))
polygon(x, y, lwd = 1.5)

att,
FH


2013/11/14 FHRB Toledo <fernandohtoledo@gmail.com>
Senhores,

Segue um CMR extremamente simples... a pergunta o resultado está certo?

require(plotrix)
plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '')
rect(-1, -1, 1, 1, lwd = 1.5)
draw.circle(0, 0, 1)

Por que será que obtenho um gráfico em que o círculo ultrapassa o limite superior do quadrado?

att,
FH