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

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.