<!DOCTYPE html>
library(tidyverse)
Registered S3 method overwritten by 'dplyr':
method from
print.rowwise_df
Registered S3 methods overwritten by 'dbplyr':
method from
print.tbl_lazy
print.tbl_sql
[30m── [1mAttaching packages[22m ───────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 1.3.0 ──[39m
[30m[32m✓[30m [34mggplot2[30m 3.2.1 [32m✓[30m [34mpurrr [30m 0.3.3
[32m✓[30m [34mtibble [30m 2.1.3 [32m✓[30m [34mdplyr [30m 0.8.3
[32m✓[30m [34mtidyr [30m 1.0.0 [32m✓[30m [34mstringr[30m 1.4.0
[32m✓[30m [34mreadr [30m 1.3.1 [32m✓[30m [34mforcats[30m 0.4.0[39m
[30m── [1mConflicts[22m ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
[31mx[30m [34mdplyr[30m::[32mfilter()[30m masks [34mstats[30m::filter()
[31mx[30m [34mdplyr[30m::[32mlag()[30m masks [34mstats[30m::lag()[39m
library(viridis)
Loading required package: viridisLite
ortho_counts <- read.table("Orthogroups.GeneCount_dec_20.csv")
ortho_counts
ortho_binary <- ortho_counts[,1:49] #Remove the Totals column
ortho_binary[ortho_binary >= 1] <- 1 #Convert to presence/absence
#ortho_binary[33325,] # The end of the file is single gene orthogroups (unassigned, singletons)
ortho_binary_names <- ortho_binary %>% mutate(ortho_id = row.names(ortho_counts), gene_counts = rowSums(ortho_counts))
taxonomy <- read_csv("taxonomy_run3.csv")
Parsed with column specification:
cols(
species = [31mcol_character()[39m,
clade = [31mcol_character()[39m
)
taxonomy
# species_names is a vector of species names
species_comp <- function(species_in, species_out, number_select_species = length(species_in)){
if (missing(species_out)){
select_species <- ortho_binary %>% select(species_in)
other_species <- ortho_binary %>% select(-species_in)
specific_orthogroups <- ortho_binary_names[rowSums(select_species) == number_select_species & rowSums(other_species) == 0,] %>% select(ortho_id)
gene_number <- sum(ortho_counts[specific_orthogroups$ortho_id,species_in])
out_species_names <- "all other species"
}
else{
select_species <- ortho_binary %>% select(species_in)
other_species <- ortho_binary %>% select(species_out)
specific_orthogroups <- ortho_binary_names[rowSums(select_species) == number_select_species & rowSums(other_species) == 0,] %>% select(ortho_id)
out_species_names <- paste(colnames(other_species), collapse = ",")
gene_number <- sum(rowSums(ortho_counts[specific_orthogroups$ortho_id,species_in]))
}
ortho_number <- nrow(specific_orthogroups)
in_species_names <- paste(colnames(select_species), collapse = ",")
output <- paste("present in: ", in_species_names, "\n", "absent in: ", out_species_names, "\n", "number of orthogroups: ", ortho_number, "\n", "number of genes: ",gene_number, sep = "")
cat(output)
}
species_comp_num <- function(species_in, species_out, number_select_species = length(species_in)){
if (missing(species_out)){
select_species <- ortho_binary %>% select(species_in)
other_species <- ortho_binary %>% select(-species_in)
specific_orthogroups <- ortho_binary_names[rowSums(select_species) == number_select_species & rowSums(other_species) == 0,] %>% select(ortho_id)
gene_number <- sum(ortho_counts[specific_orthogroups$ortho_id,species_in])
}
else{
select_species <- ortho_binary %>% select(species_in)
other_species <- ortho_binary %>% select(species_out)
specific_orthogroups <- ortho_binary_names[rowSums(select_species) == number_select_species & rowSums(other_species) == 0,] %>% select(ortho_id)
gene_number <- sum(rowSums(ortho_counts[specific_orthogroups$ortho_id,species_in]))
}
ortho_number <- nrow(specific_orthogroups)
output <- c(ortho_number, gene_number)
output
}
one_X_one_Y_none_Z <- function(x, y, z){
ancestral_species <- ortho_binary %>% select(x)
shared_species <- ortho_binary %>% select(y)
if (missing(z)){
shared_orthogroups <- ortho_binary[rowSums(ancestral_species) >= 1 & rowSums(shared_species) >=1,]
shared_num <- nrow(shared_orthogroups)
anc_names <- paste(x, collapse = ",")
shared_names <- paste(colnames(shared_species), collapse = ",")
output <- paste(c("Present in at least one of: ", anc_names, "\nand in at least one of: ", shared_names, ": ", shared_num), collapse = "")
cat(output)
}
else{
for (species in z){
if (species %in% colnames(y)){
shared_species <- shared_species %>% (-species)
}
}
lost_species <- ortho_binary %>% select(z)
lost_orthogroups <- ortho_binary[rowSums(ancestral_species) >= 1 & rowSums(shared_species) >=1 & rowSums(lost_species) == 0,]
lost_num <- nrow(lost_orthogroups)
anc_names <- paste(x, collapse = ",")
shared_names <- paste(colnames(shared_species), collapse = ",")
lost_names <- paste(z, collapse = ",")
output <- paste(c("Present in at least one of: ", anc_names, "\nand in at least one of: ", shared_names, "\nand lost in: ", lost_names, ": ", lost_num), collapse = "")
cat(output)
}
}
one_X_none_Y <- function(x, y){
select_species <- ortho_binary %>% select(x)
other_species <- ortho_binary %>% select(y)
specific_orthogroups <- ortho_binary[rowSums(select_species) >=1 & rowSums(other_species) == 0,]
num <- nrow(specific_orthogroups)
at_least_one_names <- paste(x, collapse = ",")
none_names <- paste(y, collapse = ",")
output <- paste(c("Present in at least one of: ", at_least_one_names, "\nand in none of: ", none_names, ": ", num), collapse = "")
cat(output)
}
one_X_one_Y_lost_one_Z <- function(ancestors, shared, lost){
ancestral_species <- ortho_binary %>% select(ancestors)
shared_species <- ortho_binary %>% select(shared)
lost_number <- length(lost)
for (species in lost){
if (species %in% colnames(shared)){
shared_species <- shared_species %>% (-species)
}
}
lost_species <- ortho_binary %>% select(lost)
lost_orthogroups <- ortho_binary[rowSums(ancestral_species) >= 1 & rowSums(shared_species) >=1 & rowSums(lost_species) < lost_number,]
lost_num <- nrow(lost_orthogroups)
anc_names <- paste(ancestors, collapse = ",")
shared_names <- paste(colnames(shared_species), collapse = ",")
lost_names <- paste(lost, collapse = ",")
output <- paste(c("Present in at least one of: ", anc_names, "\nand in at least one of: ", shared_names, "\nand lost in at least one of: ", lost_names, ": ", lost_num), collapse = "")
cat(output)
}
count_orthogroups <- function(species){
num_species <- length(species)
og_counts <- integer(0)
gene_counts <- integer(0)
for (i in 1:num_species){
comp <- species_comp_num(species, number_select_species = i)
num <- comp[1]
genes <- comp[2]
og_counts[i] <- num
gene_counts[i] <- genes
print(paste("Number of species: ", i, " ; Number of orthogroups: ", num, " ; Number of genes: ", genes))
}
rev_og_count <- rev(og_counts)
rev_gene_counts <- rev(gene_counts)
for (i in 1:num_species){
j <- num_species - (i - 1)
og_cumulative_sum <- sum(rev_og_count[1:i])
gene_cumulative_sum <- sum(rev_gene_counts[1:i])
print(paste("Present in at least ", j, " species: ", og_cumulative_sum, " orthogroups; ", gene_cumulative_sum, " genes" ))
}
}
shared_orthogroups <- function(species_in){
select_species <- ortho_binary %>% select(species_in)
other_species <- ortho_binary %>% select(-species_in)
#number_select_species <- length(species_in)
specific_orthogroups <- ortho_binary[rowSums(select_species) == length(species_in),]
ortho_number <- nrow(specific_orthogroups)
in_species_names <- paste(colnames(select_species), collapse = ",")
output <- paste("present in: ", in_species_names, "\n", "number of orthogroups: ", ortho_number, "\n", sep = "")
cat(output)
}
select_clade <- function(clade_name){
clade <- taxonomy %>% filter(clade == clade_name)
select_species <- clade$species
select_species
}
fuse_taxa <- function(clade_names){
select_species <- taxonomy %>% filter(clade %in% clade_names)
species_names <- select_species$species
species_names
}
hydractinia <- c("hydractinia_echinata", "hydractinia_symbiolongicarpus")
species_comp(hydractinia)
present in: hydractinia_echinata,hydractinia_symbiolongicarpus
absent in: all other species
number of orthogroups: 1564
number of genes: 4819
species_comp("hydractinia_echinata")
present in: hydractinia_echinata
absent in: all other species
number of orthogroups: 46
number of genes: 149
species_comp("hydractinia_symbiolongicarpus")
present in: hydractinia_symbiolongicarpus
absent in: all other species
number of orthogroups: 15
number of genes: 37
cnidaria <- fuse_taxa(c("Actinaria", "Hexacorallia", "Octocorallia", "Scyphozoa", "Cubozoa", "Hydrozoa", "Myxozoa"))
cnidaria
[1] "exaiptasia_pallida" "nematostella_vectensis" "orbicella_faveolata" "acropora_digitifera" "pocillopora_damicornis"
[6] "renilla_muelleri" "dendronephthya_gigantea" "aurelia_aurita_atlantic" "aurelia_aurita_pacific" "nemopilema_nomurai"
[11] "hydractinia_echinata" "hydractinia_symbiolongicarpus" "hydra_magnipapillata" "clytia_hemisphaerica" "morbakka_virulenta"
[16] "kudoa_iwatai"
for (species in cnidaria){
species_comp(species)
cat("\n\n")
}
present in: exaiptasia_pallida
absent in: all other species
number of orthogroups: 21
number of genes: 106
present in: nematostella_vectensis
absent in: all other species
number of orthogroups: 19
number of genes: 69
present in: orbicella_faveolata
absent in: all other species
number of orthogroups: 9
number of genes: 23
present in: acropora_digitifera
absent in: all other species
number of orthogroups: 20
number of genes: 52
present in: pocillopora_damicornis
absent in: all other species
number of orthogroups: 5
number of genes: 12
present in: renilla_muelleri
absent in: all other species
number of orthogroups: 54
number of genes: 181
present in: dendronephthya_gigantea
absent in: all other species
number of orthogroups: 43
number of genes: 153
present in: aurelia_aurita_atlantic
absent in: all other species
number of orthogroups: 32
number of genes: 109
present in: aurelia_aurita_pacific
absent in: all other species
number of orthogroups: 67
number of genes: 164
present in: nemopilema_nomurai
absent in: all other species
number of orthogroups: 28
number of genes: 98
present in: hydractinia_echinata
absent in: all other species
number of orthogroups: 46
number of genes: 149
present in: hydractinia_symbiolongicarpus
absent in: all other species
number of orthogroups: 15
number of genes: 37
present in: hydra_magnipapillata
absent in: all other species
number of orthogroups: 154
number of genes: 864
present in: clytia_hemisphaerica
absent in: all other species
number of orthogroups: 81
number of genes: 460
present in: morbakka_virulenta
absent in: all other species
number of orthogroups: 52
number of genes: 172
present in: kudoa_iwatai
absent in: all other species
number of orthogroups: 8
number of genes: 49
hydrozoa <- select_clade("Hydrozoa")
species_comp(hydrozoa)
present in: hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica
absent in: all other species
number of orthogroups: 209
number of genes: 1608
for (comb in combn(hydrozoa, 3, simplify = F)){
species_comp(comb)
cat("\n\n")
}
present in: hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata
absent in: all other species
number of orthogroups: 129
number of genes: 794
present in: hydractinia_echinata,hydractinia_symbiolongicarpus,clytia_hemisphaerica
absent in: all other species
number of orthogroups: 280
number of genes: 1765
present in: hydractinia_echinata,hydra_magnipapillata,clytia_hemisphaerica
absent in: all other species
number of orthogroups: 11
number of genes: 105
present in: hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica
absent in: all other species
number of orthogroups: 12
number of genes: 43
for (comb in combn(hydrozoa, 2, simplify = F)){
species_comp(comb)
cat("\n\n")
}
present in: hydractinia_echinata,hydractinia_symbiolongicarpus
absent in: all other species
number of orthogroups: 1564
number of genes: 4819
present in: hydractinia_echinata,hydra_magnipapillata
absent in: all other species
number of orthogroups: 26
number of genes: 114
present in: hydractinia_echinata,clytia_hemisphaerica
absent in: all other species
number of orthogroups: 39
number of genes: 174
present in: hydractinia_symbiolongicarpus,hydra_magnipapillata
absent in: all other species
number of orthogroups: 17
number of genes: 53
present in: hydractinia_symbiolongicarpus,clytia_hemisphaerica
absent in: all other species
number of orthogroups: 35
number of genes: 104
present in: hydra_magnipapillata,clytia_hemisphaerica
absent in: all other species
number of orthogroups: 44
number of genes: 186
species_comp(c("nematostella_vectensis", "hydra_magnipapillata"))
present in: nematostella_vectensis,hydra_magnipapillata
absent in: all other species
number of orthogroups: 2
number of genes: 6
anthozoa <- fuse_taxa(c("Octocorallia", "Hexacorallia", "Actinaria"))
anthozoa
[1] "exaiptasia_pallida" "nematostella_vectensis" "orbicella_faveolata" "acropora_digitifera" "pocillopora_damicornis" "renilla_muelleri"
[7] "dendronephthya_gigantea"
count_orthogroups(anthozoa)
[1] "Number of species: 1 ; Number of orthogroups: 171 ; Number of genes: 596"
[1] "Number of species: 2 ; Number of orthogroups: 1066 ; Number of genes: 2938"
[1] "Number of species: 3 ; Number of orthogroups: 556 ; Number of genes: 2485"
[1] "Number of species: 4 ; Number of orthogroups: 310 ; Number of genes: 1892"
[1] "Number of species: 5 ; Number of orthogroups: 238 ; Number of genes: 1829"
[1] "Number of species: 6 ; Number of orthogroups: 79 ; Number of genes: 972"
[1] "Number of species: 7 ; Number of orthogroups: 38 ; Number of genes: 469"
[1] "Present in at least 7 species: 38 orthogroups; 469 genes"
[1] "Present in at least 6 species: 117 orthogroups; 1441 genes"
[1] "Present in at least 5 species: 355 orthogroups; 3270 genes"
[1] "Present in at least 4 species: 665 orthogroups; 5162 genes"
[1] "Present in at least 3 species: 1221 orthogroups; 7647 genes"
[1] "Present in at least 2 species: 2287 orthogroups; 10585 genes"
[1] "Present in at least 1 species: 2458 orthogroups; 11181 genes"
medusozoa <- fuse_taxa(c("Hydrozoa", "Scyphozoa", "Cubozoa"))
medusozoa
[1] "aurelia_aurita_atlantic" "aurelia_aurita_pacific" "nemopilema_nomurai" "hydractinia_echinata" "hydractinia_symbiolongicarpus"
[6] "hydra_magnipapillata" "clytia_hemisphaerica" "morbakka_virulenta"
count_orthogroups(medusozoa)
[1] "Number of species: 1 ; Number of orthogroups: 475 ; Number of genes: 2053"
[1] "Number of species: 2 ; Number of orthogroups: 3025 ; Number of genes: 9175"
[1] "Number of species: 3 ; Number of orthogroups: 1142 ; Number of genes: 5995"
[1] "Number of species: 4 ; Number of orthogroups: 446 ; Number of genes: 3157"
[1] "Number of species: 5 ; Number of orthogroups: 81 ; Number of genes: 774"
[1] "Number of species: 6 ; Number of orthogroups: 59 ; Number of genes: 662"
[1] "Number of species: 7 ; Number of orthogroups: 78 ; Number of genes: 929"
[1] "Number of species: 8 ; Number of orthogroups: 84 ; Number of genes: 935"
[1] "Present in at least 8 species: 84 orthogroups; 935 genes"
[1] "Present in at least 7 species: 162 orthogroups; 1864 genes"
[1] "Present in at least 6 species: 221 orthogroups; 2526 genes"
[1] "Present in at least 5 species: 302 orthogroups; 3300 genes"
[1] "Present in at least 4 species: 748 orthogroups; 6457 genes"
[1] "Present in at least 3 species: 1890 orthogroups; 12452 genes"
[1] "Present in at least 2 species: 4915 orthogroups; 21627 genes"
[1] "Present in at least 1 species: 5390 orthogroups; 23680 genes"
cnidaria <- fuse_taxa(c("Actinaria", "Hexacorallia", "Octocorallia", "Scyphozoa", "Cubozoa", "Hydrozoa", "Myxozoa"))
cnidaria
[1] "exaiptasia_pallida" "nematostella_vectensis" "orbicella_faveolata" "acropora_digitifera" "pocillopora_damicornis"
[6] "renilla_muelleri" "dendronephthya_gigantea" "aurelia_aurita_atlantic" "aurelia_aurita_pacific" "nemopilema_nomurai"
[11] "hydractinia_echinata" "hydractinia_symbiolongicarpus" "hydra_magnipapillata" "clytia_hemisphaerica" "morbakka_virulenta"
[16] "kudoa_iwatai"
count_orthogroups(cnidaria)
[1] "Number of species: 1 ; Number of orthogroups: 654 ; Number of genes: 2698"
[1] "Number of species: 2 ; Number of orthogroups: 4255 ; Number of genes: 12756"
[1] "Number of species: 3 ; Number of orthogroups: 1848 ; Number of genes: 9355"
[1] "Number of species: 4 ; Number of orthogroups: 864 ; Number of genes: 5981"
[1] "Number of species: 5 ; Number of orthogroups: 391 ; Number of genes: 3558"
[1] "Number of species: 6 ; Number of orthogroups: 202 ; Number of genes: 2470"
[1] "Number of species: 7 ; Number of orthogroups: 161 ; Number of genes: 2119"
[1] "Number of species: 8 ; Number of orthogroups: 123 ; Number of genes: 1694"
[1] "Number of species: 9 ; Number of orthogroups: 52 ; Number of genes: 894"
[1] "Number of species: 10 ; Number of orthogroups: 35 ; Number of genes: 606"
[1] "Number of species: 11 ; Number of orthogroups: 35 ; Number of genes: 728"
[1] "Number of species: 12 ; Number of orthogroups: 24 ; Number of genes: 648"
[1] "Number of species: 13 ; Number of orthogroups: 31 ; Number of genes: 830"
[1] "Number of species: 14 ; Number of orthogroups: 35 ; Number of genes: 1051"
[1] "Number of species: 15 ; Number of orthogroups: 34 ; Number of genes: 1097"
[1] "Number of species: 16 ; Number of orthogroups: 2 ; Number of genes: 137"
[1] "Present in at least 16 species: 2 orthogroups; 137 genes"
[1] "Present in at least 15 species: 36 orthogroups; 1234 genes"
[1] "Present in at least 14 species: 71 orthogroups; 2285 genes"
[1] "Present in at least 13 species: 102 orthogroups; 3115 genes"
[1] "Present in at least 12 species: 126 orthogroups; 3763 genes"
[1] "Present in at least 11 species: 161 orthogroups; 4491 genes"
[1] "Present in at least 10 species: 196 orthogroups; 5097 genes"
[1] "Present in at least 9 species: 248 orthogroups; 5991 genes"
[1] "Present in at least 8 species: 371 orthogroups; 7685 genes"
[1] "Present in at least 7 species: 532 orthogroups; 9804 genes"
[1] "Present in at least 6 species: 734 orthogroups; 12274 genes"
[1] "Present in at least 5 species: 1125 orthogroups; 15832 genes"
[1] "Present in at least 4 species: 1989 orthogroups; 21813 genes"
[1] "Present in at least 3 species: 3837 orthogroups; 31168 genes"
[1] "Present in at least 2 species: 8092 orthogroups; 43924 genes"
[1] "Present in at least 1 species: 8746 orthogroups; 46622 genes"
non_metazoans <- select_clade("Non-metazoans")
non_metazoans
[1] "capsaspora_owczarzaki" "creolimax_fragrantissima" "monosiga_brevicolis" "saccharomyces_cerevisiae" "salpingoeca_rosetta" "sphaeroforma_arctica"
one_X_none_Y(non_metazoans, cnidaria)
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in none of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai: 3310
one_X_one_Y_none_Z(non_metazoans, cnidaria, "hydractinia_echinata")
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai
and lost in: hydractinia_echinata: 1209
one_X_one_Y_none_Z(non_metazoans, cnidaria, "hydractinia_symbiolongicarpus")
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai
and lost in: hydractinia_symbiolongicarpus: 1212
one_X_one_Y_none_Z(non_metazoans, cnidaria, "hydra_magnipapillata")
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai
and lost in: hydra_magnipapillata: 1386
one_X_one_Y_none_Z(non_metazoans, cnidaria, hydractinia)
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus: 1024
one_X_one_Y_none_Z(non_metazoans, cnidaria, "clytia_hemisphaerica")
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai
and lost in: clytia_hemisphaerica: 1463
one_X_one_Y_none_Z(non_metazoans, "hydra_magnipapillata", hydractinia)
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: hydra_magnipapillata
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus: 177
one_X_one_Y_none_Z(non_metazoans, hydractinia, "hydra_magnipapillata")
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: hydractinia_echinata,hydractinia_symbiolongicarpus
and lost in: hydra_magnipapillata: 539
one_X_none_Y(non_metazoans, cnidaria)
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in none of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai: 3310
non_bilaterians <- c(cnidaria, "Porifera", "Ctenophora", "Placozoa", "Non-metazoans")
non_bilaterians
[1] "exaiptasia_pallida" "nematostella_vectensis" "orbicella_faveolata" "acropora_digitifera"
[5] "pocillopora_damicornis" "renilla_muelleri" "dendronephthya_gigantea" "aurelia_aurita_atlantic"
[9] "aurelia_aurita_pacific" "nemopilema_nomurai" "hydractinia_echinata" "hydractinia_symbiolongicarpus"
[13] "hydra_magnipapillata" "clytia_hemisphaerica" "morbakka_virulenta" "kudoa_iwatai"
[17] "Porifera" "Ctenophora" "Placozoa" "Non-metazoans"
bilateria <- taxonomy %>% filter(!clade %in% non_bilaterians)
bilateria <- bilateria$species
bilateria
[1] "danio_rerio" "xenopus_tropicalis" "gallus_gallus" "homo_sapiens"
[5] "ciona_intestinalis" "branchiostoma_floridae" "saccoglossus_kowalevskii" "acanthaster_planci"
[9] "pristionchus_pacificus" "caenorhabditis_elegans" "drosophila_melanogaster" "tribolium_castaneum"
[13] "daphnia_pulex" "ixodes_scapularis" "lottia_gigantea" "octopus_bimaculoides"
[17] "phoronis_australis" "notospermus_geniculatus" "schistosoma_mansoni" "schmidtea_mediterranea"
[21] "capitella_teleta" "helobdella_robusta" "exaiptasia_pallida" "nematostella_vectensis"
[25] "orbicella_faveolata" "acropora_digitifera" "pocillopora_damicornis" "renilla_muelleri"
[29] "dendronephthya_gigantea" "aurelia_aurita_atlantic" "aurelia_aurita_pacific" "nemopilema_nomurai"
[33] "hydractinia_echinata" "hydractinia_symbiolongicarpus" "hydra_magnipapillata" "clytia_hemisphaerica"
[37] "morbakka_virulenta" "hofstenia_miamia" "kudoa_iwatai"
one_X_one_Y_none_Z(non_metazoans, bilateria, cnidaria)
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai: 447
x <- ortho_binary %>% select(non_metazoans)
y <- ortho_binary %>% select(bilateria)
z <- ortho_binary %>% select(cnidaria)
lost_orthogroups <- ortho_binary[rowSums(x) >= 1 & rowSums(y) >=1 & rowSums(z) == 0,]
lost_orthogroups
one_X_one_Y_lost_one_Z(non_metazoans, bilateria, hydractinia)
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in at least one of: hydractinia_echinata,hydractinia_symbiolongicarpus: 1844
one_X_one_Y_none_Z(non_metazoans, bilateria, hydractinia)
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus: 1471
for (species in hydrozoa){
one_X_one_Y_none_Z(non_metazoans, bilateria, species)
cat("\n\n")
}
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata: 1656
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_symbiolongicarpus: 1659
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydra_magnipapillata: 1833
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: clytia_hemisphaerica: 1910
one_X_one_Y_none_Z(non_metazoans, bilateria, hydrozoa)
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica: 1204
medusozoa <- fuse_taxa(c("Hydrozoa", "Scyphozoa", "Cubozoa"))
medusozoa
[1] "aurelia_aurita_atlantic" "aurelia_aurita_pacific" "nemopilema_nomurai" "hydractinia_echinata"
[5] "hydractinia_symbiolongicarpus" "hydra_magnipapillata" "clytia_hemisphaerica" "morbakka_virulenta"
one_X_one_Y_none_Z(non_metazoans, bilateria, medusozoa)
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta: 869
one_X_one_Y_none_Z(non_metazoans, bilateria, "nematostella_vectensis")
Present in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: nematostella_vectensis: 1330
one_X_one_Y_none_Z(bilateria, non_metazoans)
Present in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and in at least one of: capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica: 6787
one_X_one_Y_none_Z(bilateria, hydractinia)
Present in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and in at least one of: hydractinia_echinata,hydractinia_symbiolongicarpus: 10385
cteno_sponge <-c("mnemiopsis_leidyi", "amphimedon_queenslandica")
one_X_one_Y_none_Z(bilateria, cteno_sponge)
Present in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and in at least one of: mnemiopsis_leidyi,amphimedon_queenslandica: 7685
one_X_one_Y_none_Z(hydractinia, "homo_sapiens")
Present in at least one of: hydractinia_echinata,hydractinia_symbiolongicarpus
and in at least one of: homo_sapiens: 5703
one_X_one_Y_none_Z("mnemiopsis_leidyi", bilateria, cnidaria)
Present in at least one of: mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai: 176
one_X_one_Y_none_Z("mnemiopsis_leidyi", bilateria, medusozoa)
Present in at least one of: mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta: 345
one_X_one_Y_none_Z("mnemiopsis_leidyi", bilateria, hydrozoa)
Present in at least one of: mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica: 515
one_X_one_Y_none_Z("mnemiopsis_leidyi", bilateria, hydractinia)
Present in at least one of: mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus: 746
one_X_one_Y_none_Z("mnemiopsis_leidyi", bilateria, "hydractinia_echinata")
Present in at least one of: mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata: 897
one_X_one_Y_none_Z("mnemiopsis_leidyi", bilateria, "hydractinia_symbiolongicarpus")
Present in at least one of: mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_symbiolongicarpus: 878
one_X_one_Y_none_Z("mnemiopsis_leidyi", bilateria, "clytia_hemisphaerica")
Present in at least one of: mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: clytia_hemisphaerica: 990
one_X_one_Y_none_Z("mnemiopsis_leidyi", bilateria, "hydra_magnipapillata")
Present in at least one of: mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydra_magnipapillata: 991
one_X_one_Y_none_Z("amphimedon_queenslandica", bilateria, cnidaria)
Present in at least one of: amphimedon_queenslandica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai: 376
one_X_one_Y_none_Z("amphimedon_queenslandica", bilateria, medusozoa)
Present in at least one of: amphimedon_queenslandica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta: 672
one_X_one_Y_none_Z("amphimedon_queenslandica", bilateria, hydractinia)
Present in at least one of: amphimedon_queenslandica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus: 1334
for (taxon in c("hydractinia_echinata", "hydractinia_symbiolongicarpus", "clytia_hemisphaerica", "hydra_magnipapillata")){
one_X_one_Y_none_Z("amphimedon_queenslandica", bilateria, taxon)
cat("\n\n")
}
Present in at least one of: amphimedon_queenslandica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata: 1526
Present in at least one of: amphimedon_queenslandica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_symbiolongicarpus: 1529
Present in at least one of: amphimedon_queenslandica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: clytia_hemisphaerica: 1731
Present in at least one of: amphimedon_queenslandica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydra_magnipapillata: 1662
placozoa <- select_clade("Placozoa")
placozoa
[1] "hoilungia_hongkongensis" "trichoplax_adhaerens"
one_X_one_Y_none_Z(placozoa, bilateria, cnidaria)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai: 171
one_X_one_Y_none_Z(placozoa, bilateria, medusozoa)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta: 436
one_X_one_Y_none_Z(placozoa, bilateria, hydrozoa)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica: 694
one_X_one_Y_none_Z(placozoa, bilateria, hydractinia)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus: 903
for (taxon in c("hydractinia_echinata", "hydractinia_symbiolongicarpus", "clytia_hemisphaerica", "hydra_magnipapillata")){
one_X_one_Y_none_Z(placozoa, bilateria, taxon)
cat("\n\n")
}
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata: 1091
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_symbiolongicarpus: 1090
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: clytia_hemisphaerica: 1341
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydra_magnipapillata: 1269
csp <- fuse_taxa(c("Ctenophora", "Porifera", "Placozoa"))
csp
[1] "hoilungia_hongkongensis" "trichoplax_adhaerens" "amphimedon_queenslandica" "mnemiopsis_leidyi"
one_X_one_Y_none_Z(csp, bilateria, cnidaria)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai: 639
one_X_one_Y_none_Z(csp, bilateria, medusozoa)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta: 1214
one_X_one_Y_none_Z(csp, bilateria, hydrozoa)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica: 1749
one_X_one_Y_none_Z(csp, bilateria, hydractinia)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus: 2269
for (taxon in c("hydractinia_echinata", "hydractinia_symbiolongicarpus", "clytia_hemisphaerica", "hydra_magnipapillata")){
one_X_one_Y_none_Z(csp, bilateria, taxon)
cat("\n\n")
}
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata: 2516
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_symbiolongicarpus: 2534
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: clytia_hemisphaerica: 2721
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydra_magnipapillata: 2733
one_X_none_Y(csp, cnidaria)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in none of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai: 2103
one_X_none_Y(csp, medusozoa)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in none of: aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta: 2678
one_X_none_Y(csp, hydrozoa)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in none of: hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica: 3213
one_X_none_Y(csp, hydractinia)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in none of: hydractinia_echinata,hydractinia_symbiolongicarpus: 3733
for (taxon in c("hydractinia_echinata", "hydractinia_symbiolongicarpus", "hydra_magnipapillata", "clytia_hemisphaerica")){
one_X_none_Y(csp, taxon)
cat("\n\n")
}
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in none of: hydractinia_echinata: 3980
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in none of: hydractinia_symbiolongicarpus: 3998
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in none of: hydra_magnipapillata: 4197
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi
and in none of: clytia_hemisphaerica: 4185
ancestor <- fuse_taxa(c("Non-metazoans","Ctenophora", "Porifera", "Placozoa"))
ancestor
[1] "hoilungia_hongkongensis" "trichoplax_adhaerens" "amphimedon_queenslandica" "mnemiopsis_leidyi" "capsaspora_owczarzaki"
[6] "creolimax_fragrantissima" "monosiga_brevicolis" "saccharomyces_cerevisiae" "salpingoeca_rosetta" "sphaeroforma_arctica"
one_X_none_Y(ancestor, cnidaria)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in none of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai: 5135
one_X_one_Y_none_Z(ancestor, cnidaria, "hydractinia_echinata")
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai
and lost in: hydractinia_echinata: 2325
one_X_one_Y_none_Z(ancestor, cnidaria, "hydractinia_symbiolongicarpus")
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai
and lost in: hydractinia_symbiolongicarpus: 2362
one_X_one_Y_none_Z(ancestor, cnidaria, "hydra_magnipapillata")
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai
and lost in: hydra_magnipapillata: 2579
one_X_one_Y_none_Z(ancestor, cnidaria, hydractinia)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus: 2067
one_X_one_Y_none_Z(ancestor, cnidaria, "clytia_hemisphaerica")
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai
and lost in: clytia_hemisphaerica: 2552
one_X_one_Y_none_Z(ancestor, "hydra_magnipapillata", hydractinia)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: hydra_magnipapillata
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus: 384
one_X_one_Y_none_Z(ancestor, hydractinia, "hydra_magnipapillata")
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: hydractinia_echinata,hydractinia_symbiolongicarpus
and lost in: hydra_magnipapillata: 896
one_X_one_Y_none_Z(ancestor, bilateria, cnidaria)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,kudoa_iwatai: 923
one_X_one_Y_lost_one_Z(ancestor, bilateria, hydractinia)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in at least one of: hydractinia_echinata,hydractinia_symbiolongicarpus: 3543
for (species in hydrozoa){
one_X_one_Y_none_Z(ancestor, bilateria, species)
cat("\n\n")
}
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata: 3248
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_symbiolongicarpus: 3285
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydra_magnipapillata: 3502
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: clytia_hemisphaerica: 3475
one_X_one_Y_none_Z(ancestor, bilateria, hydrozoa)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica: 2398
one_X_one_Y_none_Z(ancestor, bilateria, medusozoa)
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta: 1727
one_X_one_Y_none_Z(ancestor, bilateria, "nematostella_vectensis")
Present in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica
and in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and lost in: nematostella_vectensis: 2781
one_X_one_Y_none_Z(bilateria, ancestor)
Present in at least one of: danio_rerio,xenopus_tropicalis,gallus_gallus,homo_sapiens,ciona_intestinalis,branchiostoma_floridae,saccoglossus_kowalevskii,acanthaster_planci,pristionchus_pacificus,caenorhabditis_elegans,drosophila_melanogaster,tribolium_castaneum,daphnia_pulex,ixodes_scapularis,lottia_gigantea,octopus_bimaculoides,phoronis_australis,notospermus_geniculatus,schistosoma_mansoni,schmidtea_mediterranea,capitella_teleta,helobdella_robusta,exaiptasia_pallida,nematostella_vectensis,orbicella_faveolata,acropora_digitifera,pocillopora_damicornis,renilla_muelleri,dendronephthya_gigantea,aurelia_aurita_atlantic,aurelia_aurita_pacific,nemopilema_nomurai,hydractinia_echinata,hydractinia_symbiolongicarpus,hydra_magnipapillata,clytia_hemisphaerica,morbakka_virulenta,hofstenia_miamia,kudoa_iwatai
and in at least one of: hoilungia_hongkongensis,trichoplax_adhaerens,amphimedon_queenslandica,mnemiopsis_leidyi,capsaspora_owczarzaki,creolimax_fragrantissima,monosiga_brevicolis,saccharomyces_cerevisiae,salpingoeca_rosetta,sphaeroforma_arctica: 9459
count_orthogroups(cnidaria)
[1] "Number of species: 1 ; Number of orthogroups: 654 ; Number of genes: 2698"
[1] "Number of species: 2 ; Number of orthogroups: 4255 ; Number of genes: 12756"
[1] "Number of species: 3 ; Number of orthogroups: 1848 ; Number of genes: 9355"
[1] "Number of species: 4 ; Number of orthogroups: 864 ; Number of genes: 5981"
[1] "Number of species: 5 ; Number of orthogroups: 391 ; Number of genes: 3558"
[1] "Number of species: 6 ; Number of orthogroups: 202 ; Number of genes: 2470"
[1] "Number of species: 7 ; Number of orthogroups: 161 ; Number of genes: 2119"
[1] "Number of species: 8 ; Number of orthogroups: 123 ; Number of genes: 1694"
[1] "Number of species: 9 ; Number of orthogroups: 52 ; Number of genes: 894"
[1] "Number of species: 10 ; Number of orthogroups: 35 ; Number of genes: 606"
[1] "Number of species: 11 ; Number of orthogroups: 35 ; Number of genes: 728"
[1] "Number of species: 12 ; Number of orthogroups: 24 ; Number of genes: 648"
[1] "Number of species: 13 ; Number of orthogroups: 31 ; Number of genes: 830"
[1] "Number of species: 14 ; Number of orthogroups: 35 ; Number of genes: 1051"
[1] "Number of species: 15 ; Number of orthogroups: 34 ; Number of genes: 1097"
[1] "Number of species: 16 ; Number of orthogroups: 2 ; Number of genes: 137"
[1] "Present in at least 16 species: 2 orthogroups; 137 genes"
[1] "Present in at least 15 species: 36 orthogroups; 1234 genes"
[1] "Present in at least 14 species: 71 orthogroups; 2285 genes"
[1] "Present in at least 13 species: 102 orthogroups; 3115 genes"
[1] "Present in at least 12 species: 126 orthogroups; 3763 genes"
[1] "Present in at least 11 species: 161 orthogroups; 4491 genes"
[1] "Present in at least 10 species: 196 orthogroups; 5097 genes"
[1] "Present in at least 9 species: 248 orthogroups; 5991 genes"
[1] "Present in at least 8 species: 371 orthogroups; 7685 genes"
[1] "Present in at least 7 species: 532 orthogroups; 9804 genes"
[1] "Present in at least 6 species: 734 orthogroups; 12274 genes"
[1] "Present in at least 5 species: 1125 orthogroups; 15832 genes"
[1] "Present in at least 4 species: 1989 orthogroups; 21813 genes"
[1] "Present in at least 3 species: 3837 orthogroups; 31168 genes"
[1] "Present in at least 2 species: 8092 orthogroups; 43924 genes"
[1] "Present in at least 1 species: 8746 orthogroups; 46622 genes"