<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.3429" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV align=justify><FONT face=Arial color=#0000ff>Estava vendo a discussão,
rodei este exemplo e não reconheceu a função color.legend</FONT></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><BR></DIV>
<DIV
style="FONT-SIZE: 18pt; COLOR: #000; FONT-FAMILY: arial, helvetica, sans-serif; BACKGROUND-COLOR: #fff">
<DIV
style="FONT-SIZE: 18pt; FONT-FAMILY: arial, helvetica, sans-serif"><SPAN>Walmes!</SPAN></DIV>
<DIV
style="FONT-SIZE: 18pt; FONT-FAMILY: arial, helvetica, sans-serif"><SPAN><BR></SPAN></DIV>
<DIV
style="FONT-SIZE: 18pt; FONT-FAMILY: arial, helvetica, sans-serif"><SPAN>Valeu
pela dica, mais meu sangue não bate com a lattes. rsrsrsrsrs. Bem, eu
encontrei uma solução com a graphics. Segue abaixo para aqueles que se
interessarem. </SPAN></DIV>
<DIV
style="FONT-SIZE: 18pt; FONT-FAMILY: arial, helvetica, sans-serif"><SPAN><BR></SPAN></DIV>
<DIV><SPAN><FONT class=Apple-style-span size=5>
<DIV>layout(matrix(c(1,2),1,2,byrow=T),widths=c(4,1))</DIV>
<DIV> x <- seq(-1.95, 1.95, length = 30)</DIV>
<DIV> y <- seq(-1.95, 1.95, length = 35)</DIV>
<DIV> z <- outer(x, y, function(a,b) a*b^2)</DIV>
<DIV> nrz <- nrow(z)</DIV>
<DIV> ncz <- ncol(z)</DIV>
<DIV> # Create a function interpolating colors in the range
of specified colors</DIV>
<DIV> jet.colors <- colorRampPalette( c("blue", "green")
) </DIV>
<DIV> # Generate the desired number of colors from this
palette</DIV>
<DIV> nbcol <- 100</DIV>
<DIV> color <- jet.colors(nbcol)</DIV>
<DIV> # Compute the z-value at the facet centres</DIV>
<DIV> zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] +
z[-nrz, -ncz]</DIV>
<DIV> # Recode facet z-values into color indices</DIV>
<DIV> facetcol <- cut(zfacet, nbcol)</DIV>
<DIV> persp(x, y, z, col=color[facetcol], phi=30,
theta=-30)</DIV>
<DIV>col.labels <- c("0.0","0.2","0.4","0.6","0.8","1.0")#intervalo de
valores do Z.</DIV>
<DIV>plot(0:10,type="n",axes=FALSE,xlab="",ylab="") </DIV>
<DIV>color.legend(1,1.5,9,8,col.labels,color,gradient="y",align="rb")</DIV>
<DIV><BR></DIV>
<DIV>Allaman</DIV>
<DIV>(S,f,P)</DIV>
<DIV><BR></DIV>
<DIV> </DIV></FONT></SPAN></DIV>
<DIV
style="FONT-SIZE: 18pt; FONT-FAMILY: arial, helvetica, sans-serif"> </DIV>
<DIV
style="FONT-SIZE: 18pt; COLOR: rgb(115,115,115); FONT-FAMILY: arial, helvetica, sans-serif; BACKGROUND-COLOR: transparent"
align=center><B>M.Sc Ivan Bezerra Allaman</B> <BR>Zootecnista<BR><FONT
style="BACKGROUND-COLOR: transparent" face="comic sans ms" size=2><FONT
style="BACKGROUND-COLOR: transparent">Doutorando em Produção
Animal/Aquicultura - UFLA</FONT> <BR></FONT><FONT
size=2><I><STRONG></STRONG></I></FONT><FONT
style="BACKGROUND-COLOR: transparent" face="comic sans ms" size=2>email e msn
- ivanalaman@yahoo.com.br <BR><FONT size=1>Tel:
(35)3826-6608/9900-2924</FONT></FONT></DIV></DIV>
<P>
<P><FONT face=Arial size=2></FONT></P></BLOCKQUOTE></BODY></HTML>