Some examples:
- Code: Select all
"Aves" := clade("Struthio camelus" | "Tetrao major" | "Vultur gryphus").
"Saurischia" := clade("Megalosaurus bucklandii" <- "Iguanodon bernissartensis").
"Avialae" := clade("wings used for powered flight" @ "Vultur gryphus").
"Ichthyornithes" := clade("YPM-VP 1450" <- "Struthio camelus" | "Tetrao major" | "Vultur gryphus").
"Ichthyornis" := clade("Ichthyornithes" & ("apomorphy 2" | "apomorphy 5" | "apomorphy 6" | "apomorphy 7" | "apomorphy 8" @ "YPM-VP 1450"))
"Pan-Biota" := (clade * prc&)("Homo sapiens").
"S" := "Otaria byronia" | "Odobenus rosmarus" | "Phoca vitulina".
"Pinnipedia" := (max * prc&)("S") <= ("flippers" @ "S") ? clade("S") : {}.
Still working on it -- would greatly appreciate feedback.
