data-raw/equations_WiMc1990.R

## otolith equations from Williams & McEldowney 1990
##oldrefs$WiMc1990 <- "Williams R & McEldowney A (1990) A guide to the fish otoliths from waters off the Australian Antarctic Territory, Heard and Macquarie Islands. ANARE Research Notes 75. Antarctic Division, Australian Government"
refs$WiMc1990 <- bibentry(bibtype="InCollection",key="WiMc1990",
                      author=c(person(c("R"),"Williams"),person("A","McEldowney")),
                      year=1990,
                      title="A guide to the fish otoliths from waters off the Australian Antarctic Territory, Heard and Macquarie Islands",
                      booktitle="ANARE Research Notes",
                      volume=75,
                      publisher="Antarctic Division, Australian Government")

alleq_WiMc1990 <- function(id) {
    switch(id,
           ## Bathylagus antarcticus
           "234631_SL~OL_WiMc1990"=list(taxon_name="Bathylagus antarcticus",
                                        taxon_aphia_id=234631,
                                        equation=function(...)tibble(allometric_value=56.16975*(...)-39.7831),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=4.025),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",17,
                                                            "R^2",0.875^2),
                                        reference=refs$WiMc1990),
           "234631_SL~OW_WiMc1990"=list(taxon_name="Bathylagus antarcticus",
                                        taxon_aphia_id=234631,
                                        equation=function(...)tibble(allometric_value=115.7744*(...)-47.0855),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.025),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",17,
                                                            "R^2",0.95^2),
                                        reference=refs$WiMc1990),
           "234631_WW~SL_WiMc1990"=list(taxon_name="Bathylagus antarcticus",
                                          taxon_aphia_id=234631,
                                          equation=function(...)tibble(allometric_value=(1.05e-06)*(...^3.446)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",196,
                                                              "R^2",0.993^2),
                                          reference=refs$WiMc1990),

           ## "Photichthys argenteus" valid name is Phosichthys argenteus
           ## Aphia ID 220007
           ## only raw data (N=4) given in WiMc1990

           ## Krefftichthys anderssoni
           "234641_SL~OL_WiMc1990"=list(taxon_name="Krefftichthys anderssoni",
                                        taxon_aphia_id=234641,
                                        equation=function(...)tibble(allometric_value=41.21040*(...)-13.8900),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=1.697),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",28,
                                                            "R^2",0.962^2),
                                        reference=refs$WiMc1990),
           "234641_SL~OW_WiMc1990"=list(taxon_name="Krefftichthys anderssoni",
                                        taxon_aphia_id=234641,
                                        equation=function(...)tibble(allometric_value=47.28366*(...)-9.10800),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=1.638),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",28,
                                                            "R^2",0.94^2),
                                        reference=refs$WiMc1990),
           "234641_WW~SL_WiMc1990"=list(taxon_name="Krefftichthys anderssoni",
                                          taxon_aphia_id=234641,
                                          equation=function(...)tibble(allometric_value=(3.220e-06)*(...^3.296)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",28,
                                                              "R^2",0.981^2),
                                          reference=refs$WiMc1990),

           ## Protomyctophum bolini
           "234714_SL~OL_WiMc1990"=list(taxon_name="Protomyctophum bolini",
                                        taxon_aphia_id=234714,
                                        equation=function(...)tibble(allometric_value=26.90736*...-5.68285),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=2.344),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",31,
                                                            "R^2",0.733^2),
                                        reference=refs$WiMc1990),
           "234714_SL~OW_WiMc1990"=list(taxon_name="Protomyctophum bolini",
                                        taxon_aphia_id=234714,
                                        equation=function(...)tibble(allometric_value=27.02152*...-6.38535),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.339),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",31,
                                                            "R^2",0.880^2),
                                        reference=refs$WiMc1990),
           "234714_WW~SL_WiMc1990"=list(taxon_name="Protomyctophum bolini",
                                          taxon_aphia_id=234714,
                                          equation=function(...)tibble(allometric_value=2.34e-05*(...^2.859)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",36,
                                                              "R^2",0.981^2),
                                          reference=refs$WiMc1990),

           ## Protomyctophum parallelum
           ## no equations, n=8 data only

           ## Electrona antarctica
           "217697_SL~OL_WiMc1990"=list(taxon_name="Electrona antarctica",
                                        taxon_aphia_id=217697,
                                        equation=function(...)tibble(allometric_value=42.69686*...+0.278033),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=2.086),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",86,
                                                            "R^2",0.984^2),
                                        reference=refs$WiMc1990),
           "217697_SL~OW_WiMc1990"=list(taxon_name="Electrona antarctica",
                                        taxon_aphia_id=217697,
                                        equation=function(...)tibble(allometric_value=33.30505*...+2.023806),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.725),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",85,
                                                            "R^2",0.988^2),
                                        reference=refs$WiMc1990),
           "217697_WW~SL_WiMc1990"=list(taxon_name="Electrona antarctica",
                                          taxon_aphia_id=217697,
                                          equation=function(...)tibble(allometric_value=9.53e-06*(...^3.080)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",227,
                                                              "R^2",0.988^2),
                                          reference=refs$WiMc1990),

           ## Electrona carlsbergi
           "234638_SL~OL_WiMc1990"=list(taxon_name="Electrona carlsbergi",
                                        taxon_aphia_id=234638,
                                        equation=function(...)tibble(allometric_value=24.25848*...-2.49594),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=4.200),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",20,
                                                            "R^2",0.960^2),
                                        reference=refs$WiMc1990),
           "234638_SL~OW_WiMc1990"=list(taxon_name="Electrona carlsbergi",
                                        taxon_aphia_id=234638,
                                        equation=function(...)tibble(allometric_value=23.38342*...-8.686356),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.916),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",20,
                                                            "R^2",0.917^2),
                                        reference=refs$WiMc1990),
           "234638_WW~SL_WiMc1990"=list(taxon_name="Electrona carlsbergi",
                                          taxon_aphia_id=234638,
                                          equation=function(...)tibble(allometric_value=5.314e-05*(...^2.737)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",20,
                                                              "R^2",0.970^2),
                                          reference=refs$WiMc1990),

           ## Electrona paucirastra
           ## 234779
           ## no equations, n=4 data

           ## Electrona subaspera
           "234791_SL~OL_WiMc1990"=list(taxon_name="Electrona subaspera",
                                        taxon_aphia_id=234791,
                                        equation=function(...)tibble(allometric_value=29.00713*...-9.04409),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=3.823),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",17,
                                                            "R^2",0.997^2),
                                        reference=refs$WiMc1990),
           "234791_SL~OW_WiMc1990"=list(taxon_name="Electrona subaspera",
                                        taxon_aphia_id=234791,
                                        equation=function(...)tibble(allometric_value=30.94086*...-8.10739),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.563),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",17,
                                                            "R^2",0.996^2),
                                        reference=refs$WiMc1990),
           "234791_WW~SL_WiMc1990"=list(taxon_name="Electrona subaspera",
                                          taxon_aphia_id=234791,
                                          equation=function(...)tibble(allometric_value=7.98e-06*(...^3.190)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",21,
                                                              "R^2",0.999^2),
                                          reference=refs$WiMc1990),

           ## Metelectrona ventralis
           ## no equations, n=7 data

           ## Gymnoscopelus braueri
           "234642_SL~OL_WiMc1990"=list(taxon_name="Gymnoscopelus braueri",
                                        taxon_aphia_id=234642,
                                        equation=function(...)tibble(allometric_value=43.34839*...-0.73401),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=2.879),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",41,
                                                            "R^2",0.904^2),
                                        reference=refs$WiMc1990),
           "234642_SL~OW_WiMc1990"=list(taxon_name="Gymnoscopelus braueri",
                                        taxon_aphia_id=234642,
                                        equation=function(...)tibble(allometric_value=50.27563*...-4.40964),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.536),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",41,
                                                            "R^2",0.943^2),
                                        reference=refs$WiMc1990),
           "234642_WW~SL_WiMc1990"=list(taxon_name="Gymnoscopelus braueri",
                                          taxon_aphia_id=234642,
                                          equation=function(...)tibble(allometric_value=5.639e-06*(...^3.102)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",41,
                                                              "R^2",0.986^2),
                                          reference=refs$WiMc1990),

           ## Gymnoscopelus bolini
           ## no equations, n=6 data

           ## Gymnoscopelus nicholsi
           "234821_SL~OL_WiMc1990"=list(taxon_name="Gymnoscopelus nicholsi",
                                        taxon_aphia_id=234821,
                                        equation=function(...)tibble(allometric_value=28.61827*...-20.7910),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=6.045),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",140,
                                                            "R^2",0.889^2),
                                        reference=refs$WiMc1990),
           "234821_SL~OW_WiMc1990"=list(taxon_name="Gymnoscopelus nicholsi",
                                        taxon_aphia_id=234821,
                                        equation=function(...)tibble(allometric_value=46.31267*...-17.2168),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=4.372),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",140,
                                                            "R^2",0.882^2),
                                        reference=refs$WiMc1990),
           "234821_WW~SL_WiMc1990"=list(taxon_name="Gymnoscopelus nicholsi",
                                          taxon_aphia_id=234821,
                                          equation=function(...)tibble(allometric_value=5.610e-06*(...^3.153)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",140,
                                                              "R^2",0.981^2),
                                          reference=refs$WiMc1990),

           ## Gymnoscopelus fraseri
           "234657_SL~OL_WiMc1990"=list(taxon_name="Gymnoscopelus fraseri",
                                        taxon_aphia_id=234657,
                                        equation=function(...)tibble(allometric_value=21.84513*...+1.731671),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=3.800),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",17,
                                                            "R^2",0.946^2),
                                        reference=refs$WiMc1990),
           "234657_SL~OW_WiMc1990"=list(taxon_name="Gymnoscopelus fraseri",
                                        taxon_aphia_id=234657,
                                        equation=function(...)tibble(allometric_value=29.47851*...+6.338667),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.570),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",17,
                                                            "R^2",0.892^2),
                                        reference=refs$WiMc1990),
           "234657_WW~SL_WiMc1990"=list(taxon_name="Gymnoscopelus fraseri",
                                          taxon_aphia_id=234657,
                                          equation=function(...)tibble(allometric_value=7.29e-06*(...^3.101)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",17,
                                                              "R^2",0.937^2),
                                          reference=refs$WiMc1990),

           ## Gymnoscopelus hintonoides
           ## no equations, n=6 data

           ## Gymnoscopelus microlampas
           ## no equations, n=1 data

           ## Gymnoscopelus piabilis
           ## no equations, n=2 data

           ## Lampanyctus australis
           ## no equations, n=1 data

           ## Diaphus hudsoni
           ## no equations, n=4 data

           ## Magnisudis prionosa
           ## no equations, n=0 data

           ## Notolepis coatsi
           ## no equations, n=2 data

           ## Benthalbella macropinna
           ## no equations, n=1

           ## Scopelarchoides kreefti
           ## no equations, n=1

           ## Muraenolepis marmoratus, valid name Muraenolepis marmorata
           "234705_SL~OL_WiMc1990"=list(taxon_name="Muraenolepis marmoratus",
                                        taxon_aphia_id=234705,
                                        equation=function(...)tibble(allometric_value=45.75904*...+53.34070),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=5.45),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",28,
                                                            "R^2",0.563^2),
                                        reference=refs$WiMc1990),
           "234705_SL~OW_WiMc1990"=list(taxon_name="Muraenolepis marmoratus",
                                        taxon_aphia_id=234705,
                                        equation=function(...)tibble(allometric_value=108.3560*...-68.3156),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.46),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",28,
                                                            "R^2",0.759^2),
                                        reference=refs$WiMc1990),
           "234705_WW~SL_WiMc1990"=list(taxon_name="Muraenolepis marmoratus",
                                          taxon_aphia_id=234705,
                                          equation=function(...)tibble(allometric_value=9.065e-05*(...^2.589)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",28,
                                                              "R^2",0.950^2),
                                          reference=refs$WiMc1990),

           ## Macrourus holotrachys
           "234831_TL~OL_WiMc1990"=list(taxon_name="Macrourus holotrachys",
                                        taxon_aphia_id=234831,
                                        equation=function(...)tibble(allometric_value=40.23886*...-21.1335),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=14.83),
                                        return_property="total length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",15,
                                                            "R^2",0.951^2),
                                        reference=refs$WiMc1990),
           "234831_TL~OW_WiMc1990"=list(taxon_name="Macrourus holotrachys",
                                        taxon_aphia_id=234831,
                                        equation=function(...)tibble(allometric_value=105.0123*...-154.326),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=6.30),
                                        return_property="total length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",15,
                                                            "R^2",0.905^2),
                                        reference=refs$WiMc1990),
           "234831_WW~TL_WiMc1990"=list(taxon_name="Macrourus holotrachys",
                                          taxon_aphia_id=234831,
                                          equation=function(...)tibble(allometric_value=3.43e-07*(...^3.463)),
                                          inputs=tibble(property="total length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",14,
                                                              "R^2",0.995^2),
                                          reference=refs$WiMc1990),

           ## Zanclorhynchus spinifer
           "234683_SL~OL_WiMc1990"=list(taxon_name="Zanclorhynchus spinifer",
                                        taxon_aphia_id=234683,
                                        equation=function(...)tibble(allometric_value=4.088044*...+170.3344),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=3.799),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",65,
                                                            "R^2",0.101^2),
                                        reference=refs$WiMc1990),
           "234683_SL~OW_WiMc1990"=list(taxon_name="Zanclorhynchus spinifer",
                                        taxon_aphia_id=234683,
                                        equation=function(...)tibble(allometric_value=10.71815*...+163.0687),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.201),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",65,
                                                            "R^2",0.126^2),
                                        reference=refs$WiMc1990),
           "234683_WW~SL_WiMc1990"=list(taxon_name="Zanclorhynchus spinifer",
                                          taxon_aphia_id=234683,
                                          equation=function(...)tibble(allometric_value=1.63e-05*(...^3.047)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",152,
                                                              "R^2",0.993^2),
                                          reference=refs$WiMc1990),
           ## Dolloidraco longedorsalis
           "234696_SL~OL_WiMc1990"=list(taxon_name="Dolloidraco longedorsalis",
                                        taxon_aphia_id=234696,
                                        equation=function(...)tibble(allometric_value=10.28439*...+50.70341),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=3.819),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",33,
                                                            "R^2",0.674^2),
                                        reference=refs$WiMc1990),
           "234696_SL~OW_WiMc1990"=list(taxon_name="Dolloidraco longedorsalis",
                                        taxon_aphia_id=234696,
                                        equation=function(...)tibble(allometric_value=14.15432*...+55.13149),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.631),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",33,
                                                            "R^2",0.571^2),
                                        reference=refs$WiMc1990),
           "234696_WW~SL_WiMc1990"=list(taxon_name="Dolloidraco longedorsalis",
                                          taxon_aphia_id=234696,
                                          equation=function(...)tibble(allometric_value=3.86e-05*(...^2.84)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",47,
                                                              "R^2",0.914^2),
                                          reference=refs$WiMc1990),

           ## Histiodraco velifer, Pogonophryne barsukovi, Pogonophryne permitini
           ## no equations

           ## Pogonophryne phyllopogon, valid name is Pogonophryne scotti
           "313416_SL~OL_WiMc1990"=list(taxon_name="Pogonophryne phyllopogon",
                                        taxon_aphia_id=313416,
                                        equation=function(...)tibble(allometric_value=30.64437*...+42.28450),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=5.85),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",16,
                                                            "R^2",0.550^2),
                                        reference=refs$WiMc1990),
           "313416_SL~OW_WiMc1990"=list(taxon_name="Pogonophryne phyllopogon",
                                        taxon_aphia_id=313416,
                                        equation=function(...)tibble(allometric_value=39.05815*...+47.90287),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=4.45),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",16,
                                                            "R^2",0.537^2),
                                        reference=refs$WiMc1990),
           "313416_WW~SL_WiMc1990"=list(taxon_name="Pogonophryne phyllopogon",
                                          taxon_aphia_id=313416,
                                          equation=function(...)tibble(allometric_value=4.78e-06*(...^3.343)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",18,
                                                              "R^2",0.986^2),
                                          reference=refs$WiMc1990),

           ## Pogonophryne ventrimaculata, Harpagifer georgianus georgianus, Aethotaxis mitopteryx
           ## no equations

           ## Dissostichus eleginoides
           "234700_SL~OL_WiMc1990"=list(taxon_name="Dissostichus eleginoides",
                                        taxon_aphia_id=234700,
                                        equation=function(...)tibble(allometric_value=73.86329*...-191.414),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=14.636),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",160,
                                                            "R^2",0.916^2),
                                        reference=refs$WiMc1990),
           "234700_SL~OW_WiMc1990"=list(taxon_name="Dissostichus eleginoides",
                                        taxon_aphia_id=234700,
                                        equation=function(...)tibble(allometric_value=141.9414*...-264.490),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=7.874),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",160,
                                                            "R^2",0.922^2),
                                        reference=refs$WiMc1990),
           "234700_WW~SL_WiMc1990"=list(taxon_name="Dissostichus eleginoides",
                                          taxon_aphia_id=234700,
                                          equation=function(...)tibble(allometric_value=4.59e-06*(...^3.187)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",159,
                                                              "R^2",0.985^2),
                                          reference=refs$WiMc1990),

           ## Dissostichus mawsoni
           "234836_SL~OL_WiMc1990"=list(taxon_name="Dissostichus mawsoni",
                                        taxon_aphia_id=234836,
                                        equation=function(...)tibble(allometric_value=90.83046*...-94.9810),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=6.282),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",64,
                                                            "R^2",0.904^2),
                                        reference=refs$WiMc1990),
           "234836_SL~OW_WiMc1990"=list(taxon_name="Dissostichus mawsoni",
                                        taxon_aphia_id=234836,
                                        equation=function(...)tibble(allometric_value=97.36677*...-58.5629),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=5.042),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",64,
                                                            "R^2",0.784^2),
                                        reference=refs$WiMc1990),
           "234836_WW~SL_WiMc1990"=list(taxon_name="Dissostichus mawsoni",
                                          taxon_aphia_id=234836,
                                          equation=function(...)tibble(allometric_value=2.17e-06*(...^3.317)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",72,
                                                              "R^2",0.994^2),
                                          reference=refs$WiMc1990),

           ## Notothenia coriiceps
           "234679_SL~OL_WiMc1990"=list(taxon_name="Notothenia coriiceps",
                                        taxon_aphia_id=234679,
                                        equation=function(...)tibble(allometric_value=86.59886*...-27.91347),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=5.836),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",13,
                                                            "R^2",0.935^2),
                                        reference=refs$WiMc1990),
           "234679_SL~OW_WiMc1990"=list(taxon_name="Notothenia coriiceps",
                                        taxon_aphia_id=234679,
                                        equation=function(...)tibble(allometric_value=105.9125*...+110.2998),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.950),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",13,
                                                            "R^2",0.700^2),
                                        reference=refs$WiMc1990),
           "234679_WW~SL_WiMc1990"=list(taxon_name="Notothenia coriiceps",
                                          taxon_aphia_id=234679,
                                          equation=function(...)tibble(allometric_value=2.78e-05*(...^2.943)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",20,
                                                              "R^2",0.988^2),
                                          reference=refs$WiMc1990),

           ## Notothenia neglecta
           "234740_SL~OL_WiMc1990"=list(taxon_name="Notothenia neglecta",
                                        taxon_aphia_id=234740,
                                        equation=function(...)tibble(allometric_value=71.41905*...+13.67271),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=4.417),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",218,
                                                            "R^2",0.744^2),
                                        reference=refs$WiMc1990),
           "234740_SL~OW_WiMc1990"=list(taxon_name="Notothenia neglecta",
                                        taxon_aphia_id=234740,
                                        equation=function(...)tibble(allometric_value=112.1938*...+23.14088),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.424),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",218,
                                                            "R^2",0.684^2),
                                        reference=refs$WiMc1990),
           "234740_WW~SL_WiMc1990"=list(taxon_name="Notothenia neglecta",
                                          taxon_aphia_id=234740,
                                          equation=function(...)tibble(allometric_value=5.71e-06*(...^3.259)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",264,
                                                              "R^2",0.974^2),
                                          reference=refs$WiMc1990),

           ## Notothenia rossii
           "234840_SL~OL_WiMc1990"=list(taxon_name="Notothenia rossii",
                                        taxon_aphia_id=234840,
                                        equation=function(...)tibble(allometric_value=82.58219*...+43.68991),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=5.416),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",19,
                                                            "R^2",0.884^2),
                                        reference=refs$WiMc1990),
           "234840_SL~OW_WiMc1990"=list(taxon_name="Notothenia rossii",
                                        taxon_aphia_id=234840,
                                        equation=function(...)tibble(allometric_value=140.0371*...+50.05416),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.217),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",19,
                                                            "R^2",0.811^2),
                                        reference=refs$WiMc1990),
           "234840_WW~SL_WiMc1990"=list(taxon_name="Notothenia rossii",
                                          taxon_aphia_id=234840,
                                          equation=function(...)tibble(allometric_value=3.366e-06*(...^3.306)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",19,
                                                              "R^2",0.994^2),
                                          reference=refs$WiMc1990),

           ## Notothenia kempi (valid name is Lepidonotothen squamifrons, but Williams & McEldowney have separate (if similar) equations for the two)
           "313363_SL~OL_WiMc1990"=list(taxon_name="Notothenia kempi",
                                        taxon_aphia_id=313363,
                                        equation=function(...)tibble(allometric_value=58.01994*...-90.11051),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=7.428),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",17,
                                                            "R^2",0.961^2),
                                        reference=refs$WiMc1990,
                                        check_name = FALSE),
           "313363_SL~OW_WiMc1990"=list(taxon_name="Notothenia kempi",
                                        taxon_aphia_id=313363,
                                        equation=function(...)tibble(allometric_value=108.6725*...-122.6568),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=4.057),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",17,
                                                            "R^2",0.971^2),
                                        reference=refs$WiMc1990,
                                        check_name = FALSE),
           "313363_WW~SL_WiMc1990"=list(taxon_name="Notothenia kempi",
                                        taxon_aphia_id=313363,
                                        equation=function(...)tibble(allometric_value=5.00e-06*(...^3.217)),
                                        inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                        return_property="wet weight",
                                        return_units="g",
                                        reliability=tribble(~type,~value,
                                                            "N",23,
                                                            "R^2",0.999^2),
                                        reference=refs$WiMc1990,
                                        check_name = FALSE),

           ## Lepidonotothen squamifrons
           "234788_SL~OL_WiMc1990"=list(taxon_name="Lepidonotothen squamifrons",
                                        taxon_aphia_id=234788,
                                        equation=function(...)tibble(allometric_value=56.02584*...-86.2886),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=8.325),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",155,
                                                            "R^2",0.952^2),
                                        reference=refs$WiMc1990),
           "234788_SL~OW_WiMc1990"=list(taxon_name="Lepidonotothen squamifrons",
                                        taxon_aphia_id=234788,
                                        equation=function(...)tibble(allometric_value=95.73879*...-69.2128),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=4.440),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",155,
                                                            "R^2",0.952^2),
                                        reference=refs$WiMc1990),
           "234788_WW~SL_WiMc1990"=list(taxon_name="Lepidonotothen squamifrons",
                                          taxon_aphia_id=234788,
                                          equation=function(...)tibble(allometric_value=1.10e-05*(...^3.097)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",839,
                                                              "R^2",0.992^2),
                                          reference=refs$WiMc1990),

           ## Gobionotothen acuta
           "234624_SL~OL_WiMc1990"=list(taxon_name="Notothenia acuta",
                                        taxon_aphia_id=234624,
                                        equation=function(...)tibble(allometric_value=37.65546*...-23.2003),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=7.347),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",40,
                                                            "R^2",0.953^2),
                                        reference=refs$WiMc1990),
           "234624_SL~OW_WiMc1990"=list(taxon_name="Notothenia acuta",
                                        taxon_aphia_id=234624,
                                        equation=function(...)tibble(allometric_value=85.83036*...-24.0200),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.228),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",40,
                                                            "R^2",0.940^2),
                                        reference=refs$WiMc1990),
           "234624_WW~SL_WiMc1990"=list(taxon_name="Notothenia acuta",
                                          taxon_aphia_id=234624,
                                          equation=function(...)tibble(allometric_value=4.08e-07*(...^3.634)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",40,
                                                              "R^2",0.990^2),
                                          reference=refs$WiMc1990),

           ## Gobionotothen cyanobrancha
           ## no equations

           ## Nototheniops mizops, valid name is Lindbergichthys mizops
           "313401_SL~OL_WiMc1990"=list(taxon_name="Nototheniops mizops",
                                        taxon_aphia_id=313401,
                                          equation=function(...)tibble(allometric_value=27.03747*...+11.14213),
                                          inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=6.200),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",43,
                                                              "R^2",0.903^2),
                                          reference=refs$WiMc1990),
           "313401_SL~OW_WiMc1990"=list(taxon_name="Nototheniops mizops",
                                        taxon_aphia_id=313401,
                                          equation=function(...)tibble(allometric_value=61.11118*...+6.299111),
                                          inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.913),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",43,
                                                              "R^2",0.777^2),
                                          reference=refs$WiMc1990),
           "313401_WW~SL_WiMc1990"=list(taxon_name="Nototheniops mizops",
                                          taxon_aphia_id=313401,
                                            equation=function(...)tibble(allometric_value=1.253e-06*(...^3.463)),
                                            inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                            return_property="wet weight",
                                            return_units="g",
                                            reliability=tribble(~type,~value,
                                                                "N",43,
                                                                "R^2",0.952^2),
                                            reference=refs$WiMc1990),

           ## Pagothenia bernacchii, valid name is Trematomus bernacchii
           "313391_SL~OL_WiMc1990"=list(taxon_name="Pagothenia bernacchii",
                                        taxon_aphia_id=313391,
                                          equation=function(...)tibble(allometric_value=45.24226*...-17.0435),
                                          inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=5.243),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",278,
                                                              "R^2",0.756^2),
                                          reference=refs$WiMc1990),
           "313391_SL~OW_WiMc1990"=list(taxon_name="Pagothenia bernacchii",
                                        taxon_aphia_id=313391,
                                          equation=function(...)tibble(allometric_value=59.55118*...-5.83741),
                                          inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.825),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",278,
                                                              "R^2",0.786^2),
                                          reference=refs$WiMc1990),
           "313391_WW~SL_WiMc1990"=list(taxon_name="Pagothenia bernacchii",
                                          taxon_aphia_id=313391,
                                            equation=function(...)tibble(allometric_value=7.71e-06*(...^3.119)),
                                            inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                            return_property="wet weight",
                                            return_units="g",
                                            reliability=tribble(~type,~value,
                                                                "N",1283,
                                                                "R^2",0.978^2),
                                            reference=refs$WiMc1990),

           ## Pagothenia borchgrevinki
           "234801_SL~OL_WiMc1990"=list(taxon_name="Pagothenia borchgrevinki",
                                        taxon_aphia_id=234801,
                                          equation=function(...)tibble(allometric_value=96.50210*...-84.2582),
                                          inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=3.012),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",26,
                                                              "R^2",0.932^2),
                                          reference=refs$WiMc1990),
           "234801_SL~OW_WiMc1990"=list(taxon_name="Pagothenia borchgrevinki",
                                        taxon_aphia_id=234801,
                                          equation=function(...)tibble(allometric_value=166.5863*...-115.064),
                                          inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=1.829),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",26,
                                                              "R^2",0.931^2),
                                          reference=refs$WiMc1990),
           "234801_WW~SL_WiMc1990"=list(taxon_name="Pagothenia borchgrevinki",
                                          taxon_aphia_id=234801,
                                            equation=function(...)tibble(allometric_value=5.62e-06*(...^3.212)),
                                            inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                            return_property="wet weight",
                                            return_units="g",
                                            reliability=tribble(~type,~value,
                                                                "N",159,
                                                                "R^2",0.990^2),
                                            reference=refs$WiMc1990),

           ## Pagothenia hansoni, valid name is Trematomus hansoni
           "313392_SL~OL_WiMc1990"=list(taxon_name="Pagothenia hansoni",
                                        taxon_aphia_id=313392,
                                          equation=function(...)tibble(allometric_value=52.82707*...-19.7430),
                                          inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=5.604),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",105,
                                                              "R^2",0.740^2),
                                          reference=refs$WiMc1990),
           "313392_SL~OW_WiMc1990"=list(taxon_name="Pagothenia hansoni",
                                        taxon_aphia_id=313392,
                                          equation=function(...)tibble(allometric_value=85.57609*...-62.2665),
                                          inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=4.428),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",105,
                                                              "R^2",0.788^2),
                                          reference=refs$WiMc1990),
           "313392_WW~SL_WiMc1990"=list(taxon_name="Pagothenia hansoni",
                                          taxon_aphia_id=313392,
                                            equation=function(...)tibble(allometric_value=4.86e-06*(...^3.250)),
                                            inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                            return_property="wet weight",
                                            return_units="g",
                                            reliability=tribble(~type,~value,
                                                                "N",331,
                                                                "R^2",0.969^2),
                                            reference=refs$WiMc1990),

           ## Paranotothenia magellanica
           ## no equations

           ## Pleuragramma antarctica
           "234721_SL~OL_WiMc1990"=list(taxon_name="Pleuragramma antarcticum",
                                        taxon_aphia_id=234721,
                                        equation=function(...)tibble(allometric_value=76.67621*(...)+17.05014), ## note! was printed as .17.05014
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=2.469),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",766,
                                                            "R^2",0.868^2),
                                        reference=refs$WiMc1990),
           "234721_SL~OW_WiMc1990"=list(taxon_name="Pleuragramma antarcticum",
                                        taxon_aphia_id=234721,
                                        equation=function(...)tibble(allometric_value=69.21882*(...)+15.81990),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.431),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",759,
                                                            "R^2",0.906^2),
                                        reference=refs$WiMc1990),
           "234721_WW~SL_WiMc1990"=list(taxon_name="Pleuragramma antarcticum",
                                        taxon_aphia_id=234721,
                                        equation=function(...)tibble(allometric_value=2.71e-06*(...^3.200)),
                                        inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                        return_property="wet weight",
                                        return_units="g",
                                        reliability=tribble(~type,~value,
                                                            "N",1297,
                                                            "R^2",0.992^2),
                                        reference=refs$WiMc1990),

           ## Trematomus centronotus, valid name is Trematomus pennellii
           "313409_SL~OL_WiMc1990"=list(taxon_name="Trematomus centronotus",
                                        taxon_aphia_id=313409,
                                        equation=function(...)tibble(allometric_value=41.11492*...-28.9586),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=6.205),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",23,
                                                            "R^2",0.880^2),
                                        reference=refs$WiMc1990),
           "313409_SL~OW_WiMc1990"=list(taxon_name="Trematomus centronotus",
                                        taxon_aphia_id=313409,
                                        equation=function(...)tibble(allometric_value=43.54976*...+24.25075),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=4.357),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",23,
                                                            "R^2",0.854^2),
                                        reference=refs$WiMc1990),
           "313409_WW~SL_WiMc1990"=list(taxon_name="Trematomus centronotus",
                                          taxon_aphia_id=313409,
                                          equation=function(...)tibble(allometric_value=6.34e-06*(...^3.220)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",24,
                                                              "R^2",0.985^2),
                                          reference=refs$WiMc1990),

           ## Trematomus eulepidotus
           "234754_SL~OL_WiMc1990"=list(taxon_name="Trematomus eulepidotus",
                                        taxon_aphia_id=234754,
                                        equation=function(...)tibble(allometric_value=41.94812*...+36.65645),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=5.856),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",182,
                                                            "R^2",0.753^2),
                                        reference=refs$WiMc1990),
           "234754_SL~OW_WiMc1990"=list(taxon_name="Trematomus eulepidotus",
                                        taxon_aphia_id=234754,
                                        equation=function(...)tibble(allometric_value=71.48074*...-14.8643),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.924),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",182,
                                                            "R^2",0.751^2),
                                        reference=refs$WiMc1990),
           "234754_WW~SL_WiMc1990"=list(taxon_name="Trematomus eulepidotus",
                                          taxon_aphia_id=234754,
                                          equation=function(...)tibble(allometric_value=9.03e-07*(...^3.583)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",200,
                                                              "R^2",0.970^2),
                                          reference=refs$WiMc1990),

           ## Trematomus lepidorhinus
           "234770_SL~OL_WiMc1990"=list(taxon_name="Trematomus lepidorhinus",
                                        taxon_aphia_id=234770,
                                        equation=function(...)tibble(allometric_value=46.34517*...+0.913925),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=4.887),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",36,
                                                            "R^2",0.880^2),
                                        reference=refs$WiMc1990),
           "234770_SL~OW_WiMc1990"=list(taxon_name="Trematomus lepidorhinus",
                                        taxon_aphia_id=234770,
                                        equation=function(...)tibble(allometric_value=82.41719*...-36.5589),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.098),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",36,
                                                            "R^2",0.854^2),
                                        reference=refs$WiMc1990),
           "234770_WW~SL_WiMc1990"=list(taxon_name="Trematomus lepidorhinus",
                                          taxon_aphia_id=234770,
                                          equation=function(...)tibble(allometric_value=9.48e-07*(...^3.551)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",42,
                                                              "R^2",0.976^2),
                                          reference=refs$WiMc1990),

           ## Trematomus loennbergii
           "234828_SL~OL_WiMc1990"=list(taxon_name="Trematomus loennbergii",
                                        taxon_aphia_id=234828,
                                        equation=function(...)tibble(allometric_value=48.87498*...+4.405789),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=4.388),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",24,
                                                            "R^2",0.935^2),
                                        reference=refs$WiMc1990),
           "234828_SL~OW_WiMc1990"=list(taxon_name="Trematomus loennbergii",
                                        taxon_aphia_id=234828,
                                        equation=function(...)tibble(allometric_value=81.76850*...-40.3490),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.200),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",24,
                                                            "R^2",0.890^2),
                                        reference=refs$WiMc1990),
           "234828_WW~SL_WiMc1990"=list(taxon_name="Trematomus loennbergii",
                                          taxon_aphia_id=234828,
                                          equation=function(...)tibble(allometric_value=1.42e-06*(...^3.476)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",34,
                                                              "R^2",0.983^2),
                                          reference=refs$WiMc1990),

           ## Trematomus newnesi
           "234628_SL~OL_WiMc1990"=list(taxon_name="Trematomus newnesi",
                                        taxon_aphia_id=234628,
                                          equation=function(...)tibble(allometric_value=58.14674*...+37.74691),
                                          inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=2.957),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",45,
                                                              "R^2",0.719^2),
                                          reference=refs$WiMc1990),
           "234628_SL~OW_WiMc1990"=list(taxon_name="Trematomus newnesi",
                                        taxon_aphia_id=234628,
                                          equation=function(...)tibble(allometric_value=107.9159*...-27.0953),
                                          inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.068),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",45,
                                                              "R^2",0.875^2),
                                          reference=refs$WiMc1990),
           "234628_WW~SL_WiMc1990"=list(taxon_name="Trematomus newnesi",
                                          taxon_aphia_id=234628,
                                            equation=function(...)tibble(allometric_value=8.43e-06*(...^3.127)),
                                            inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                            return_property="wet weight",
                                            return_units="g",
                                            reliability=tribble(~type,~value,
                                                                "N",239,
                                                                "R^2",0.967^2),
                                            reference=refs$WiMc1990),

           ## Trematomus nicolai
           "234644_SL~OL_WiMc1990"=list(taxon_name="Trematomus nicolai",
                                        taxon_aphia_id=234644,
                                          equation=function(...)tibble(allometric_value=54.99567*...-33.3770),
                                          inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=5.803),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",60,
                                                              "R^2",0.852^2),
                                          reference=refs$WiMc1990),
           "234644_SL~OW_WiMc1990"=list(taxon_name="Trematomus nicolai",
                                        taxon_aphia_id=234644,
                                          equation=function(...)tibble(allometric_value=73.19373*...-62.8714),
                                          inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=4.601),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",60,
                                                              "R^2",0.933^2),
                                          reference=refs$WiMc1990),
           "234644_WW~SL_WiMc1990"=list(taxon_name="Trematomus nicolai",
                                          taxon_aphia_id=234644,
                                            equation=function(...)tibble(allometric_value=1.35e-05*(...^3.071)),
                                            inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                            return_property="wet weight",
                                            return_units="g",
                                            reliability=tribble(~type,~value,
                                                                "N",75,
                                                                "R^2",0.992^2),
                                            reference=refs$WiMc1990),

           ## Trematomus scotti
           "234665_SL~OL_WiMc1990"=list(taxon_name="Trematomus scotti",
                                        taxon_aphia_id=234665,
                                          equation=function(...)tibble(allometric_value=21.54601*...+12.52645),
                                          inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=6.171),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",56,
                                                              "R^2",0.910^2),
                                          reference=refs$WiMc1990),
           "234665_SL~OW_WiMc1990"=list(taxon_name="Trematomus scotti",
                                        taxon_aphia_id=234665,
                                          equation=function(...)tibble(allometric_value=37.54624*...+0.724937),
                                          inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.765),
                                          return_property="standard length",
                                          return_units="mm",
                                          reliability=tribble(~type,~value,
                                                              "N",56,
                                                              "R^2",0.907^2),
                                          reference=refs$WiMc1990),
           "234665_WW~SL_WiMc1990"=list(taxon_name="Trematomus scotti",
                                          taxon_aphia_id=234665,
                                            equation=function(...)tibble(allometric_value=1.04e-06*(...^3.583)),
                                            inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                            return_property="wet weight",
                                            return_units="g",
                                            reliability=tribble(~type,~value,
                                                                "N",67,
                                                                "R^2",0.990^2),
                                            reference=refs$WiMc1990),

           "234600_SL~OL_WiMc1990"=list(taxon_name="Akarotaxis nudiceps",
                                        taxon_aphia_id=234600,
                                        equation=function(...)tibble(allometric_value=18.63593*...+52.6617),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=3.675),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",20,
                                                            "R^2",0.822^2),
                                        reference=refs$WiMc1990),
           "234600_SL~OW_WiMc1990"=list(taxon_name="Akarotaxis nudiceps",
                                        taxon_aphia_id=234600,
                                        equation=function(...)tibble(allometric_value=45.29275*...+17.48898),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.276),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",20,
                                                            "R^2",0.833^2),
                                        reference=refs$WiMc1990),
           "234600_WW~SL_WiMc1990"=list(taxon_name="Akarotaxis nudiceps",
                                          taxon_aphia_id=234600,
                                          equation=function(...)tibble(allometric_value=8.2e-07*(...^3.476)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",25,
                                                              "R^2",0.977^2),
                                          reference=refs$WiMc1990),

           ## Bathydraco marri
           "234816_SL~OL_WiMc1990"=list(taxon_name="Bathydraco marri",
                                        taxon_aphia_id=234816,
                                        equation=function(...)tibble(allometric_value=28.07392*...+60.19519),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=5.352),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",11,
                                                            "R^2",0.793^2),
                                        reference=refs$WiMc1990),
           "234816_SL~OW_WiMc1990"=list(taxon_name="Bathydraco marri",
                                        taxon_aphia_id=234816,
                                        equation=function(...)tibble(allometric_value=42.79164*...+58.67819),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.403),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",11,
                                                            "R^2",0.711^2),
                                        reference=refs$WiMc1990),
           "234816_WW~SL_WiMc1990"=list(taxon_name="Bathydraco marri",
                                          taxon_aphia_id=234816,
                                          equation=function(...)tibble(allometric_value=5.57e-06*(...^3.109)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",11,
                                                              "R^2",0.926^2),
                                          reference=refs$WiMc1990),

           ## Cygnodraco mawsoni
           "234834_SL~OL_WiMc1990"=list(taxon_name="Cygnodraco mawsoni",
                                        taxon_aphia_id=234834,
                                        equation=function(...)tibble(allometric_value=89.25862*...+4.117655),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=5.352),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",14,
                                                            "R^2",0.980^2),
                                        reference=refs$WiMc1990),
           "234834_SL~OW_WiMc1990"=list(taxon_name="Cygnodraco mawsoni",
                                        taxon_aphia_id=234834,
                                        equation=function(...)tibble(allometric_value=130.9788*...-12.8564),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.403),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",14,
                                                            "R^2",0.978^2),
                                        reference=refs$WiMc1990),
           "234834_WW~SL_WiMc1990"=list(taxon_name="Cygnodraco mawsoni",
                                          taxon_aphia_id=234834,
                                          equation=function(...)tibble(allometric_value=6.60e-07*(...^3.298)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",18,
                                                              "R^2",0.981^2),
                                          reference=refs$WiMc1990),

           ## Gymnodraco acuticeps
           "234800_SL~OL_WiMc1990"=list(taxon_name="Gymnodraco acuticeps",
                                        taxon_aphia_id=234800,
                                        equation=function(...)tibble(allometric_value=28.73122*...+173.7627),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=4.513),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",61,
                                                            "R^2",0.477^2),
                                        reference=refs$WiMc1990),
           "234800_SL~OW_WiMc1990"=list(taxon_name="Gymnodraco acuticeps",
                                        taxon_aphia_id=234800,
                                        equation=function(...)tibble(allometric_value=44.27358*...+149.0950),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.672),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",61,
                                                            "R^2",0.668^2),
                                        reference=refs$WiMc1990),
           "234800_WW~SL_WiMc1990"=list(taxon_name="Gymnodraco acuticeps",
                                          taxon_aphia_id=234800,
                                          equation=function(...)tibble(allometric_value=1.010e-05*(...^2.993)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",76,
                                                              "R^2",0.990^2),
                                          reference=refs$WiMc1990),

           ## Prionodraco evansii
           "234777_SL~OL_WiMc1990"=list(taxon_name="Prionodraco evansii",
                                        taxon_aphia_id=234777,
                                        equation=function(...)tibble(allometric_value=28.04149*...+17.17142),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=4.180),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",46,
                                                            "R^2",0.935^2),
                                        reference=refs$WiMc1990),
           "234777_SL~OW_WiMc1990"=list(taxon_name="Prionodraco evansii",
                                        taxon_aphia_id=234777,
                                        equation=function(...)tibble(allometric_value=47.67497*...+11.58396),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.553),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",46,
                                                            "R^2",0.924^2),
                                        reference=refs$WiMc1990),
           "234777_WW~SL_WiMc1990"=list(taxon_name="Prionodraco evansii",
                                          taxon_aphia_id=234777,
                                          equation=function(...)tibble(allometric_value=2.94e-06*(...^3.176)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",55,
                                                              "R^2",0.988^2),
                                          reference=refs$WiMc1990),

           ## Racovitzia glacialis
           "234799_SL~OL_WiMc1990"=list(taxon_name="Racovitzia glacialis",
                                        taxon_aphia_id=234799,
                                        equation=function(...)tibble(allometric_value=14.57153*...+160.0175),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=6.016),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",17,
                                                            "R^2",0.384^2),
                                        reference=refs$WiMc1990),
           "234799_SL~OW_WiMc1990"=list(taxon_name="Racovitzia glacialis",
                                        taxon_aphia_id=234799,
                                        equation=function(...)tibble(allometric_value=43.65942*...+90.67653),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.853),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",14,
                                                            "R^2",0.668^2),
                                        reference=refs$WiMc1990),
           "234799_WW~SL_WiMc1990"=list(taxon_name="Racovitzia glacialis",
                                          taxon_aphia_id=234799,
                                          equation=function(...)tibble(allometric_value=7.87e-06*(...^2.974)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",19,
                                                              "R^2",0.961^2),
                                          reference=refs$WiMc1990),

           ## Vomeridens infuscipinnis
           ## no equations

           ## Chaenodraco wilsoni
           "234609_SL~OL_WiMc1990"=list(taxon_name="Chaenodraco wilsoni",
                                        taxon_aphia_id=234609,
                                        equation=function(...)tibble(allometric_value=63.92876*...+57.43653),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=3.756),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",31,
                                                            "R^2",0.837^2),
                                        reference=refs$WiMc1990),
           "234609_SL~OW_WiMc1990"=list(taxon_name="Chaenodraco wilsoni",
                                        taxon_aphia_id=234609,
                                        equation=function(...)tibble(allometric_value=58.41415*...+85.92148),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.489),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",31,
                                                            "R^2",0.842^2),
                                        reference=refs$WiMc1990),
           "234609_WW~SL_WiMc1990"=list(taxon_name="Chaenodraco wilsoni",
                                          taxon_aphia_id=234609,
                                          equation=function(...)tibble(allometric_value=1.51e-06*(...^3.350)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",42,
                                                              "R^2",0.995^2),
                                          reference=refs$WiMc1990),

           ## Champsocephalus gunnari
           "234797_SL~OL_WiMc1990"=list(taxon_name="Champsocephalus gunnari",
                                        taxon_aphia_id=234797,
                                        equation=function(...)tibble(allometric_value=96.67480*...-20.02165),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=3.915),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",350,
                                                            "R^2",0.979^2),
                                        reference=refs$WiMc1990),
           "234797_SL~OW_WiMc1990"=list(taxon_name="Champsocephalus gunnari",
                                        taxon_aphia_id=234797,
                                        equation=function(...)tibble(allometric_value=116.4060*...-33.2610),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=3.374),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",350,
                                                            "R^2",0.990^2),
                                        reference=refs$WiMc1990),
           "234797_WW~SL_WiMc1990"=list(taxon_name="Champsocephalus gunnari",
                                          taxon_aphia_id=234797,
                                          equation=function(...)tibble(allometric_value=1.48e-06*(...^3.283)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",350,
                                                              "R^2",0.999^2),
                                          reference=refs$WiMc1990),

           ## Channichthys rhinoceratus
           "234619_SL~OL_WiMc1990"=list(taxon_name="Channichthys rhinoceratus",
                                        taxon_aphia_id=234619,
                                        equation=function(...)tibble(allometric_value=72.13656*...+108.9112),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=5.462),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",23,
                                                            "R^2",0.659^2),
                                        reference=refs$WiMc1990),
           "234619_SL~OW_WiMc1990"=list(taxon_name="Channichthys rhinoceratus",
                                        taxon_aphia_id=234619,
                                        equation=function(...)tibble(allometric_value=111.2226*...+24.09414),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=4.346),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",23,
                                                            "R^2",0.841^2),
                                        reference=refs$WiMc1990),
           "234619_WW~SL_WiMc1990"=list(taxon_name="Channichthys rhinoceratus",
                                          taxon_aphia_id=234619,
                                          equation=function(...)tibble(allometric_value=3.29e-06*(...^3.130)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",23,
                                                              "R^2",0.981^2),
                                          reference=refs$WiMc1990),

           ## Chionodraco hamatus
           "234795_SL~OL_WiMc1990"=list(taxon_name="Chionodraco hamatus",
                                        taxon_aphia_id=234795,
                                        equation=function(...)tibble(allometric_value=74.31349*...+129.2359),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=4.100),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",141,
                                                            "R^2",0.549^2),
                                        reference=refs$WiMc1990),
           "234795_SL~OW_WiMc1990"=list(taxon_name="Chionodraco hamatus",
                                        taxon_aphia_id=234795,
                                        equation=function(...)tibble(allometric_value=76.99888*...+71.86458),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=5.025),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",141,
                                                            "R^2",0.710^2),
                                        reference=refs$WiMc1990),
           "234795_WW~SL_WiMc1990"=list(taxon_name="Chionodraco hamatus",
                                          taxon_aphia_id=234795,
                                          equation=function(...)tibble(allometric_value=1.256e-06*(...^3.361)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",167,
                                                              "R^2",0.948^2),
                                          reference=refs$WiMc1990),

           ## Chionodraco myersi
           "234646_SL~OL_WiMc1990"=list(taxon_name="Chionodraco myersi",
                                        taxon_aphia_id=234646,
                                        equation=function(...)tibble(allometric_value=88.72847*...+9.995439),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=4.036),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",59,
                                                            "R^2",0.914^2),
                                        reference=refs$WiMc1990),
           "234646_SL~OW_WiMc1990"=list(taxon_name="Chionodraco myersi",
                                        taxon_aphia_id=234646,
                                        equation=function(...)tibble(allometric_value=84.17192*...+9.310984),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=4.157),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",59,
                                                            "R^2",0.933^2),
                                        reference=refs$WiMc1990),
           "234646_WW~SL_WiMc1990"=list(taxon_name="Chionodraco myersi",
                                          taxon_aphia_id=234646,
                                          equation=function(...)tibble(allometric_value=4.64e-07*(...^3.530)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",78,
                                                              "R^2",0.995^2),
                                          reference=refs$WiMc1990),

           ## Cryodraco antarcticus
           "234720_SL~OL_WiMc1990"=list(taxon_name="Cryodraco antarcticus",
                                        taxon_aphia_id=234720,
                                        equation=function(...)tibble(allometric_value=94.41020*...+33.27655),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=4.819),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",15,
                                                            "R^2",0.967^2),
                                        reference=refs$WiMc1990),
           "234720_SL~OW_WiMc1990"=list(taxon_name="Cryodraco antarcticus",
                                        taxon_aphia_id=234720,
                                        equation=function(...)tibble(allometric_value=107.2410*...+10.50894),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=4.017),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",15,
                                                            "R^2",0.954^2),
                                        reference=refs$WiMc1990),
           "234720_WW~SL_WiMc1990"=list(taxon_name="Cryodraco antarcticus",
                                          taxon_aphia_id=234720,
                                          equation=function(...)tibble(allometric_value=3.50e-07*(...^3.499)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",22,
                                                              "R^2",0.995^2),
                                          reference=refs$WiMc1990),

           ## Dacodraco hunteri, Neopagetopsis ionah, Pagetopsis macropterus
           ## no equations

           ## Paradiplospinus gracilis
           "219693_SL~OL_WiMc1990"=list(taxon_name="Paradiplospinus gracilis",
                                        taxon_aphia_id=219693,
                                        equation=function(...)tibble(allometric_value=123.8801*...-79.3186),
                                        inputs=tibble(property="otolith length",units="mm",sample_minimum=NA,sample_maximum=4.128),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",110,
                                                            "R^2",0.942^2),
                                        reference=refs$WiMc1990),
           "219693_SL~OW_WiMc1990"=list(taxon_name="Paradiplospinus gracilis",
                                        taxon_aphia_id=219693,
                                        equation=function(...)tibble(allometric_value=231.1797*...-41.9938),
                                        inputs=tibble(property="otolith width",units="mm",sample_minimum=NA,sample_maximum=2.081),
                                        return_property="standard length",
                                        return_units="mm",
                                        reliability=tribble(~type,~value,
                                                            "N",110,
                                                            "R^2",0.974^2),
                                        reference=refs$WiMc1990),
           "219693_WW~SL_WiMc1990"=list(taxon_name="Paradiplospinus gracilis",
                                          taxon_aphia_id=219693,
                                          equation=function(...)tibble(allometric_value=2.412e-08*(...^3.666)),
                                          inputs=tibble(property="standard length",units="mm",sample_minimum=NA,sample_maximum=NA),
                                          return_property="wet weight",
                                          return_units="g",
                                          reliability=tribble(~type,~value,
                                                              "N",110,
                                                              "R^2",0.989^2),
                                          reference=refs$WiMc1990),

           ## Mancopsetta maculata
           ## no equations


           stop("unrecognized equation ID: ",id))
}
SCAR/solong documentation built on Aug. 5, 2022, 9:04 p.m.