Problemas nos scripts

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

Mauro, veja a documentação da função persp. persp(x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), z, xlim = range(x), ylim = range(y), ... 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. Acho que o seu z deve ser uma matriz... abs Paulo Em 20 de janeiro de 2012 22:47, Mauro Sznelwar <sznelwar@uol.com.br>escreveu:
** 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
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

Desculpe a gafe e a preguiça!! Mauro, veja a documentação da função persp. persp(x = seq(0, 1, length.out = nrow(z)), y = seq(0, 1, length.out = ncol(z)), z, xlim = range(x), ylim = range(y), ... 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. Acho que o seu z deve ser uma matriz... abs Paulo Em 20 de janeiro de 2012 22:47, Mauro Sznelwar <sznelwar@uol.com.br> escreveu: 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
participantes (2)
-
Mauro Sznelwar
-
Paulo Nogueira