quali.ambi                         package:unknown                     R Documentation

FUNÇÃO PARA A AVALIAÇÃO DA QUALIDADE AMBIENTAL DE ECOSSISTEMAS MARINHOS

Description:

A função quali.ambi fornece ao usuário uma avaliação da qualidade ambiental 
a partir de amostras da comunidade bentônica de um dado ecossistema marinho. Para tal, 
a função classifica os diferentes taxa da comunidade, fornecidos no objeto de entrada, 
em cinco diferentes grupos de bioindicadores. Efetuando o cálculo da abundância 
relativa por grupo e aplicando fórmulas específicas, a função classifica a área 
de acordo com seu nível de poluição e saúde da comunidade bentônica.

Usage:

quali.ambi(dados,N)

Arguments:

dados: dataframe com a abundância por amostra de cada taxa. Mínimo de duas colunas, 
uma com a lista de taxa e outra com a abundância por taxa da amostra.
 
N: Número total de amostras. Deve equivaler ao número de colunas numéricas 
do dataframe (dados) de entrada.

Details:

Para a função rodar será necessária uma tabela base contendo a classificação dos 
grupos bioindicadores por taxa bentônico, a qual foi elaborada por Borja et al. (2000) 
(complementada por Muniz et al. (2005) para ecossistemas no Atlântico da América do Sul) 
e está adaptada aqui para leitura no R (tabela_base.txt). Essa tabela base possuí duas 
colunas, uma com todos os taxa já classificados como bioindicadores (mais de 400 taxa) 
e outra com o respectivo grupo ao qual cada um pertence. A tabela deverá ser baixada 
para o diretório de trabalho do usuário antes de se usar a função.

A lista de taxa na 1ª coluna do objeto de entrada deve conter os nomes dos organismos 
ao nível taxonômico de gênero, com sua respectiva abundância por amostra nas demais 
colunas (ou apenas na segunda coluna, no caso de N=1). Apenas 6 grandes grupos da fauna 
bentônica não necessitam estarem especificados a nível de gênero, estes são:
 "Nematoda","Nemertea","Oligochaeta","Gammaridae","Plathelmintes" e "Sipuncula".
Para estes casos, o nome do grande grupo pode constar na 1ª coluna, sendo todos os 
demais em gênero.

Value:

Coeficiente biótico e Índice Biótico da(s) amostra(s).

Classificação do nível de poluição da(s) amostra(s) (de “Não poluída” à “Extremamente 
Poluída”).

Nível da saúde da comunidade da(s) amostra(s) (de “Normal” à “Azóico”).

Tabela com todos os taxa, suas abundâncias por amostra e seu respectivo grupo 
bioindicador.

Gráfico(s) com a porcentagem de cada grupo bioindicador na(s) amostra(s).

Gráfico dos índices e coeficientes bióticos por amostra (no caso de N>1).


Warning:

Atente-se para que a 1ª coluna do seu dataframe de entrada (dados), com a lista de 
taxa, seja da classe "character". Para tal, quando estiver criando o dataframe a partir 
de vetores no R, lembre-se de usar o argumento "stringsAsFactors = FALSE", para que sua 
lista de espécies não seja convertida para a classe "factor".     

É de suma importância que o nome do gênero (ou do grande grupo, se for o caso) esteja 
escrito corretamente no objeto de entrada. Ou seja, com a primeira letra maiúscula, 
demais letras minúsculas e não acompanhado por "sp.". Gêneros escritos incorretamente 
terão o grupo bioindicador classificado como "NA". Os taxa que não se encaixam 
classificados em nenhum grupo bioindicador também terão grupo classificado como "NA". 
Em ambos estes casos, os taxa em questão serão excluídos dos cálculos subsequentes e do 
resultado final da avaliação da qualidade ambiental das amostras. 

Author(s):

     Ivan Rodrigo Abrão Laurino
     ivanlaurino@usp.br

References:

     Borja, A., Franco, J., & Pérez, V. (2000). A marine biotic index to establish the 
     ecological quality of soft-bottom benthos within European estuarine and coastal 
     environments. Marine pollution bulletin, 40(12), 1100-1114.

     Grall, J., & Glémarec, M. (1997). Using biotic indices to estimate macrobenthic 
     community perturbations in the Bay of Brest. Estuarine, Coastal and Shelf Science, 
     44, 43-53.
     
     Muniz, P., Venturini, N., Pires-Vanin, A. M., Tommasi, L. R., & Borja, A. (2005).
     Testing the applicability of a Marine Biotic Index (AMBI) to assessing the 
     ecological quality of soft-bottom benthic communities, in the South America 
     Atlantic region. Marine Pollution Bulletin, 50(6), 624-637.


Examples:

# Exemplo 1: Dados com apenas uma amostra
taxa.1<-c("Sabella","Pseudopolydora","Sabellaria","Scolelepis","Heterocirrus","Scoloplos","Scrobicularia","Sertulariidae","Sextonia","Sigalion","Siphonoecetes","Sipuncula","Spio","Nematoda","Oligochaeta","Capitella","Spiophanes","Nemertea")         
praia.1<-c(sample(seq(from=0,to=1000,by=1),size=18))
comunidade.1<-data.frame(taxa.1,praia.1,stringsAsFactors = FALSE)
quali.ambi(dados=comunidade.1,N=1)

# Exemplo 2: Dados com 4 amostras
taxa.2<-c("Capitella","Monopylephorus","Pseudopolydora","Scolelepis","Scoloplos","Tubificoides","Heterocirrus","Scrobicularia","Sertulariidae","Sextonia","Sigalion","Siphonoecetes","Sipuncula","Spio","Nematoda","Oligochaeta","Spiophanes","Nemertea","Corbula","Tellina")         
praia.1<-c(20000,sample(seq(from=0,to=1000,by=1),size=19)) # inserindo alta abundância para o taxa "Capitella", reconhecido oportunista o qual domina áreas de reduzida qualidade ambiental
praia.2<-c(sample(seq(from=0,to=1000,by=10),size=20))
praia.3<-c(sample(seq(from=0,to=1000,by=20),size=20))
praia.4<-c(sample(seq(from=0,to=1000,by=50),size=20))
comunidade.2<-data.frame(taxa.2,praia.1,praia.2,praia.3,praia.4,stringsAsFactors = FALSE)
quali.ambi(dados=comunidade.2,N=4)

# Exemplo 3: Dados com 9 amostras que incluem taxa não classificados como bioindicadores ou com erro de escrita
taxa.3<-c("Capitella","Monopylephorus","Pseudopolydora","Scolelepis","Scoloplos","Tubificoides","Heterocirrus","Scrobicularia","Sertulariidae","Ucides","Sigalion","Siphonoecetes","Sipuncula","Spio","Nematoda","Oligochaeta","Spiophanes","Nemertea","corbula","Tellina","Sabella")         
praia.1<-c(20000,sample(seq(from=0,to=1000,by=1),size=20)) # inserindo alta abundância para o taxa "Capitella", reconhecido oportunista o qual domina áreas de reduzida qualidade ambiental
praia.2<-c(sample(seq(from=0,to=1000,by=10),size=21))
praia.3<-c(sample(seq(from=0,to=1000,by=20),size=21))
praia.4<-c(sample(seq(from=0,to=1000,by=50),size=21))
praia.5<-c(sample(seq(from=0,to=1000,by=10),size=21))
praia.6<-c(sample(seq(from=0,to=1000,by=20),size=21))
praia.7<-c(sample(seq(from=0,to=1000,by=50),size=21))
praia.8<-c(sample(seq(from=0,to=1000,by=20),size=21))
praia.9<-c(sample(seq(from=0,to=1000,by=10),size=20),20000) # inserindo alta abundância para o taxa "Sabella", reconhecido organismo sensível o qual só ocorre em áreas de melhor qualidade ambiental
comunidade.3<-data.frame(taxa.3,praia.1,praia.2,praia.3,praia.4,praia.5,praia.6,praia.7,praia.8,praia.9,stringsAsFactors = FALSE)
quali.ambi(dados=comunidade.3,N=9)