<!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><FONT face=Arial color=#0000ff>Alguém sabe como corrigir estes dois scrpits
para rodar?</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff>primeiro script</FONT></DIV>
<DIV><FONT face=Arial size=2>f.4 = rnorm(30)*dnorm(1)<BR></FONT><FONT face=Arial
size=2>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 size=2>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 color=#0000ff>segundo script</FONT></DIV>
<DIV><FONT face=Arial size=2>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 size=2> if (i <= 5) {name =
paste('000',i,'plot.jpeg',sep='')}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2> #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 size=2>Erro em seq.default(0, 1, length.out = ncol(z)) :
<BR> argument 'length.out' must be of length 1<BR></DIV></FONT>
<DIV><FONT face=Arial size=2> </DIV></FONT></BODY></HTML>