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