==== Danilo Cândido Vieira ====
----
{{:bie5782:01_curso_atual:alunos:trabalho_final:vieiradc:perfil.jpg?100|}} 

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====
[[.:exec]]

----
====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...

--- //[[adalardo@usp.br|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.

 <code>



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)
  } 
  
}
</code>

=== HELP ===

<code>

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.

</code>


=== Script ===

{{:bie5782:01_curso_atual:alunos:trabalho_final:vieiradc:funcao_classnema.r|Função classnema}}

=== Arquivo para teste da função ===

{{:bie5782:01_curso_atual:alunos:trabalho_final:vieiradc:indet.csv|Arquivo contendo gêneros discordantes}}