Eu tentei criar uma nova função svyquantile (e usando try() dentro dela), mas agora o erro é outro :/ require(survey) exemplo <- data.frame(ID = 1:10, var = rnorm(10), var2 = rnorm(10, 5), grupo = factor(c('A', 'A', 'A', 'A', 'B', 'B', 'B', 'C', 'D', 'D')), peso = rchisq(10, 5)) exemplo[10, 2] <- NA amostra <- svydesign(ids = ~ ID, data = exemplo, weights = ~ peso) svyquantile <- function(x, design, quantiles, ...) { out <- try(survey::svyquantile(x = x, design = design, quantiles = quantiles, ...)) termos <- attr(terms(x), "term.labels") out <- if (class(out) == "try-error") { matrix(NA, nrow = length(termos), ncol = length(quantile)) } else { out } colnames(out) <- quantiles rownames(out) <- termos return(out) } svyquantile(~ var + var2, amostra, quantile = .5, na.rm = TRUE) # Funciona survey::svyquantile(~ var + var2, amostra, quantile = .5, na.rm = TRUE) # Funciona identical(svyquantile(~ var + var2, amostra, quantile = .5, na.rm = TRUE), survey::svyquantile(~ var + var2, amostra, quantile = .5, na.rm = TRUE)) # E são iguais! svyby(~ var + var2, ~ grupo, amostra, svyquantile, quantile = .5, na.rm = TRUE) # Não funciona :( 2014-09-17 12:19 GMT-03:00 Benilton Carvalho <beniltoncarvalho@gmail.com>:
Use o try ou tryCatch para encapsular o comando que falha com poucas observações. On Sep 17, 2014 11:20 AM, "Rodrigo Coster" <rcoster@gmail.com> wrote:
Caros,
Estou usando o pacote survey para calcular a mediana de alguns dados vindos de amostras complexas. O problema é que dependendo das variáveis que peço, algumas combinações apresentam menos de 2 observações válidas, impossibilitando o cálculo (apesar deu achar que 1 observação já seria suficiente, já que ela tem peso maior que 1, mas enfim...)
Alguém saberia como fazer o comando não parar, mas sim retornar NA nesses valores?
Segue um exemplo simplificado (estou usando os dados da amostra do censo demográfico)
require(survey) exemplo <- data.frame(ID = 1:10, var = rnorm(10), grupo = factor(c('A', 'A', 'A', 'A', 'B', 'B', 'B', 'C', 'D', 'D')), peso = rchisq(10, 5)) exemplo[10, 2] <- NA amostra <- svydesign(ids = ~ ID, data = exemplo, weights = ~ peso) svyby(~ var, ~ grupo, amostra, svyquantile, quantiles = .5)
_______________________________________________ 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.