faca por partes...
conserte o codigo a seguir onde necessario (nao testei)
set.seed(1)
x <- rnorm(100)
y <- rnorm(100)
plot(x, y, type='n')
args <- append(as.list(par('usr')), 'grey70')
names(args) <- c('xleft', 'xright', 'ybottom', 'ytop', 'col')
do.call(rect, args)
points(x, y)
--b
_______________________________________________
R-br mailing list
[email protected]
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.
