Como posso obter uma soma condicional no R?