Tenho um bd com a seguinte estrutura:
head(M04) A B C D 1 60.9460 62.2680 58.5355 60.3665 2 57.3075 57.6275 85.6005 65.5345 3 73.4505 48.5370 71.5110 65.6680 4 58.2090 67.5285 64.3855 71.5910 5 53.2815 61.4225 51.4050 65.2255 7 60.7725 72.0105 71.2575 54.3345
Alguém poderia me indicar qual o erro que estou cometendo na rotina abaixo: par(cex=0.7,cex.lab=0.8,cex.axis=0.7) qcc(M04, type="xbar",center=60,title="",nsigmas=2,cex=0.7,cex.lab=0.8,cex.axis=0.7, xlab="Dia", ylab="Tempo (min)",cex=0.7,label.limits = c("", ""), restore.par = FALSE) axis(side = 4, at = q$limits[1], labels = "52", tick = T, cex.axis = 0.7, las = 1, line = -0.5) axis(side = 4, at = q$limits[2], labels = "68", tick = T, cex.axis = 0.7, las = 1, line = -0.5) O erro na janela do Log é: axis(side = 4, at = q$limits[1], labels = "52", tick = T, cex.axis = 0.7, las = 1, line = -0.5) Erro em q$limits : objeto de tipo 'closure' não possível dividir em subconjuntos Edson Lira Estatístico Manaus-Amazonas
Acho q na funcao axis o argumento at=q$limits[1] nao e permitido selecionar subgrupos. Pelo jeito e um vetor e vc escolheu somente o valor da primeir casa. Em 18/08/2014 12:57, "Edson Lira" <edinhoestat@yahoo.com.br> escreveu:
Tenho um bd com a seguinte estrutura:
head(M04) A B C D 1 60.9460 62.2680 58.5355 60.3665 2 57.3075 57.6275 85.6005 65.5345 3 73.4505 48.5370 71.5110 65.6680 4 58.2090 67.5285 64.3855 71.5910 5 53.2815 61.4225 51.4050 65.2255 7 60.7725 72.0105 71.2575 54.3345
Alguém poderia me indicar qual o erro que estou cometendo na rotina abaixo:
par(cex=0.7,cex.lab=0.8,cex.axis=0.7) qcc(M04, type="xbar",center=60,title="",nsigmas=2,cex=0.7,cex.lab=0.8,cex.axis=0.7, xlab="Dia", ylab="Tempo (min)",cex=0.7,label.limits = c("", ""), restore.par = FALSE) axis(side = 4, at = q$limits[1], labels = "52", tick = T, cex.axis = 0.7, las = 1, line = -0.5) axis(side = 4, at = q$limits[2], labels = "68", tick = T, cex.axis = 0.7, las = 1, line = -0.5)
O erro na janela do Log é: axis(side = 4, at = q$limits[1], labels = "52", tick = T, cex.axis = 0.7, las = 1, line = -0.5) Erro em q$limits : objeto de tipo 'closure' não possível dividir em subconjuntos
Edson Lira Estatístico Manaus-Amazonas
_______________________________________________ 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.
Prezado Edson, O seu código é não reproduzível. Você não forneceu meios para reproduzir os dados nem mencionou a que pacote pertence a função qqc(). Alguém bem intencionado em ajudá-lo deve proceder como? Gerar dados que você poderia fornecer, procurar pela origem da função que você usa e achar a fonte do erro? Será que isso não é ser muito otimista? Seja atencioso com seus potenciais colaboradores, forneça meios de reproduzir o seu problema, forneça um CMR. À disposição. Walmes.
Edson, Acredito que o erro seja que tu não possui a variável q definida, e por isso não consegue desenhar o axis (q, por padrão, é uma função, por isso a mensagem de erro) 2014-08-18 22:09 GMT-03:00 walmes . <walmeszeviani@gmail.com>:
Prezado Edson,
O seu código é não reproduzível. Você não forneceu meios para reproduzir os dados nem mencionou a que pacote pertence a função qqc(). Alguém bem intencionado em ajudá-lo deve proceder como? Gerar dados que você poderia fornecer, procurar pela origem da função que você usa e achar a fonte do erro? Será que isso não é ser muito otimista? Seja atencioso com seus potenciais colaboradores, forneça meios de reproduzir o seu problema, forneça um CMR.
À disposição. Walmes.
_______________________________________________ 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.
Walmes, peço desculpas pela falta de detalhes, estou usando o pacote qcc (http://cran.r-project.org/web/packages/qcc/index.html) Link dos dados: http://www.datafilehost.com/d/6655a016 A rotina completa abaixo: require(qcc) old <- qcc.options() # save defaults qcc.options("cex.stats") # get a single parameter qcc.options("cex.stats"=0.8) # change parameters qcc.options("cex.axis"=0.7) # change parameters qcc.options(bg.margin="white") par(cex=0.7,cex.lab=0.8,cex.axis=0.7) qcc(M04, type="xbar",center=60,title="",nsigmas=2,cex=0.7,cex.lab=0.8,cex.axis=0.7, xlab="Dia", ylab="Tempo (min)",cex=0.7,label.limits = c("", ""), restore.par = FALSE) axis(side = 4, at = q$limits[1], labels = "52", tick = T, cex.axis = 0.7, las = 1, line = -0.5) axis(side = 4, at = q$limits[2], labels = "68", tick = T, cex.axis = 0.7, las = 1, line = -0. [ ]'s. Edson Lira Estatístico Manaus-Amazonas Em Terça-feira, 19 de Agosto de 2014 7:44, Rodrigo Coster <rcoster@gmail.com> escreveu: Edson, Acredito que o erro seja que tu não possui a variável q definida, e por isso não consegue desenhar o axis (q, por padrão, é uma função, por isso a mensagem de erro) 2014-08-18 22:09 GMT-03:00 walmes . <walmeszeviani@gmail.com>: Prezado Edson,
O seu código é não reproduzível. Você não forneceu meios para reproduzir os dados nem mencionou a que pacote pertence a função qqc(). Alguém bem intencionado em ajudá-lo deve proceder como? Gerar dados que você poderia fornecer, procurar pela origem da função que você usa e achar a fonte do erro? Será que isso não é ser muito otimista? Seja atencioso com seus potenciais colaboradores, forneça meios de reproduzir o seu problema, forneça um CMR.
À disposição. Walmes. _______________________________________________ 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.
_______________________________________________ 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.
Prezdos colegas, Fiz um simples programa para calcular um número real elevado à um expoente inteiro, para treinar um pouco programação no R. Porém não rodou com o seguinte código e erro: B <- cat("entre com a base") 2 C <- cat("entre com o expoente inteiro C") 5 exp <- function(B,C) { if (C - as.integer(C)!= 0) cat("Entre com expoente inteiro") else{ if (C < 0) cat("Só aceitamos expoentes positivos") else if (C == 0) resp = 1 else{ resp = 1 for (i in 1:C) resp = resp*B cat ("O valor de B =",B,"elevado a C =",C,"é:",resp)}} } exp(B,C) Erro em if (C - as.integer(C) != 0) cat("Entre com expoente inteiro") else { (from #3) : argumento tem comprimento zero Se alguém puder ajudar, ficarei muito grato!!
Digite B no prompt do R e perceba que o valor de B é NULL. O mesmo vale para C. Eles não estão recebendo os valores numéricos. Fazendo
exp(2, 5) O valor de B = 2 elevado a C = 5 é: 32
dá tudo certo. 2014-08-20 14:31 GMT-03:00 Felipe <felipe.e.barletta@gmail.com>:
Prezdos colegas,
Fiz um simples programa para calcular um número real elevado à um expoente inteiro, para treinar um pouco programação no R. Porém não rodou com o seguinte código e erro:
B <- cat("entre com a base") 2 C <- cat("entre com o expoente inteiro C") 5 exp <- function(B,C) { if (C - as.integer(C)!= 0) cat("Entre com expoente inteiro") else{ if (C < 0) cat("Só aceitamos expoentes positivos") else if (C == 0) resp = 1 else{ resp = 1 for (i in 1:C) resp = resp*B cat ("O valor de B =",B,"elevado a C =",C,"é:",resp)}} } exp(B,C)
Erro em if (C - as.integer(C) != 0) cat("Entre com expoente inteiro") else { (from #3) : argumento tem comprimento zero
Se alguém puder ajudar, ficarei muito grato!!
_______________________________________________ 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.
-- Marcus Nunes http://marcusnunes.me/
Obrigado Marcus. On 20-08-2014 14:35, Marcus Nunes wrote:
Digite
B
no prompt do R e perceba que o valor de B é NULL. O mesmo vale para C. Eles não estão recebendo os valores numéricos. Fazendo
exp(2, 5) O valor de B = 2 elevado a C = 5 é: 32
dá tudo certo.
2014-08-20 14:31 GMT-03:00 Felipe <felipe.e.barletta@gmail.com <mailto:felipe.e.barletta@gmail.com>>:
Prezdos colegas,
Fiz um simples programa para calcular um número real elevado à um expoente inteiro, para treinar um pouco programação no R. Porém não rodou com o seguinte código e erro:
B <- cat("entre com a base") 2 C <- cat("entre com o expoente inteiro C") 5 exp <- function(B,C) { if (C - as.integer(C)!= 0) cat("Entre com expoente inteiro") else{ if (C < 0) cat("Só aceitamos expoentes positivos") else if (C == 0) resp = 1 else{ resp = 1 for (i in 1:C) resp = resp*B cat ("O valor de B =",B,"elevado a C =",C,"é:",resp)}} } exp(B,C)
Erro em if (C - as.integer(C) != 0) cat("Entre com expoente inteiro") else { (from #3) : argumento tem comprimento zero
Se alguém puder ajudar, ficarei muito grato!!
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br <mailto: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.
-- Marcus Nunes http://marcusnunes.me/
_______________________________________________ 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.
ja' q e' mesmo para fins didaticos, considere a seguinte solucao: myexp <- function(B,C){ stopifnot(is.integer(C), C >= 0) if (C == 0) return(1) B*myexp(B, C-1L) } myexp(2, 5L) b ps: o L depois do 5 esta' dizendo pro R que e' p garantir que o 5 e' do tipo inteiro e nao o valor real "5". Em 20 de agosto de 2014 14:46, Felipe <felipe.e.barletta@gmail.com> escreveu:
Obrigado Marcus.
On 20-08-2014 14:35, Marcus Nunes wrote:
Digite
B
no prompt do R e perceba que o valor de B é NULL. O mesmo vale para C. Eles não estão recebendo os valores numéricos. Fazendo
exp(2, 5) O valor de B = 2 elevado a C = 5 é: 32
dá tudo certo.
2014-08-20 14:31 GMT-03:00 Felipe <felipe.e.barletta@gmail.com>:
Prezdos colegas,
Fiz um simples programa para calcular um número real elevado à um expoente inteiro, para treinar um pouco programação no R. Porém não rodou com o seguinte código e erro:
B <- cat("entre com a base") 2 C <- cat("entre com o expoente inteiro C") 5 exp <- function(B,C) { if (C - as.integer(C)!= 0) cat("Entre com expoente inteiro") else{ if (C < 0) cat("Só aceitamos expoentes positivos") else if (C == 0) resp = 1 else{ resp = 1 for (i in 1:C) resp = resp*B cat ("O valor de B =",B,"elevado a C =",C,"é:",resp)}} } exp(B,C)
Erro em if (C - as.integer(C) != 0) cat("Entre com expoente inteiro") else { (from #3) : argumento tem comprimento zero
Se alguém puder ajudar, ficarei muito grato!!
_______________________________________________ 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.
-- Marcus Nunes http://marcusnunes.me/
_______________________________________________ R-br mailing listR-br@listas.c3sl.ufpr.brhttps://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.
_______________________________________________ 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.
-- [image: Benilton Carvalho on about.me] Benilton Carvalho about.me/benilton <http://about.me/benilton>
participantes (7)
-
Benilton Carvalho -
Edson Lira -
Felipe -
Fernando Antonio de souza -
Marcus Nunes -
Rodrigo Coster -
walmes .