Esta página é um redirecionador para http://ecor.ib.usp.br.
Índice
O Curso
Material de Apoio
Área dos Alunos
Visitantes
Forum
notaR
Área Restrita
Cursos Anteriores
IBUSP
Outras Insitutições
IBUSP
Outras Insitutições
Olá Paulo, desculpe ainda incomodar com isso, no último dia, mas não consigo avançar… Se puder, veja a tentativa que fiz (tirando os NA´s e usando os if´s):
ab <- function (dados, dap0, dap1, das0, das1, pap0, pap1) { if(dap0!=NULL) { dados.dap=dados[dados$dap0,] dados$ab.dap0=(pi*(dados.dap^2))/4 } if(das0!=NULL) { dados.das=dados[dados$das0,] dados$ab.das0=(pi*(dados.das^2))/4 } if(pap0!=NULL) { dados.pap=dados[dados$pap0,] dados$ab.pap0=(dados.pap^2)/(4*pi) } return(area.basal) }
Aparentemente funciona, pois ele lê a função toda. Mas para testar, usei o objeto “demogr” e digitei isso na linha de comando:
ab(demogr, dap0=T, dap1=F, das0=T, das1=F, pap0=T, pap1=F)
Apareceu a seguinte mensagem de erro:
Erro em if (dap0 != NULL) { : argumento tem comprimento zero
Provavelmente estou usando os argumentos lógicos errado, mas não consegui detectar o erro. Obrigada!
Discussão