====== Help ====== 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)