Mauro, veja a documentação da função persp.<br><span class="Apple-style-span" style="border-collapse:separate;color:rgb(0,0,0);font-family:Arial;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;font-size:medium"><span class="Apple-style-span" style="font-family:sans-serif;font-size:13px"><pre>
persp(x = seq(0, 1, length.out = nrow(z)),<br>      y = seq(0, 1, length.out = ncol(z)),<br>      z, xlim = range(x), ylim = range(y), ...</pre></span></span><br>Como z é um vetor, tanto nrow(z) quanto ncol(z) são NULL e então x e y não são válidos para plotar.<br>
Acho que o seu z deve ser uma matriz...<br><br>abs<br>Paulo<br><br><div class="gmail_quote">Em 20 de janeiro de 2012 22:47, Mauro Sznelwar <span dir="ltr"><<a href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><u></u>





<div bgcolor="#ffffff">
<div><font color="#0000ff" face="Arial">Alguém sabe como corrigir estes dois scrpits 
para rodar?</font></div>
<div><font color="#0000ff" face="Arial">primeiro script</font></div>
<div><font face="Arial">f.4 = rnorm(30)*dnorm(1)<br></font><font face="Arial">x<-seq(-10,10,length= 30))<br>y<-x<br>z<-c(x, y, 
f.4)<br>persp(z)</font></div>
<div><font face="Arial">Erro em seq.default(0, 1, length.out = ncol(z)) : 
<br>  argument 'length.out' must be of length 
1<br>---------------------------------------------------------------------------------------------------</font></div>
<div><font color="#0000ff" face="Arial">segundo script</font></div>
<div><font face="Arial">frames = 5<br>for(i in 
1:frames){<br> <br> x = seq(0, i, 1)<br> f.4 = 
rnorm(30)*dnorm(1)</font></div>
<div> </div>
<div><font face="Arial"> if (i <= 5) {name = 
paste('000',i,'plot.jpeg',sep='')}</font></div>
<div> </div>
<div><font face="Arial"> #saves the plot as a .jpeg file in the 
working directory<br> jpeg(name)<br> contour(f.4, ylab 
='probability',main = paste('Normal density with n = ', i), col = 
'red')<br> dev.off()<br>}</font></div>
<div><font face="Arial">Erro em seq.default(0, 1, length.out = ncol(z)) : 
<br>  argument 'length.out' must be of length 1<br></font></div>
<div><font face="Arial"> </font></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br>