Índice
- O Curso R
-
- Tutoriais
-
- Apostila
-
- 6. Testes de Hipótese (em preparação!)
- Exercícios
-
- Material de Apoio
-
- Área dos Alunos
-
- Cursos Anteriores
-
IBUSP
Outras Insitutições
Linques
Visitantes
Ferramentas do usuário
Barra lateral
05_curso_antigo:alunos2012:alunos:trabalho_final:vieiradc:start
Tabela de conteúdos
Danilo Cândido Vieira
Aluno de Pós-graduação em Sistemas Costeiros e Oceânicos (PGSISCO) - Mestrado
Centro de Estudos do Mar (CEM), Universidade Federal do Paraná (UFPR)
Linha de pesquisa: Meiofauna estuarina de bancos não vegetados: variabilidade horizontal e vertical
Desenvolvimento do Projeto: Centro de Biologia Marinha (CEBIMar), Universidade de São Paulo (USP), São Sebastião-SP
Orientador: Dr. Gustavo Fernandes Camargo Fonseca.
Meus Exercícios
Proposta Trabalho Final
PLANO A
Criar duas funções em R, que possuam em sua sintaxe uma lista atualizada de gêneros de nematóides marinhos de vida livre, de modo que:
Função 1 : Verifique possíveis erros ortográficos nos gêneros em uma tabela de dados.
Função 2 : Classifique os gêneros em guildas alimentares numa tabela de dados.
PLANO B
A identificação de nematóides marinhos de vida livre, a nível de gênero, é realizada principalmente através de chaves pictoriais (Warwick et al. 1998), que levam consideração diversos fatores morfológicos, como por exemplo: tipo de cutícula, anfídeo, boca, dente, calda, espícula, etc.. O plano B consiste na criação de uma função em R, que tome como argumentos diversas características morfológicas, de modo que retorne os gêneros que apresentam tais combinações, de modo a facilitar a identificação.
Exemplos de alguns argumentos de entrada da função:
cuticula= (“lisa”, “estriada fina”, “estriada grossa”,“pontilhada fina”, “pontilhada grossa”, “ornamentada”)
Anfídeo = (“ausente”, “copo”, “espiral simples”,“espiral múltiplo”,“guarda chuva” “rosquinha”,“outros”)
Boca= (“ausente”, “com dente sólido”, “com dente oco”, “mandíbula”)
Bulbo (“alongado”,“duplo”, “múltiplo”, “simples” , “ausente”)
cauda =(“cilindrica”, “ciclintrica conica”, “conica”, “filiforme”)
Apófise= (“presente”, “ausente”)
suplemento=(“presente”, “ausente”)
diferenciação na cutícula =(“presente”,“ausente”)
entre outras…
Comentários
Plano A: precisa definir qual o dado de entrada, imagino que seja um vetor com os nome dos generos? Pode entrar a lista de generos válida tb, não há necessidade de ter ela internamente na função! Acho que se for isso é um desafio interessante, mas precisa definir a saída: (1) nomes de generos que não foram encontrados? Ou a função vai tomar a decisão de que houve erro ortográfico?? Na função dois, como será a entrada? Um vetor com o nome do genero e outro com a classficação das guildas alimentares??
Plano B: Não entendi como a função opera! Não seria mais lógico a entrada ser um conjunto de caracteres do indivíduo? Como um conjunto de argumentos com estados de caracteres se converte em possíveis identificações…
— Alexandre Adalardo de Oliveira 2012/04/03 22:12
Trabalho Final
Como trabalho final, referente ao plano A, resolvi integrar as duas funções propostas, resultando em uma função interativa. Também adicionei na função a classificação em famílias. Em um primeiro momento, a função retorna o número de gêneros discordantes à uma lista de gêneros predefinidas (classificação de Warwick, et al., 1998), e pergunta ao usuário se ele deseja listar os gêneros discordantes (que no caso pode ser devido: ou a erros de digitação, ou à incompatibilidade com a lista de Warwick). Em caso de “Y”, os gêneros discordantes são listados e a função é interrompida. Em caso de “N”, a função continua a classificação, seguindo os critérios “found” (se o gênero foi encontrado), “family”, “genus” e “feeding type”. Se não houver gêneros discordantes, a função apenas classifica os gêneros em familia, gênero e feeding type.
classnema<-function(x)
{
x<-as.vector(x[,1])
## econtrando
obj1<-x
found<-obj1=="Enoplus"|obj1=="Enoploides"|obj1=="Enoplolaimus"|obj1=="Epacanthion"|
obj1=="Mesacanthion"|obj1=="Mesacanthoides"|obj1=="Oxyonchus"|obj1=="Paramesacanthion"|
obj1=="Thoracostomopsis"|obj1=="Trileptium"|obj1=="Anoplostoma"|obj1=="Chaetonema"|
obj1=="Crenopharynx"|obj1=="Micoletzkyia"|obj1=="Phanoderma"|obj1=="Phanodermella"|
obj1=="Phanodermopsis"|obj1=="Anticoma"|obj1=="Anticomopsis"|obj1=="Cephalanticoma"|
obj1=="Odontanticoma"|obj1=="Paranticoma"|obj1=="Dolicholaimus"|obj1=="Parironus"|
obj1=="Pheronus"|obj1=="Syringolaimus"|obj1=="Thalassironus"|obj1=="Trissonchulus"|
obj1=="Cylicolaimus"|obj1=="Deontostoma"|obj1=="Leptosomatides"|obj1=="Leptosomatum"|
obj1=="Metacylicolaimus"|obj1=="Platycoma"|obj1=="Platycomopsis"|obj1=="Pseudocella"|
obj1=="Synonchus"|obj1=="Thoracostoma"|obj1=="Halalaimus"|obj1=="Litinium"|
obj1=="Nemanema"|obj1=="Oxystomina"|obj1=="Paroxystomina"|obj1=="Thalassoalaimus"|
obj1=="Wieseria"|obj1=="Adoncholaimus"|obj1=="Filoncholaimus"|obj1=="Metaparoncholaimus"|
obj1=="Metoncholaimus"|obj1=="Meyersia"|obj1=="Oncholaimellus"|obj1=="Oncholaimus"|
obj1=="Pontonema"|obj1=="Prooncholaimus"|obj1=="Viscosia"|obj1=="Bathyeurystomina"|
obj1=="Belbolla"|obj1=="Calyptronema"|obj1=="Ditlevsenella"|obj1=="Eurystomina"|
obj1=="Pareurystomina"|obj1=="Polygastrophora"|obj1=="Symplocostoma"|obj1=="Bathylaimus"|
obj1=="Gairleanema"|obj1=="Tripyloides"|obj1=="Rhabdodemania"|obj1=="Pandolaimus"|
obj1=="Cytolaimium"|obj1=="Halanonchus"|obj1=="Rhabdocoma"|obj1=="Trefusia"|
obj1=="Trefusialaimus"|obj1=="Lauratonema"|obj1=="Xenella"|obj1=="Acantholaimus"|
obj1=="Actinonema"|obj1=="Atrochromadora"|obj1=="Chromadora"|obj1=="Chromadorella"|
obj1=="Chromadorina"|obj1=="Chromadorita"|obj1=="Dichromadora"|obj1=="Endeolophos"|
obj1=="Euchromadora"|obj1=="Graphenoma"|obj1=="Hypodontolaimus"|obj1=="Innocuonema"|
obj1=="Karkinochromadora"|obj1=="Neochromadora"|obj1=="Nygmatonchus"|obj1=="Parachromadorita"|
obj1=="Parapinnanema"|obj1=="Prochromadora"|obj1=="Prochromadorella"|obj1=="Ptycholaimellus"|
obj1=="Rhips"|obj1=="Spiliphera"|obj1=="Spilophorella"|obj1=="Steinodorella"|
obj1=="Trochamus"|obj1=="Actarjania"|obj1=="Cervonema"|obj1=="Comesoma"|
obj1=="Comesomoides"|obj1=="Dorylaimopsis"|obj1=="Hopperia"|obj1=="Laimella"|
obj1=="Metacomesoma"|obj1=="Paracomesoma"|obj1=="Paramesonchium"|obj1=="Pierrickia"|
obj1=="Sabatieria"|obj1=="Setosabatieria"|obj1=="Vasostoma"|obj1=="Comesa"|
obj1=="Ethmolaimus"|obj1=="Filitonchus"|obj1=="Gomphionchus"|obj1=="Gomphionema"|
obj1=="Nannolaimus"|obj1=="Neotonchus"|obj1=="Paraethmolaimus"|obj1=="Acanthonchus"|
obj1=="Cyatholaimus"|obj1=="Kraspedonema"|obj1=="Longicyatholaimus"|obj1=="Marylynnia"|
obj1=="Metacyatholaimus"|obj1=="Minolaimus"|obj1=="Nannolaimoides"|obj1=="Paracanthonchus"|
obj1=="Paracyatholaimoides"|obj1=="Paracyatholaimus"|obj1=="Paralongicyatholaimus"|obj1=="Pomponema"|
obj1=="Praeacanthonchus"|obj1=="Cheironchus"|obj1=="Choanolaimus"|obj1=="Choniolaimus"|
obj1=="Demonema"|obj1=="Gammanema"|obj1=="Halichoanolaimus"|obj1=="Latronema"|
obj1=="Richtersia"|obj1=="Synonchiella"|obj1=="Synonchium"|obj1=="Acanthopharyngoides"|
obj1=="Acanthopharynx"|obj1=="Catanema"|obj1=="Croconema"|obj1=="Chromaspirina"|
obj1=="Desmodora"|obj1=="Echinodesmodora"|obj1=="Eubostrichus"|obj1=="Leptonemella"|
obj1=="Metachromadora"|obj1=="Molgolaimus"|obj1=="Onyx"|obj1=="Papillonema"|
obj1=="Paradesmodora"|obj1=="Parallelocoilas"|obj1=="Perspiria"|obj1=="Polysigma"|
obj1=="Psammonema"|obj1=="Pseudochromadora"|obj1=="Pseudonchus"|obj1=="Sigmophoranema"|
obj1=="Spirinia"|obj1=="Stygodesmodora"|obj1=="Zalonema"|obj1=="Akanthepsilonema"|
obj1=="Bathyepsilonema"|obj1=="Epsilonema"|obj1=="Glochinema"|obj1=="Keratonema"|
obj1=="Leptepsilonema"|obj1=="Metaglochinema"|obj1=="Perepsilonema"|obj1=="Polkepsilonema"|
obj1=="Pternepsilonema"|obj1=="Dracognomus"|obj1=="Draconema"|obj1=="Notochaetosoma"|
obj1=="Paradraconema"|obj1=="Prochaetosoma"|obj1=="Acanthomicrolaimus"|obj1=="Aponema"|
obj1=="Bolbolaimus"|obj1=="Calomicrolaimus"|obj1=="Ixonema"|obj1=="Microlaimus"|
obj1=="Spirobolbolaimus"|obj1=="Aponchium"|obj1=="Synonema"|obj1=="Monoposthia"|
obj1=="Monoposthoides"|obj1=="Nudora"|obj1=="Rhinema"|obj1=="Alaimella"|
obj1=="Anomonema"|obj1=="Antomicron"|obj1=="Camacolaimus"|obj1=="Cricolaimus"|
obj1=="Dagda"|obj1=="Deontolaimus"|obj1=="Diodontolaimus"|obj1=="Halaphanolaimus"|
obj1=="Leptolaimoides"|obj1=="Leptolaimus"|obj1=="Listia"|obj1=="Onchium"|
obj1=="Procamacolaimus"|obj1=="Stephanolaimus"|obj1=="Manunema"|obj1=="Haliplectus"|
obj1=="Setoplectus"|obj1=="Tarvaia"|obj1=="Aegialoalaimus"|obj1=="Cyartonema"|
obj1=="Diplopeltoides"|obj1=="Southernia"|obj1=="Chitwoodia"|obj1=="Tubolaimoides"|
obj1=="Ceramonema"|obj1=="Dasynemoides"|obj1=="Metadasynemella"|obj1=="Metadasynemoides"|
obj1=="Pselionema"|obj1=="Pterygonema"|obj1=="Paramicrolaimus"|obj1=="Boucherius"|
obj1=="Gerlachius"|obj1=="Meylia"|obj1=="Noffsingeria"|obj1=="Calligyrus"|
obj1=="Desmogerlachia"|obj1=="Desmolorenzenia"|obj1=="Desmoscolex"|obj1=="Greeffiella"|
obj1=="Greeffiellopsis"|obj1=="Hapalomus"|obj1=="Pareudesmoscolex"|obj1=="Quadricoma"|
obj1=="Tricoma"|obj1=="Diplolaimella"|obj1=="Diplolaimelloides"|obj1=="Gammarinema"|
obj1=="Geomonhystera"|obj1=="Thalassomonhystera"|obj1=="Ammotheristus"|obj1=="Amphimonhystera"|
obj1=="Amphimonhystrella"|obj1=="Cobbia"|obj1=="Daptonema"|obj1=="Echinotheristus"|
obj1=="Elzalia"|obj1=="Gnomoxyala"|obj1=="Gonionchus"|obj1=="Linhystera"|
obj1=="Metadesmolaimus"|obj1=="Omicronema"|obj1=="Paramonohystera"|obj1=="Promonhystera"|
obj1=="Prorhynchonema"|obj1=="Pseudosteineria"|obj1=="Retrotheristus"|obj1=="Rhynchonema"|
obj1=="Scaptrella"|obj1=="Steineria"|obj1=="Stylotheristus"|obj1=="Theristus"|
obj1=="Trichotheristus"|obj1=="Valvaelaimus"|obj1=="Xenolaimus"|obj1=="Xyala"|
obj1=="Doliolaimus"|obj1=="Metasphaerolaimus"|obj1=="Parasphaerolaimus"|obj1=="Sphaerolaimus"|
obj1=="Subsphaerolaimus"|obj1=="Astomonema"|obj1=="Parastomonema"|obj1=="Siphonolaimus"|
obj1=="Anticyathus"|obj1=="Desmolaimus"|obj1=="Didelta"|obj1=="Disconema"|
obj1=="Eleutherolaimus"|obj1=="Eumorpholaimus"|obj1=="Linhomoeus"|obj1=="Megadesmolaimus"|
obj1=="Metalinhomoeus"|obj1=="Paralinhomoeus"|obj1=="Terschellingia"|obj1=="Apodontium"|
obj1=="Ascolaimus"|obj1=="Axonolaimus"|obj1=="Nicascolaimus"|obj1=="Odontophora"|
obj1=="Odontophoroides"|obj1=="Parodontophora"|obj1=="Pseudolella"|obj1=="Synodontium"|
obj1=="Araeolaimus"|obj1=="Campylaimus"|obj1=="Diplopeltis"|obj1=="Diplopeltula"|
obj1=="Morlaixia"|obj1=="Southerniella"|obj1=="Coninckia"|obj1=="Bodonema"
## classificando
guild<-as.vector(x)
family<-as.vector(x)
genus<-as.vector(x)
## familia ENOPLIDAE
family[family=="Enoplus"]<-"Enoplidae"
guild[guild=="Enoplus"]<-"2B"
## familia THORACOSTOMOPSIDAE
family[family=="Enoploides"]<-"Thoracostomopsidae"
guild[guild=="Enoploides"]<-"2B"
family[family=="Enoplolaimus"]<-"Thoracostomopsidae"
guild[guild=="Enoplolaimus"]<-"2B"
family[family=="Epacanthion"]<-"Thoracostomopsidae"
guild[guild=="Epacanthion"]<-"2B"
family[family=="Mesacanthion"]<-"Thoracostomopsidae"
guild[guild=="Mesacanthion"]<-"2B"
family[family=="Mesacanthoides"]<-"Thoracostomopsidae"
guild[guild=="Mesacanthoides"]<-"2B"
family[family=="Oxyonchus"]<-"Thoracostomopsidae"
guild[guild=="Oxyonchus"]<-"2B"
family[family=="Paramesacanthion"]<-"Thoracostomopsidae"
guild[guild=="Paramesacanthion"]<-"2B"
family[family=="Thoracostomopsis"]<-"Thoracostomopsidae"
guild[guild=="Thoracostomopsis"]<-"2B"
family[family=="Trileptium"]<-"Thoracostomopsidae"
guild[guild=="Trileptium"]<-"2B"
## familia ANOPLOSTOMATIDAE
family[family=="Anoplostoma"]<-"Anoplostomatidae"
guild[guild=="Anoplostoma"]<-"1B"
family[family=="Chaetonema"]<-"Anoplostomatidae"
guild[guild=="Chaetonema"]<-"1B"
## familia PHANODERMATIDAE
family[family=="Crenopharynx"]<-"Phanodermatidae"
guild[guild=="Crenopharynx"]<-"1A"
family[family=="Micoletzkyia"]<-"Phanodermatidae"
guild[guild=="Micoletzkyia"]<-"1A"
family[family=="Phanoderma"]<-"Phanodermatidae"
guild[guild=="Phanoderma"]<-"2A"
family[family=="Phanodermella"]<-"Phanodermatidae"
guild[guild=="Phanodermella"]<-"1A"
family[family=="Phanodermopsis"]<-"Phanodermatidae"
guild[guild=="Phanodermopsis"]<-"2A"
## familia ANTICOMIDAE
family[family=="Anticoma"]<-"Anticomidae"
guild[guild=="Anticoma"]<-"1A"
family[family=="Anticomopsis"]<-"Anticomidae"
guild[guild=="Anticomopsis"]<-"1A"
family[family=="Cephalanticoma"]<-"Anticomidae"
guild[guild=="Cephalanticoma"]<-"2A"
family[family=="Odontanticoma"]<-"Anticomidae"
guild[guild=="Odontanticoma"]<-"2A"
family[family=="Paranticoma"]<-"Anticomidae"
guild[guild=="Paranticoma"]<-"2A"
## familia IRONIDAE
family[family=="Dolicholaimus"]<-"Ironidae"
guild[guild=="Dolicholaimus"]<-"2B"
family[family=="Parironus"]<-"Ironidae"
guild[guild=="Parironus"]<-"2B"
family[family=="Pheronus"]<-"Ironidae"
guild[guild=="Pheronus"]<-"2B"
family[family=="Syringolaimus"]<-"Ironidae"
guild[guild=="Syringolaimus"]<-"2A"
family[family=="Thalassironus"]<-"Ironidae"
guild[guild=="Thalassironus"]<-"2B"
family[family=="Trissonchulus"]<-"Ironidae"
guild[guild=="Trissonchulus"]<-"2A"
## familia LEPTOSOMATIDAE
family[family=="Cylicolaimus"]<-"Leptosomatidae"
guild[guild=="Cylicolaimus"]<-"2B"
family[family=="Deontostoma"]<-"Leptosomatidae"
guild[guild=="Deontostoma"]<-"2A"
family[family=="Leptosomatides"]<-"Leptosomatidae"
guild[guild=="Leptosomatides"]<-"1A"
family[family=="Leptosomatum"]<-"Leptosomatidae"
guild[guild=="Leptosomatum"]<-"1A"
family[family=="Metacylicolaimus"]<-"Leptosomatidae"
guild[guild=="Metacylicolaimus"]<-"2A"
family[family=="Platycoma"]<-"Leptosomatidae"
guild[guild=="Platycoma"]<-"2A"
family[family=="Platycomopsis"]<-"Leptosomatidae"
guild[guild=="Platycomopsis"]<-"1A"
family[family=="Pseudocella"]<-"Leptosomatidae"
guild[guild=="Pseudocella"]<-"2B"
family[family=="Synonchus"]<-"Leptosomatidae"
guild[guild=="Synonchus"]<-"2A"
family[family=="Thoracostoma"]<-"Leptosomatidae"
guild[guild=="Thoracostoma"]<-"2A"
## familia OXYSTOMINIDAE
family[family=="Halalaimus"]<-"Oxystominidae"
guild[guild=="Halalaimus"]<-"1A"
family[family=="Litinium"]<-"Oxystominidae"
guild[guild=="Litinium"]<-"1A"
family[family=="Nemanema"]<-"Oxystominidae"
guild[guild=="Nemanema"]<-"1A"
family[family=="Oxystomina"]<-"Oxystominidae"
guild[guild=="Oxystomina"]<-"1A"
family[family=="Paroxystomina"]<-"Oxystominidae"
guild[guild=="Paroxystomina"]<-"2B"
family[family=="Thalassoalaimus"]<-"Oxystominidae"
guild[guild=="Thalassoalaimus"]<-"1A"
family[family=="Wieseria"]<-"Oxystominidae"
guild[guild=="Wieseria"]<-"1A"
## familia ONCHOLAIMIDAE
family[family=="Adoncholaimus"]<-"Oncholaimidae"
guild[guild=="Adoncholaimus"]<-"2B"
family[family=="Filoncholaimus"]<-"Oncholaimidae"
guild[guild=="Filoncholaimus"]<-"2B"
family[family=="Metaparoncholaimus"]<-"Oncholaimidae"
guild[guild=="Metaparoncholaimus"]<-"2B"
family[family=="Metoncholaimus"]<-"Oncholaimidae"
guild[guild=="Metoncholaimus"]<-"2B"
family[family=="Meyersia"]<-"Oncholaimidae"
guild[guild=="Meyersia"]<-"2B"
family[family=="Oncholaimellus"]<-"Oncholaimidae"
guild[guild=="Oncholaimellus"]<-"2B"
family[family=="Oncholaimus"]<-"Oncholaimidae"
guild[guild=="Oncholaimus"]<-"2B"
family[family=="Pontonema"]<-"Oncholaimidae"
guild[guild=="Pontonema"]<-"2B"
family[family=="Prooncholaimus"]<-"Oncholaimidae"
guild[guild=="Prooncholaimus"]<-"2B"
family[family=="Viscosia"]<-"Oncholaimidae"
guild[guild=="Viscosia"]<-"2B"
## familia ENCHELIDIIDAE
family[family=="Bathyeurystomina"]<-"Enchelidiidae"
guild[guild=="Bathyeurystomina"]<-"2B"
family[family=="Belbolla"]<-"Enchelidiidae"
guild[guild=="Belbolla"]<-"2B"
family[family=="Calyptronema"]<-"Enchelidiidae"
guild[guild=="Calyptronema"]<-"2B"
family[family=="Ditlevsenella"]<-"Enchelidiidae"
guild[guild=="Ditlevsenella"]<-"2B"
family[family=="Eurystomina"]<-"Enchelidiidae"
guild[guild=="Eurystomina"]<-"2B"
family[family=="Pareurystomina"]<-"Enchelidiidae"
guild[guild=="Pareurystomina"]<-"2B"
family[family=="Polygastrophora"]<-"Enchelidiidae"
guild[guild=="Polygastrophora"]<-"2B"
family[family=="Symplocostoma"]<-"Enchelidiidae"
guild[guild=="Symplocostoma"]<-"2B"
## familia TRIPYLOIDIDAE
family[family=="Bathylaimus"]<-"Tripyloididae"
guild[guild=="Bathylaimus"]<-"1B"
family[family=="Gairleanema"]<-"Tripyloididae"
guild[guild=="Gairleanema"]<-"2B"
family[family=="Tripyloides"]<-"Tripyloididae"
guild[guild=="Tripyloides"]<-"1B"
## familia RHABDODEMANIIDAE
family[family=="Rhabdodemania"]<-"Rhabdodemaniidae"
guild[guild=="Rhabdodemania"]<-"2B"
## familia PANDOLAIMIDAE
family[family=="Pandolaimus"]<-"Pandolaimidae"
guild[guild=="Pandolaimus"]<-"1B"
## familia TREFUSIIDAE
family[family=="Cytolaimium"]<-"Trefusiidae"
guild[guild=="Cytolaimium"]<-"1B"
family[family=="Halanonchus"]<-"Trefusiidae"
guild[guild=="Halanonchus"]<-"1B"
family[family=="Rhabdocoma"]<-"Trefusiidae"
guild[guild=="Rhabdocoma"]<-"1A"
family[family=="Trefusia"]<-"Trefusiidae"
guild[guild=="Trefusia"]<-"1A"
family[family=="Trefusialaimus"]<-"Trefusiidae"
guild[guild=="Trefusialaimus"]<-"1A"
## familia LAURATONEMATIDAE
family[family=="Lauratonema"]<-"Lauratonematidae"
guild[guild=="Lauratonema"]<-"1B"
## familia XENELLIDAE
family[family=="Xenella"]<-"Xenellidae"
guild[guild=="Xenella"]<-"1A"
## familia CHROMADORIDAE
family[family=="Acantholaimus"]<-"Chromadoridae"
guild[guild=="Acantholaimus"]<-"2A"
family[family=="Actinonema"]<-"Chromadoridae"
guild[guild=="Actinonema"]<-"2A"
family[family=="Atrochromadora"]<-"Chromadoridae"
guild[guild=="Atrochromadora"]<-"2A"
family[family=="Chromadora"]<-"Chromadoridae"
guild[guild=="Chromadora"]<-"2A"
family[family=="Chromadorella"]<-"Chromadoridae"
guild[guild=="Chromadorella"]<-"2A"
family[family=="Chromadorina"]<-"Chromadoridae"
guild[guild=="Chromadorina"]<-"2A"
family[family=="Chromadorita"]<-"Chromadoridae"
guild[guild=="Chromadorita"]<-"2A"
family[family=="Dichromadora"]<-"Chromadoridae"
guild[guild=="Dichromadora"]<-"2A"
family[family=="Endeolophos"]<-"Chromadoridae"
guild[guild=="Endeolophos"]<-"2A"
family[family=="Euchromadora"]<-"Chromadoridae"
guild[guild=="Euchromadora"]<-"2A"
family[family=="Graphenoma"]<-"Chromadoridae"
guild[guild=="Graphenoma"]<-"2A"
family[family=="Hypodontolaimus"]<-"Chromadoridae"
guild[guild=="Hypodontolaimus"]<-"2A"
family[family=="Innocuonema"]<-"Chromadoridae"
guild[guild=="Innocuonema"]<-"2A"
family[family=="Karkinochromadora"]<-"Chromadoridae"
guild[guild=="Karkinochromadora"]<-"2A"
family[family=="Neochromadora"]<-"Chromadoridae"
guild[guild=="Neochromadora"]<-"2A"
family[family=="Nygmatonchus"]<-"Chromadoridae"
guild[guild=="Nygmatonchus"]<-"2A"
family[family=="Parachromadorita"]<-"Chromadoridae"
guild[guild=="Parachromadorita"]<-"2A"
family[family=="Parapinnanema"]<-"Chromadoridae"
guild[guild=="Parapinnanema"]<-"2A"
family[family=="Prochromadora"]<-"Chromadoridae"
guild[guild=="Prochromadora"]<-"2A"
family[family=="Prochromadorella"]<-"Chromadoridae"
guild[guild=="Prochromadorella"]<-"2A"
family[family=="Ptycholaimellus"]<-"Chromadoridae"
guild[guild=="Ptycholaimellus"]<-"2A"
family[family=="Rhips"]<-"Chromadoridae"
guild[guild=="Rhips"]<-"2A"
family[family=="Spiliphera"]<-"Chromadoridae"
guild[guild=="Spiliphera"]<-"2A"
family[family=="Spilophorella"]<-"Chromadoridae"
guild[guild=="Spilophorella"]<-"2A"
family[family=="Steinodorella"]<-"Chromadoridae"
guild[guild=="Steineridora"]<-"2A"
family[family=="Trochamus"]<-"Chromadoridae"
guild[guild=="Trochamus"]<-"2A"
## familia COMESOMATIDAE
family[family=="Actarjania"]<-"Comesomatidae"
guild[guild=="Cervonema"]<-"1B"
family[family=="Cervonema"]<-"Comesomatidae"
guild[guild=="Cervonema"]<-"1A"
family[family=="Comesoma"]<-"Comesomatidae"
guild[guild=="Comesoma"]<-"1B"
family[family=="Comesomoides"]<-"Comesomatidae"
guild[guild=="Comesomoides"]<-"1B"
family[family=="Dorylaimopsis"]<-"Comesomatidae"
guild[guild=="Dorylaimopsis"]<-"2A"
family[family=="Hopperia"]<-"Comesomatidae"
guild[guild=="Hopperia"]<-"2A"
family[family=="Laimella"]<-"Comesomatidae"
guild[guild=="Laimella"]<-"2A"
family[family=="Metacomesoma"]<-"Comesomatidae"
guild[guild=="Metacomesoma"]<-"1B"
family[family=="Paracomesoma"]<-"Comesomatidae"
guild[guild=="Paracomesoma"]<-"2A"
family[family=="Paramesonchium"]<-"Comesomatidae"
guild[guild=="Paramesonchium"]<-"2A"
family[family=="Pierrickia"]<-"Comesomatidae"
guild[guild=="Pierrickia"]<-"1B"
family[family=="Sabatieria"]<-"Comesomatidae"
guild[guild=="Sabatieria"]<-"1B"
family[family=="Setosabatieria"]<-"Comesomatidae"
guild[guild=="Vasostoma"]<-"1B"
family[family=="Vasostoma"]<-"Comesomatidae"
guild[guild=="Vasostoma"]<-"2A"
## familia ETHMOLAIMIDAE
family[family=="Comesa"]<-"Ethmolaimidae"
guild[guild=="Comesa"]<-"2A"
family[family=="Ethmolaimus"]<-"Ethmolaimidae"
guild[guild=="Ethmolaimus"]<-"2A"
family[family=="Filitonchus"]<-"Ethmolaimidae"
guild[guild=="Filitonchus"]<-"1A"
family[family=="Gomphionchus"]<-"Ethmolaimidae"
guild[guild=="Gomphionchus"]<-"2A"
family[family=="Gomphionema"]<-"Ethmolaimidae"
guild[guild=="Gomphionema"]<-"2B"
family[family=="Nannolaimus"]<-"Ethmolaimidae"
guild[guild=="Nannolaimus"]<-"1A"
family[family=="Neotonchus"]<-"Ethmolaimidae"
guild[guild=="Neotonchus"]<-"2A"
family[family=="Paraethmolaimus"]<-"Ethmolaimidae"
guild[guild=="Paraethmolaimus"]<-"2A"
## familia CYATHOLAIMIDAE
family[family=="Acanthonchus"]<-"Cyatholaimidae"
guild[guild=="Acanthonchus"]<-"2A"
family[family=="Cyatholaimus"]<-"Cyatholaimidae"
guild[guild=="Cyatholaimus"]<-"2A"
family[family=="Kraspedonema"]<-"Cyatholaimidae"
guild[guild=="Kraspedonema"]<-"2A"
family[family=="Longicyatholaimus"]<-"Cyatholaimidae"
guild[guild=="Longicyatholaimus"]<-"2A"
family[family=="Marylynnia"]<-"Cyatholaimidae"
guild[guild=="Marylynnia"]<-"2A"
family[family=="Metacyatholaimus"]<-"Cyatholaimidae"
guild[guild=="Metacyatholaimus"]<-"2A"
family[family=="Minolaimus"]<-"Cyatholaimidae"
guild[guild=="Minolaimus"]<-"1A"
family[family=="Nannolaimoides"]<-"Cyatholaimidae"
guild[guild=="Nannolaimoides"]<-"2A"
family[family=="Paracanthonchus"]<-"Cyatholaimidae"
guild[guild=="Paracanthonchus"]<-"2A"
family[family=="Paracyatholaimoides"]<-"Cyatholaimidae"
guild[guild=="Paracyatholaimoides"]<-"2A"
family[family=="Paracyatholaimus"]<-"Cyatholaimidae"
guild[guild=="Paracyatholaimus"]<-"2A"
family[family=="Paralongicyatholaimus"]<-"Cyatholaimidae"
guild[guild=="Paralongicyatholaimus"]<-"2A"
family[family=="Pomponema"]<-"Cyatholaimidae"
guild[guild=="Pomponema"]<-"2B"
family[family=="Praeacanthonchus"]<-"Cyatholaimidae"
guild[guild=="Praeacanthonchus"]<-"2A"
## familia SELACHINEMATIDAE
family[family=="Cheironchus"]<-"Selachinematidae"
guild[guild=="Cheironchus"]<-"2B"
family[family=="Choanolaimus"]<-"Selachinematidae"
guild[guild=="Choanolaimus"]<-"2B"
family[family=="Choniolaimus"]<-"Selachinematidae"
guild[guild=="Choniolaimus"]<-"2B"
family[family=="Demonema"]<-"Selachinematidae"
guild[guild=="Demonema"]<-"2B"
family[family=="Gammanema"]<-"Selachinematidae"
guild[guild=="Gammanema"]<-"2B"
family[family=="Halichoanolaimus"]<-"Selachinematidae"
guild[guild=="Halichoanolaimus"]<-"2B"
family[family=="Latronema"]<-"Selachinematidae"
guild[guild=="Latronema"]<-"2A"
family[family=="Richtersia"]<-"Selachinematidae"
guild[guild=="Richtersia"]<-"1B"
family[family=="Synonchiella"]<-"Selachinematidae"
guild[guild=="Synonchiella"]<-"2B"
family[family=="Synonchium"]<-"Selachinematidae"
guild[guild=="Synonchium"]<-"2B"
## familia DESMODORIDAE
family[family=="Acanthopharyngoides"]<-"Desmodoridae"
guild[guild=="Acanthopharyngoides"]<-"2A"
family[family=="Acanthopharynx"]<-"Desmodoridae"
guild[guild=="Acanthopharynx"]<-"2B"
family[family=="Catanema"]<-"Desmodoridae"
guild[guild=="Catanema"]<-"2A"
family[family=="Croconema"]<-"Desmodoridae"
guild[guild=="Croconema"]<-"2A"
family[family=="Chromaspirina"]<-"Desmodoridae"
guild[guild=="Chromaspirina"]<-"2B"
family[family=="Desmodora"]<-"Desmodoridae"
guild[guild=="Desmodora"]<-"2A"
family[family=="Echinodesmodora"]<-"Desmodoridae"
guild[guild=="Echinodesmodora"]<-"2A"
family[family=="Eubostrichus"]<-"Desmodoridae"
guild[guild=="Eubostrichus"]<-"2A"
family[family=="Leptonemella"]<-"Desmodoridae"
guild[guild=="Leptonemella"]<-"1A"
family[family=="Metachromadora"]<-"Desmodoridae"
guild[guild=="Metachromadora"]<-"2A"
family[family=="Molgolaimus"]<-"Desmodoridae"
guild[guild=="Molgolaimus"]<-"1A"
family[family=="Onyx"]<-"Desmodoridae"
guild[guild=="Onyx"]<-"2B"
family[family=="Papillonema"]<-"Desmodoridae"
guild[guild=="Papillonema"]<-"2A"
family[family=="Paradesmodora"]<-"Desmodoridae"
guild[guild=="Paradesmodora"]<-"2A"
family[family=="Parallelocoilas"]<-"Desmodoridae"
guild[guild=="Parallelocoilas"]<-"2A"
family[family=="Perspiria"]<-"Desmodoridae"
guild[guild=="Perspiria"]<-"2A"
family[family=="Polysigma"]<-"Desmodoridae"
guild[guild=="Polysigma"]<-"2A"
family[family=="Psammonema"]<-"Desmodoridae"
guild[guild=="Psammonema"]<-"2A"
family[family=="Pseudochromadora"]<-"Desmodoridae"
guild[guild=="Pseudochromadora"]<-"2A"
family[family=="Pseudonchus"]<-"Desmodoridae"
guild[guild=="Pseudonchus"]<-"2B"
family[family=="Sigmophoranema"]<-"Desmodoridae"
guild[guild=="Sigmophoranema"]<-"2A"
family[family=="Spirinia"]<-"Desmodoridae"
guild[guild=="Spirinia"]<-"2A"
family[family=="Stygodesmodora"]<-"Desmodoridae"
guild[guild=="Stygodesmodora"]<-"2A"
family[family=="Zalonema"]<-"Desmodoridae"
guild[guild=="Zalonema"]<-"2A"
## familia EPSILONEMATIDAE
family[family=="Akanthepsilonema"]<-"Episilonematidae"
guild[guild=="Akanthepsilonema"]<-"1A"
family[family=="Bathyepsilonema"]<-"Episilonematidae"
guild[guild=="Bathyepsilonema"]<-"1A"
family[family=="Epsilonema"]<-"Episilonematidae"
guild[guild=="Epsilonema"]<-"1A"
family[family=="Glochinema"]<-"Episilonematidae"
guild[guild=="Glochinema"]<-"1A"
family[family=="Keratonema"]<-"Episilonematidae"
guild[guild=="Keratonema"]<-"1A"
family[family=="Leptepsilonema"]<-"Episilonematidae"
guild[guild=="Leptepsilonema"]<-"1A"
family[family=="Metaglochinema"]<-"Episilonematidae"
guild[guild=="Metaglochinema"]<-"1A"
family[family=="Metepsilonema"]<-"Episilonematidae"
guild[guild=="Metepsilonema"]<-"1A"
family[family=="Perepsilonema"]<-"Episilonematidae"
guild[guild=="Perepsilonema"]<-"1A"
family[family=="Polkepsilonema"]<-"Episilonematidae"
guild[guild=="Polkepsilonema"]<-"1A"
family[family=="Pternepsilonema"]<-"Episilonematidae"
guild[guild=="Pternepsilonema"]<-"1A"
## familia DRACONEMATIDAE
family[family=="Dracognomus"]<-"Draconematidae"
guild[guild=="Dracognomus"]<-"1A"
family[family=="Draconema"]<-"Draconematidae"
guild[guild=="Draconema"]<-"1A"
family[family=="Notochaetosoma"]<-"Draconematidae"
guild[guild=="Notochaetosoma"]<-"1A"
family[family=="Paradraconema"]<-"Draconematidae"
guild[guild=="Paradraconema"]<-"1A"
family[family=="Prochaetosoma"]<-"Draconematidae"
guild[guild=="Prochaetosoma"]<-"1A"
## familia MICROLAIMIDAE
family[family=="Acanthomicrolaimus"]<-"Microlaimidae"
guild[guild=="Acanthomicrolaimus"]<-"2A"
family[family=="Aponema"]<-"Microlaimidae"
guild[guild=="Aponema"]<-"1A"
family[family=="Bolbolaimus"]<-"Microlaimidae"
guild[guild=="Bolbolaimus"]<-"2B"
family[family=="Calomicrolaimus"]<-"Microlaimidae"
guild[guild=="Calomicrolaimus"]<-"2A"
family[family=="Ixonema"]<-"Microlaimidae"
guild[guild=="Ixonema"]<-"2A"
family[family=="Microlaimus"]<-"Microlaimidae"
guild[guild=="Microlaimus"]<-"2A"
family[family=="Spirobolbolaimus"]<-"Microlaimidae"
guild[guild=="Spirobolbolaimus"]<-"2B"
## familia APONCHIDAE
family[family=="Aponchium"]<-"Aponchidae"
guild[guild=="Aponchium"]<-"2A"
family[family=="Synonema"]<-"Aponchidae"
guild[guild=="Synonema"]<-"2A"
## familia MONOPOSTHIIDAE
family[family=="Monoposthia"]<-"Monoposthiidae"
guild[guild=="Monoposthia"]<-"2A"
family[family=="Monoposthoides"]<-"Monoposthiidae"
guild[guild=="Monoposthoides"]<-"2A"
family[family=="Nudora"]<-"Monoposthiidae"
guild[guild=="Nudora"]<-"2A"
family[family=="Rhinema"]<-"Monoposthiidae"
guild[guild=="Rhinema"]<-"2A"
## familia LEPTOLAIMIDAE
family[family=="Alaimella"]<-"Leptolaimidae"
guild[guild=="Alaimella"]<-"1A"
family[family=="Anomonema"]<-"Leptolaimidae"
guild[guild=="Anomonema"]<-"1A"
family[family=="Antomicron"]<-"Leptolaimidae"
guild[guild=="Antomicron"]<-"1A"
family[family=="Camacolaimus"]<-"Leptolaimidae"
guild[guild=="Camacolaimus"]<-"2A"
family[family=="Cricolaimus"]<-"Leptolaimidae"
guild[guild=="Cricolaimus"]<-"1A"
family[family=="Dagda"]<-"Leptolaimidae"
guild[guild=="Dagda"]<-"2A"
family[family=="Deontolaimus"]<-"Leptolaimidae"
guild[guild=="Deontolaimus"]<-"2B"
family[family=="Diodontolaimus"]<-"Leptolaimidae"
guild[guild=="Diodontolaimus"]<-"1B"
family[family=="Halaphanolaimus"]<-"Leptolaimidae"
guild[guild=="Halaphanolaimus"]<-"1A"
family[family=="Leptolaimoides"]<-"Leptolaimidae"
guild[guild=="Leptolaimoides"]<-"1A"
family[family=="Leptolaimus"]<-"Leptolaimidae"
guild[guild=="Leptolaimus"]<-"1A"
family[family=="Listia"]<-"Leptolaimidae"
guild[guild=="Listia"]<-"2B"
family[family=="Onchium"]<-"Leptolaimidae"
guild[guild=="Onchium"]<-"2A"
family[family=="Procamacolaimus"]<-"Leptolaimidae"
guild[guild=="Procamacolaimus"]<-"2A"
family[family=="Stephanolaimus"]<-"Leptolaimidae"
guild[guild=="Stephanolaimus"]<-"1A"
## familia PERESIANIDAE
family[family=="Manunema"]<-"Peresianidae"
guild[guild=="Manunema"]<-"1A"
## familia HALIPLECTIDAE
family[family=="Haliplectus"]<-"Haliplectidaae"
guild[guild=="Haliplectus"]<-"1A"
family[family=="Setoplectus"]<-"Haliplectidaae"
guild[guild=="Setoplectus"]<-"1A"
## familia TARVAIIDAE
family[family=="Tarvaia"]<-"Tarvaiidae"
guild[guild=="Tarvaia"]<-"1A"
## familia AEGIALOALAIMIDAE
family[family=="Aegialoalaimus"]<-"Aegialoalaimidae"
guild[guild=="Aegialoalaimus"]<-"1A"
family[family=="Cyartonema"]<-"Aegialoalaimidae"
guild[guild=="Cyartonema"]<-"1A"
family[family=="Diplopeltoides"]<-"Aegialoalaimidae"
guild[guild=="Diplopeltoides"]<-"1A"
family[family=="Southernia"]<-"Aegialoalaimidae"
guild[guild=="Southernia"]<-"1A"
## familia TUBOLAIMOIDIDAE
family[family=="Chitwoodia"]<-"Tubolaimoididae"
guild[guild=="Chitwoodia"]<-"1A"
family[family=="Tubolaimoides"]<-"Tubolaimoididae"
guild[guild=="Tubolaimoides"]<-"1A"
## familia CERAMONEMATIDAE
family[family=="Ceramonema"]<-"Ceramonematidae"
guild[guild=="Ceramonema"]<-"1A"
family[family=="Dasynemoides"]<-"Ceramonematidae"
guild[guild=="Dasynemoides"]<-"1A"
family[family=="Metadasynemella"]<-"Ceramonematidae"
guild[guild=="Metadasynemella"]<-"1A"
family[family=="Metadasynemoides"]<-"Ceramonematidae"
guild[guild=="Metadasynemoides"]<-"1A"
family[family=="Pselionema"]<-"Ceramonematidae"
guild[guild=="Pselionema"]<-"1A"
family[family=="Pterygonema"]<-"Ceramonematidae"
guild[guild=="Pterygonema"]<-"1A"
## familia PARAMICROLAIMIDAE
family[family=="Paramicrolaimus"]<-"Paramicrolaimidae"
guild[guild=="Paramicrolaimus"]<-"2Aou2B"
## familia MEYLIIDAE
family[family=="Boucherius"]<-"Meyliidae"
guild[guild=="Boucherius"]<-"1A"
family[family=="Gerlachius"]<-"Meyliidae"
guild[guild=="Gerlachius"]<-"1A"
family[family=="Meylia"]<-"Meyliidae"
guild[guild=="Meylia"]<-"1A"
family[family=="Noffsingeria"]<-"Meyliidae"
guild[guild=="Noffsingeria"]<-"1A"
## familia DESMOSCOLECIDAE
family[family=="Calligyrus"]<-"Desmoscolecidae"
guild[guild=="Calligyrus"]<-"1A"
family[family=="Desmogerlachia"]<-"Desmoscolecidae"
guild[guild=="Desmogerlachia"]<-"1A"
family[family=="Desmolorenzenia"]<-"Desmoscolecidae"
guild[guild=="Desmolorenzenia"]<-"1A"
family[family=="Desmoscolex"]<-"Desmoscolecidae"
guild[guild=="Desmoscolex"]<-"1A"
family[family=="Greeffiella"]<-"Desmoscolecidae"
guild[guild=="Greeffiella"]<-"1A"
family[family=="Greeffiellopsis"]<-"Desmoscolecidae"
guild[guild=="Greeffiellopsis"]<-"1A"
family[family=="Hapalomus"]<-"Desmoscolecidae"
guild[guild=="Hapalomus"]<-"1A"
family[family=="Pareudesmoscolex"]<-"Desmoscolecidae"
guild[guild=="Pareudesmoscolex"]<-"1A"
family[family=="Quadricoma"]<-"Desmoscolecidae"
guild[guild=="Quadricoma"]<-"1A"
family[family=="Tricoma"]<-"Desmoscolecidae"
guild[guild=="Tricoma"]<-"1A"
## familia MONHYSTERIDAE
family[family=="Diplolaimella"]<-"Monhysteridae"
guild[guild=="Diplolaimella"]<-"1B"
family[family=="Diplolaimelloides"]<-"Monhysteridae"
guild[guild=="Diplolaimelloides"]<-"1B"
family[family=="Gammarinema"]<-"Monhysteridae"
guild[guild=="Gammarinema"]<-"1B"
family[family=="Geomonhystera"]<-"Monhysteridae"
guild[guild=="Geomonhystera"]<-"1B"
family[family=="Thalassomonhystera"]<-"Monhysteridae"
guild[guild=="Thalassomonhystera"]<-"1B"
## familia XYALIDAE
family[family=="Ammotheristus"]<-"Xyalidae"
guild[guild=="Ammotheristus"]<-"1B"
family[family=="Amphimonhystera"]<-"Xyalidae"
guild[guild=="Amphimonhystera"]<-"1B"
family[family=="Amphimonhystrella"]<-"Xyalidae"
guild[guild=="Amphimonhystrella"]<-"1B"
family[family=="Cobbia"]<-"Xyalidae"
guild[guild=="Cobbia"]<-"2A"
family[family=="Daptonema"]<-"Xyalidae"
guild[guild=="Daptonema"]<-"1B"
family[family=="Echinotheristus"]<-"Xyalidae"
guild[guild=="Echinotheristus"]<-"1B"
family[family=="Elzalia"]<-"Xyalidae"
guild[guild=="Elzalia"]<-"1B"
family[family=="Gnomoxyala"]<-"Xyalidae"
guild[guild=="Gnomoxyala"]<-"1B"
family[family=="Gonionchus"]<-"Xyalidae"
guild[guild=="Gonionchus"]<-"1B"
family[family=="Linhystera"]<-"Xyalidae"
guild[guild=="Linhystera"]<-"1A"
family[family=="Metadesmolaimus"]<-"Xyalidae"
guild[guild=="Metadesmolaimus"]<-"1B"
family[family=="Omicronema"]<-"Xyalidae"
guild[guild=="Omicronema"]<-"1B"
family[family=="Paramonohystera"]<-"Xyalidae"
guild[guild=="Paramonohystera"]<-"1B"
family[family=="Promonhystera"]<-"Xyalidae"
guild[guild=="Promonhystera"]<-"1B"
family[family=="Prorhynchonema"]<-"Xyalidae"
guild[guild=="Prorhynchonema"]<-"1B"
family[family=="Pseudosteineria"]<-"Xyalidae"
guild[guild=="Pseudosteineria"]<-"1B"
family[family=="Retrotheristus"]<-"Xyalidae"
guild[guild=="Retrotheristus"]<-"1B"
family[family=="Rhynchonema"]<-"Xyalidae"
guild[guild=="Rhynchonema"]<-"1B"
family[family=="Scaptrella"]<-"Xyalidae"
guild[guild=="Scaptrella"]<-"2B"
family[family=="Steineria"]<-"Xyalidae"
guild[guild=="Steineria"]<-"1B"
family[family=="Stylotheristus"]<-"Xyalidae"
guild[guild=="Stylotheristus"]<-"1B"
family[family=="Theristus"]<-"Xyalidae"
guild[guild=="Theristus"]<-"1B"
family[family=="Trichotheristus"]<-"Xyalidae"
guild[guild=="Trichotheristus"]<-"1B"
family[family=="Valvaelaimus"]<-"Xyalidae"
guild[guild=="Valvaelaimus"]<-"2A"
family[family=="Xenolaimus"]<-"Xyalidae"
guild[guild=="Xenolaimus"]<-"1B"
family[family=="Xyala"]<-"Xyalidae"
guild[guild=="Xyala"]<-"1B"
## familia SPHAEROLAIMIDAE
family[family=="Doliolaimus"]<-"Sphaerolaimidae"
guild[guild=="Doliolaimus"]<-"2B"
family[family=="Metasphaerolaimus"]<-"Sphaerolaimidae"
guild[guild=="Metasphaerolaimus"]<-"2B"
family[family=="Parasphaerolaimus"]<-"Sphaerolaimidae"
guild[guild=="Parasphaerolaimus"]<-"2B"
family[family=="Sphaerolaimus"]<-"Sphaerolaimidae"
guild[guild=="Sphaerolaimus"]<-"2B"
family[family=="Subsphaerolaimus"]<-"Sphaerolaimidae"
guild[guild=="Subsphaerolaimus"]<-"2B"
## familia SIPHONOLAIMIDAE
family[family=="Astomonema"]<-"Siphonolaimidae"
guild[guild=="Astomonema"]<-"1A"
family[family=="Parastomonema"]<-"Siphonolaimidae"
guild[guild=="Parastomonema"]<-"1A"
family[family=="Siphonolaimus"]<-"Siphonolaimidae"
guild[guild=="Siphonolaimus"]<-"2B"
## familia LINHOMOEIDAE
family[family=="Anticyathus"]<-"Linhomoeidae"
guild[guild=="Anticyathus"]<-"1B"
family[family=="Desmolaimus"]<-"Linhomoeidae"
guild[guild=="Desmolaimus"]<-"1B"
family[family=="Didelta"]<-"Linhomoeidae"
guild[guild=="Didelta"]<-"1B"
family[family=="Disconema"]<-"Linhomoeidae"
guild[guild=="Disconema"]<-"1A"
family[family=="Eleutherolaimus"]<-"Linhomoeidae"
guild[guild=="Eleutherolaimus"]<-"1B"
family[family=="Eumorpholaimus"]<-"Linhomoeidae"
guild[guild=="Eumorpholaimus"]<-"1B"
family[family=="Linhomoeus"]<-"Linhomoeidae"
guild[guild=="Linhomoeus"]<-"2A"
family[family=="Megadesmolaimus"]<-"Linhomoeidae"
guild[guild=="Megadesmolaimus"]<-"1B"
family[family=="Metalinhomoeus"]<-"Linhomoeidae"
guild[guild=="Metalinhomoeus"]<-"1B"
family[family=="Paralinhomoeus"]<-"Linhomoeidae"
guild[guild=="Paralinhomoeus"]<-"1B"
family[family=="Terschellingia"]<-"Linhomoeidae"
guild[guild=="Terschellingia"]<-"1A"
## familia AXONOLAIMIDAE
family[family=="Apodontium"]<-"Axonolaimidae"
guild[guild=="Apodontium"]<-"1B"
family[family=="Ascolaimus"]<-"Axonolaimidae"
guild[guild=="Ascolaimus"]<-"1B"
family[family=="Axonolaimus"]<-"Axonolaimidae"
guild[guild=="Axonolaimus"]<-"1B"
family[family=="Nicascolaimus"]<-"Axonolaimidae"
guild[guild=="Nicascolaimus"]<-"1B"
family[family=="Odontophora"]<-"Axonolaimidae"
guild[guild=="Odontophora"]<-"1B"
family[family=="Odontophoroides"]<-"Axonolaimidae"
guild[guild=="Odontophoroides"]<-"1B"
family[family=="Parodontophora"]<-"Axonolaimidae"
guild[guild=="Parodontophora"]<-"?"
family[family=="Pseudolella"]<-"Axonolaimidae"
guild[guild=="Paramicrolaimus"]<-"1A"
family[family=="Synodontium"]<-"Axonolaimidae"
guild[guild=="Synodontium"]<-"1B"
## familia DIPLOPELTIDAE
family[family=="Araeolaimus"]<-"Diplopeltidae"
guild[guild=="Araeolaimus"]<-"1A"
family[family=="Campylaimus"]<-"Diplopeltidae"
guild[guild=="Campylaimus"]<-"1B"
family[family=="Diplopeltis"]<-"Diplopeltidae"
guild[guild=="Diplopeltis"]<-"1A"
family[family=="Diplopeltula"]<-"Diplopeltidae"
guild[guild=="Diplopeltula"]<-"1A"
family[family=="Morlaixia"]<-"Diplopeltidae"
guild[guild=="Morlaixia"]<-"1A"
family[family=="Southerniella"]<-"Diplopeltidae"
guild[guild=="Southerniella"]<-"1A"
## familia CONINCKIIDAE
family[family=="Coninckia"]<-"Coninckiidae"
guild[guild=="Coninckia"]<-"1A"
## familia BODONEMATIDAE
family[family=="Bodonema"]<-"Coninckiidae"
guild[guild=="Bodonema"]<-"1A"
notfound<-obj1[found==FALSE]
error<-length(found[found==FALSE])
frase<-c( "gêneros não econtrado(s)",error)
lista1<-c(notfound, frase)
### funcionando
if(error>1)
{
cat("\n\t","\n\t","####", error, "genus not found","######", "\n\t")
if( readline("\n\t List only genus not found? \n\t Y: returns a list of genus not found in list of classification propoused for Warwick, 1998 \n\t N: returns a table of classification including the feeding type \n\t")=="Y")
{
return(notfound)
}
else
{
tabela2<-data.frame(found, family, genus, guild)
return(tabela2)
}
}
else
{
tabela3<-data.frame(family, genus, guild)
return(tabela3)
}
}
HELP
classnema package:unknown R Documentation classification of free-living marine nematodes in families and feeding types. Description Returns a table with the classification of free-living marine nematodes into families and feeding types. Usage classnema() Arguments x: dataframe with list of generas Details The genera used in this function follows the classification of Warwick et. al, 1998, and "feeding types" proposed by Wieser, 1953. - If user's table shows no typing errors and is according to Warwick et al. (1998), the function returns a data frame with the list of genera with the respective families and feeding types. - If user's table shows typing errors or genera not inluded in Warwick et. al. (1998), the function returns the number of genera not found. As a next step the function asks if the user wants the list of these genera. By responding: Y: the function returns a dataframe with the incorrect genera, and the function is interrupted. N: the function generates a data frame, where the first column indicates the incorrect genera, followed by three columns: family, genus and feeding type. Note: classification of feeding types according to Wieser 1953 1A - selective deposit feeders 1B - non-selective deposit feeders 2A - epigrowth feeders 2B - predators/omnivorous Warning: The function applies solely to a data frame consisting of a list of genera Examples: function: classnema(x) ## data input (x): genus Acantholaimus Daptonema Theristus ... ### data output: family genus feeding type Chromadoridae Acantholaimus 2A Xyalidae Daptonema 1B Xyalidae Theristus 1B ... ... ... Author(s) Danilo Cândido Vieira References: Wieser W (1953) Die Beziehung zwischen MundhoÈhlengestalt, ErnaÈhrungsweise und Vorkommen bei freilebenden marinen Nematoden. Ark Zool 4: 439-484 Warwick RM, Platt HM, Somerfield PJ (1998) Free-living marine nematodes. Part III. British mononhysterids. Field Studies Council, Shrewbury.
Script
Arquivo para teste da função
05_curso_antigo/alunos2012/alunos/trabalho_final/vieiradc/start.txt · Última modificação: 2020/08/12 06:04 (edição externa)
Exceto onde for informado ao contrário, o conteúdo neste wiki está sob a seguinte licença: CC Attribution-Noncommercial-Share Alike 4.0 International
