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!