Alguém sabe como corrigir estes dois scrpits para rodar?
primeiro script
f.4 = rnorm(30)*dnorm(1)
x<-seq(-10,10,length= 30))
y<-x
z<-c(x, y, f.4)
persp(z)
Erro em seq.default(0, 1, length.out = ncol(z)) :
  argument 'length.out' must be of length 1
---------------------------------------------------------------------------------------------------
segundo script
frames = 5
for(i in 1:frames){
 
 x = seq(0, i, 1)
 f.4 = rnorm(30)*dnorm(1)
 
 if (i <= 5) {name = paste('000',i,'plot.jpeg',sep='')}
 
 #saves the plot as a .jpeg file in the working directory
 jpeg(name)
 contour(f.4, ylab ='probability',main = paste('Normal density with n = ', i), col = 'red')
 dev.off()
}
Erro em seq.default(0, 1, length.out = ncol(z)) :
  argument 'length.out' must be of length 1