
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