A presença de missings na variável peso de uma amostragem complexa está impedindo o R de calcular a média. Inicialmente tentei o `na.rm = TRUE`, porém não deu certo, segue trecho:

    svymean(basedados$variavel , svydesign( id = basedados$estrato , weight =     
        basedados$peso ),na.rm=TRUE)
> Erro em na.weight(data.frame(weights)) : missing values in `weights'

Também testei esta versão e nada:

    svymean(dp$Dcoracao , svydesign( id = dp$V0024 , weight = dp$teste , na.rm = TRUE   
        ),na.rm=TRUE)
 
> Erro em na.weight(data.frame(weights)) : missing values in `weights'

Depois foi sugerida outra forma, a qual mostra outra mensagem de erro, segue trecho:

    svymean(bd$Dcoracao , svydesign(id = bd[which(!is.na(bd$teste)),"V0024"], weight =   
       bd[which(!is.na(bd$teste)),"teste"]))

> Erro em tapply(1:NROW(x), list(factor(strata)), function(index) { : 
  arguments must have same length


Além disso: Mensagens de aviso perdidas:

1. In x * pweights :
  comprimento do objeto maior não é múltiplo do comprimento do objeto menor
2. In x * pweights :
  comprimento do objeto maior não é múltiplo do comprimento do objeto menor