if (FALSE) {
library(dplyr)
library(assertthat)
library(worrms)
tmp <- "Aethotaxis mitopteryx Total 51 16.8 44.3 27.07 30.2 563.6 154.36 0.00619 3.019 0.991 0.166
M 9 19.6 22.7 20.03 48.7 78.8 54.61 0.00463 3.119 0.976 0.883
F 10 18.8 33.6 21.21 51.6 264.0 75.14 0.00593 3.045 0.987 0.575
Dissostichus mawsoni Total 12 18.3 122.5 52.38 39.4 21460.0 3365.02 0.00302 3.300 0.994 0.351
Gobionotothen gibberifrons Total 64 14.4 43.8 33.06 22.7 1026.5 403.72 0.00266 3.382 0.992 0.157
M 21 24.0 39.9 33.81 132.3 653.5 414.15 0.00364 3.297 0.960 0.643
F 32 16.7 43.8 34.42 36.7 1026.5 444.04 0.00318 3.333 0.982 0.336
Lepidonotothen squamifrons Total 39 11.6 36.2 20.38 11.8 563.8 116.89 0.00272 3.412 0.996 0.147
M 11 14.3 36.2 19.04 25.7 563.8 121.56 0.00317 3.368 0.999 0.160
F 25 13.1 33.8 20.62 18.1 535.0 116.85 0.00295 3.389 0.995 0.202
Lepidonotothen larseni Total 109 6.2 19.1 13.25 1.8 67.9 22.84 0.00423 3.255 0.985 0.156
M 52 11.6 16.6 11.03 11.8 37.0 12.29 0.00529 3.157 0.990 0.178 <
F 92 11.4 19.1 12.87 11.2 64.2 21.02 0.00436 3.242 0.985 0.167
Lepidonotothen nudifrons Total 88 7.2 18.4 12.37 3.6 92.8 24.70 0.00449 3.359 0.985 0.177
M 42 10.2 16.9 11.59 10.8 51.2 20.33 0.00521 3.292 0.995 0.149 <
F 62 9.1 18.4 11.88 7.7 92.8 22.95 0.00409 3.404 0.986 0.211 >
Pleuragramma antercticum Total 930 5.2 26.6 17.48 0.5 120.5 35.04 0.00181 3.400 0.975 0.071
M 96 11.5 23.0 16.79 6.6 84.1 30.51 0.00174 3.423 0.976 0.219
F 75 12.7 23.1 17.88 10.0 90.4 39.79 0.00133 3.523 0.978 0.246
Trematomus eulepidotus Total 416 12.2 34.0 20.99 13.0 499.2 108.57 0.00469 3.261 0.977 0.098
M 131 12.2 25.6 19.28 13.0 200.3 78.36 0.00628 3.164 0.967 0.204
F 122 13.0 30.5 20.45 17.7 321.8 100.68 0.00471 3.259 0.984 0.152 >
Trematomus hansoni Total 49 15.1 40.0 29.03 37.1 948.5 332.47 0.00308 3.405 0.971 0.345
Trematomus lepidorhinus Total 448 3.4 30.3 17.41 0.9 276.3 58.28 0.00289 3.365 0.989 0.0066
M 97 9.8 18.9 11.63 6.7 56.7 13.47 0.00352 3.292 0.983 0.179 >
F 115 10.1 19.6 12.08 7.0 59.2 14.97 0.00489 3.150 0.988 0.132 <
Trematomus loennbergii Total 73 8.5 31.9 24.19 3.8 357.4 157.40 0.00190 3.503 0.983 0.220
Trematomus nicolai Total 60 10.0 34.0 20.55 12.1 637.5 138.79 0.00744 3.155 0.991 0.157
M 11 10.6 25.6 16.57 13.1 198.7 73.20 0.00960 3.075 0.999 0.176 <
F 14 10.0 34.0 21.86 12.5 637.5 225.87 0.00625 3.244 0.997 0.207 >
Trematomus pennellii Total 426 6.6 29.7 15.70 2.7 342.0 65.02 0.00466 3.313 0.987 0.071
M 160 9.4 23.6 13.53 8.3 178.5 38.99 0.00533 3.274 0.992 0.093
F 193 7.3 26.0 14.52 3.7 267.6 56.06 0.00505 3.295 0.993 0.080
Trematomus scotti Total 603 5.0 24.7 11.58 0.7 124.6 15.69 0.00550 3.158 0.976 0.079
M 185 8.3 16.9 11.34 4.2 42.7 13.09 0.00720 3.015 0.978 0.131 <
F 173 7.2 17.4 11.34 2.7 62.8 15.96 0.00395 3.309 0.979 0.146 >
Artedidraconidae
Artedidraco loennbergi Total 97 6.2 11.8 9.05 1.5 540.0 11.23 0.00675 3.014 0.897 0.416
M 35 7.8 10.0 8.41 2.7 6.9 4.16 0.01323 2.688 0.851 0.796 <
F 68 7.3 11.8 9.13 2.7 540.0 13.99 0.00655 3.035 0.924 0.428
Artedidraco orianae Total 181 5.4 16.8 11.47 1.0 58.1 17.56 0.00305 3.454 0.974 0.167
M 72 7.6 15.2 11.01 3.8 38.0 14.80 0.00357 3.387 0.973 0.271 <
F 89 6.8 16.7 11.25 2.1 58.1 17.07 0.00240 3.557 0.978 0.228 >
Artedidraco shackletoni Total 36 6.2 14.1 11.37 2.4 25.6 16.17 0.01215 2.933 0.890 0.718
M 16 10.8 14.1 11.29 13.0 25.6 16.38 0.02833 2.599 0.901 0.988
F 16 9.2 13.1 11.01 9.4 24.4 15.90 0.02330 2.695 0.927 0.866
Artedidraco skottsbergi Total 117 4.2 12.0 8.51 0.7 15.4 5.09 0.00925 2.917 0.920 0.318
M 33 6.6 12.0 8.07 2.4 15.4 4.49 0.00734 3.031 0.956 0.477
F 53 7.1 10.3 8.62 3.0 9.2 5.40 0.00739 3.033 0.948 0.401
Dolloidraco longedorsalis Total 371 4.3 13.3 10.30 0.9 21.3 8.52 0.00725 3.013 0.918 0.184
M 79 7.3 12.2 9.40 3.5 13.9 6.61 0.00962 2.884 0.966 0.247
F 108 8.0 13.3 10.08 3.6 21.3 8.23 0.00744 2.993 0.953 0.257
Histiodraco velifer Total 15 14.1 20.9 17.46 27.5 128.2 78.53 0.00320 3.520 0.876 1.584
Pogonophryne barsukovi Total 23 15.8 22.6 19.18 15.8 199.4 87.21 0.00289 3.492 0.915 0.968
Pogonophryne marmorata Total 49 6.2 20.8 12.70 2.3 131.0 35.44 0.00398 3.425 0.981 0.277
M 26 7.3 19.3 11.66 4.3 100.8 26.23 0.00477 3.362 0.978 0.429
F 19 8.1 20.5 11.65 3.8 129.9 29.43 0.00384 3.436 0.989 0.364
Pogonophryne permittini Total 12 8.8 18.9 14.53 5.9 70.9 39.65 0.00873 3.087 0.943 1.074
Pogonophryne scotti Total 14 17.0 29.3 21.72 35.1 397.0 166.87 0.00162 3.739 0.942 1.172
Bathydraconidae
Bathydraco marri Total 86 8.7 23.1 14.86 2.5 908.0 51.79 0.01385 2.534 0.975 0.176
M 33 10.0 19.6 12.62 3.9 762.0 32.10 0.01500 2.496 0.938 0.471
F 48 10.9 20.7 13.09 6.2 908.0 60.71 0.01312 2.555 0.956 0.327
Cygnodraco mawsoni Total 51 12.8 49.1 31.20 2.9 481.2 154.87 0.00009 4.013 0.996 0.145
M 22 26.6 45.3 30.86 54.7 404.2 150.70 0.00011 3.966 0.998 0.175
F 19 20.5 49.1 28.68 16.9 481.2 126.57 0.00012 3.939 0.997 0.224
Gerlachea australis Total 136 13.3 27.1 21.96 6.1 84.3 34.43 0.00086 3.415 0.855 0.481
M 52 13.3 26.7 21.03 6.1 57.1 31.03 0.00075 3.474 0.937 0.511
F 20 19.2 27.1 23.70 20.4 84.3 49.61 0.00016 3.982 0.836 1.748 >
Gymnodraco acuticeps Total 27 18.0 38.5 28.40 30.1 463.4 185.50 0.00034 3.900 0.985 0.398
M 10 24.1 38.5 31.10 86.2 463.4 270.39 0.00058 3.754 0.994 0.456
F 7 28.2 31.4 28.14 137.9 263.4 171.50 0.00063 3.719 0.990 0.857
Prionodraco evansii Total 289 5.1 15.5 9.85 0.5 69.6 5.45 0.00460 2.970 0.982 0.095
M 185 9.4 15.5 8.67 3.1 17.0 3.78 0.00485 2.951 0.983 0.114
F 205 7.7 15.3 8.93 1.7 69.6 4.37 0.00469 2.965 0.981 0.115
Racovitzia glacialis Total 68 9.2 28.7 23.23 2.1 107.0 51.59 0.00112 3.393 0.985 0.203
M 33 16.8 27.1 23.04 17.1 84.8 47.29 0.00406 2.978 0.930 0.600 <
F 15 21.5 28.7 25.27 32.3 107.0 67.31 0.00052 3.632 0.951 0.990 >
Channichthyidae
Cryodraco antarcticus Total 218 16.2 52.5 37.48 9.2 942.5 256.07 0.00083 3.458 0.932 0.250
M 22 31.8 48.7 37.90 118.0 708.0 295.16 0.00045 3.648 0.937 0.883
F 29 28.2 52.5 40.40 79.6 942.5 358.06 0.00092 3.429 0.967 0.501
Chaenocephalus aceratus Total 52 14.8 52.1 24.55 13.0 889.0 103.23 0.00121 3.422 0.991 0.187
M 24 18.4 33.8 21.77 29.5 216.6 57.16 0.00074 3.585 0.987 0.359 >
F 30 19.2 52.1 25.02 32.1 889.0 123.56 0.00120 3.420 0.993 0.226
Chaenodraco wilsoni Total 80 13.7 30.9 24.67 10.6 223.2 88.03 0.00125 3.468 0.879 0.580
Champsocephalus gunnari Total 73 19.1 48.1 35.67 28.6 862.0 343.43 0.00080 3.593 0.987 0.197
M 24 28.0 47.5 37.54 134.7 862.0 415.82 0.00080 3.594 0.989 0.338
F 41 26.7 48.1 35.27 110.1 837.5 327.09 0.00069 3.636 0.986 0.281
Chionobathyscus dewitti Total 95 14.0 41.5 32.31 13.7 558.0 229.42 0.00214 3.319 0.933 0.367
M 30 27.0 36.8 32.06 131.1 374.2 236.74 0.00044 3.797 0.906 0.947
F 32 27.9 41.5 32.67 126.5 558.0 231.52 0.00179 3.368 0.854 1.039
Chionodraco hamatus Total 96 15.8 49.8 33.06 17.4 866.0 280.88 0.00106 3.538 0.942 0.360
M 10 15.8 43.2 29.88 17.4 633.0 241.14 0.00033 3.885 0.978 0.944 >
F 8 19.9 46.3 36.26 38.2 866.0 446.00 0.00110 3.522 0.992 0.650
Chionodraco myersi Total 631 7.5 39.2 27.85 1.8 428.8 149.71 0.00144 3.416 0.987 0.061
M 63 11.8 33.0 14.53 6.4 240.0 30.34 0.00142 3.431 0.994 0.142
F 62 11.0 33.7 14.75 5.6 300.0 35.34 0.00144 3.427 0.993 0.144
Chionodraco rastrospinosus Total 248 14.6 43.4 26.12 13.1 777.5 149.46 0.00075 3.656 0.984 0.115
M 66 21.0 37.6 25.64 44.7 499.2 151.85 0.00074 3.665 0.988 0.199
F 102 16.6 43.4 27.22 19.9 777.5 191.73 0.00081 3.630 0.989 0.154
Dacodraco hunteri Total 63 10.6 30.4 22.99 4.5 170.4 56.97 0.00079 3.533 0.953 0.401
Neopagetopsis ionah Total 11 26.6 55.0 45.44 141.9 1081.5 751.25 0.01863 2.762 0.906 1.341
Pagetopsis maculatus Total 52 14.6 22.3 18.51 15.6 103.5 48.87 0.00034 4.048 0.937 0.597
Paralepididae
Notolepis coatsi Total 10 17.1 35.2 24.11 5.7 84.3 24.26 0.00017 3.645 0.974 0.973
Myctophidae
Electrona antarctica Total 28 7.5 11.2 9.73 4.3 15.0 10.40 0.01592 2.836 0.916 0.693
Gymnoscopelus bolini Total 23 10.4 19.1 13.96 2.9 89.5 21.92 0.00144 3.568 0.966 0.612
Gymnoscopelus nicholsi Total 175 14.5 19.1 16.88 17.8 47.1 31.19 0.00831 2.907 0.829 0.397
Macrouridae
Macrourus holotrachys Total 40 8.4 43.7 19.10 1.9 375.0 45.70 0.00156 3.283 0.981 0.301
M 20 9.6 25.1 15.15 1.9 63.3 17.10 0.00175 3.235 0.964 0.615
F 28 12.8 43.7 20.24 5.9 375.0 55.87 0.00199 3.203 0.987 0.300
Macrourus holotrachys (PL) Total 37 2.7 8.7 5.31 1.9 66.8 21.76 0.05938 3.321 0.975 0.364
Macrourus whitsoni Total 241 9.2 66.7 22.54 3.2 1383.0 81.00 0.00159 3.299 0.974 0.137
Macrourus whitsoni (PL) Total 579 2.4 30.5 8.03 1.8 2490.0 122.13 0.11338 2.995 0.983 0.065
Moridae
Antimora rostrata Total 10 20.5 30.5 23.82 41.1 171.5 84.32 0.00225 3.299 0.957 1.146
Rajidae
Bathyraja maccaini Total 17 23.5 86.5 53.78 114.0 6000.0 2085.12 0.00477 3.162 0.945 0.842"
tmp <- strsplit(tmp,"\n")[[1]]
last_spp <- ""
xx <- tibble()
for (k in seq_len(length(tmp))) {
this <- read.table(text=tmp[k],sep=" ",stringsAsFactors=FALSE)
if (ncol(this)==1) next
if (is.logical(this[1,1]) && !this[1,1]) this[1,1] <- "F"
idx <- this %in% c("Total","M","F")
assert_that(sum(idx)==1)
idx <- which(idx)
spp <- if (idx==1) last_spp else paste(this[1:(idx-1)],collapse=" ")
if (this[idx]=="M") {
notes <- "Applies to male animals"
sex <- "M"
} else if (this[idx]=="F") {
notes <- "Applies to female animals"
sex <- "F"
} else {
notes <- ""
sex <- ""
}
N <- this[1,idx+1]
smin <- this[1,idx+2]
smax <- this[1,idx+3]
a <- this[1,idx+8]
b <- this[1,idx+9]
r2 <- this[1,idx+10]
se <- this[1,idx+11]
xx <- bind_rows(xx,tibble(taxon_name=spp,sex=sex,
N=N,r2=r2,
a=a,b=b,se=se,
smin=smin,smax=smax,
notes=notes))
last_spp <- spp
}
xx <- xx[!grepl("(PL)",xx$taxon_name,fixed=TRUE),]
xx$taxon_name[xx$taxon_name=="Pleuragramma antercticum"] <- "Pleuragramma antarctica"
xx$taxon_name[xx$taxon_name=="Pogonophryne permittini"] <- "Pogonophryne permitini"
un <- unique(xx$taxon_name)
wmr <- wm_records_names(un)
assert_that(!any(sapply(wmr,is.null)))
assert_that(all(sapply(wmr,nrow)==1))
##sapply(wmr,function(z)z$valid_name==z$scientificname)
xxnm <- do.call(rbind,lapply(1:length(un),function(z)tibble(taxon_name=un[z],taxon_aphia_id=wmr[[z]]$AphiaID[1],valid_name=wmr[[z]]$valid_name[1],valid_taxon_aphia_id=wmr[[z]]$valid_AphiaID[1])))
xx <- xx %>% left_join(xxnm)
make_record <- function(xxrow,id_aphia_id=xxrow$taxon_aphia_id[1]) {
rc <- sprintf(" \"%d%s_WW~TL_Arti2003\"=list(taxon_name=\"%s\",\n",id_aphia_id,xxrow$sex[1],xxrow$taxon_name[1])
rc <- sprintf("%s taxon_aphia_id=%d,\n",rc,xxrow$taxon_aphia_id[1])
rc <- sprintf("%s equation=function(...){a=%g; b=%g; se=%g;\n",rc,xxrow$a[1],xxrow$b[1],xxrow$se[1])
rc <- sprintf("%s tibble(allometric_value=a*(...^b))##,\n",rc)
rc <- sprintf("%s ##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),\n",rc)
rc <- sprintf("%s ##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))\n",rc)
rc <- sprintf("%s },\n",rc)
rc <- sprintf("%s inputs=tibble(property=\"total length\",units=\"cm\",sample_minimum=%g,sample_maximum=%g),\n",rc,xxrow$smin[1],xxrow$smax[1])
rc <- sprintf("%s return_property=\"wet weight\",\n",rc)
rc <- sprintf("%s return_units=\"g\",\n",rc)
rc <- sprintf("%s reliability=tribble(~type,~value,\n",rc)
rc <- sprintf("%s \"N\",%d,\n",rc,xxrow$N[1])
rc <- sprintf("%s \"R^2\",%g),\n",rc,xxrow$r2[1])
notes
if (xxrow$notes[1]!="")
rc <- sprintf("%s notes=\"%s\",\n",rc,xxrow$notes[1])
rc <- sprintf("%s reference=refs$Arti2003),\n",rc)
list(rcstring=rc,id=sprintf("%d%s_WW~TL_Arti2003",xxrow$taxon_aphia_id[1],xxrow$sex[1]),taxon_name=xxrow$taxon_name[1])
}
allid <- c()
outfile <- tempfile()
sink(outfile)
for (k in seq_len(nrow(xx))) {
##temp <- xx[k,]
##id_aphia_id <- temp$taxon_aphia_id[1]
##if (temp$taxon_name!=temp$valid_name) {
## temp$notes <- sub("^\\. ","",paste0(temp$notes,". Accepted taxon name is ",temp$valid_name))
## id_aphia_id <- temp$valid_taxon_aphia_id[1] ** but then need to call alleq_tbl with overrides on stuff ***
##}
##rc <- make_record(temp)
##allid <- c(allid,rc$id)
##cat(rc$rcstring)
##if (xx$taxon_name[k]!=xx$valid_name[k]) {
temp <- xx[k,]
temp$taxon_name <- temp$valid_name
temp$taxon_aphia_id <- temp$valid_taxon_aphia_id
rc <- make_record(temp)
allid <- c(allid,rc$id)
cat(rc$rcstring)
##}
}
sink()
gsub("\\\\","/",outfile)
## paste the contents of that file below
## paste this into build_allometry_df
cat(paste0("x <- bind_rows(x,alleq_tbl(\"",allid,"\"))"),sep="\n")
## make sure to do repeats on these with invalid names
idx <- xx$taxon_name!=xx$valid_name
xx[idx,]
}
##oldrefs$Arti2003 <- "Artigues B, Morales-Nin B, Balguer\uEDas E (2003) Fish length-weight relationships in the Weddell Sea and Bransfield Strait. Polar Biology 26:463-467. doi:10.1007/s00300-003-0505-0"
refs$Arti2003 <- bibentry(bibtype="Article",key="Arti2003",
author=c(person("B","Artigues"),person("B","Morales-Nin"),person("E","Balguer\uEDas")),
year=2003,
title="Fish length-weight relationships in the Weddell Sea and Bransfield Strait",
journal="Polar Biology",volume=26,pages="463-467",
doi="10.1007/s00300-003-0505-0")
alleq_Arti2003 <- function(id) {
switch(id,
"234660_WW~TL_Arti2003"=list(taxon_name="Aethotaxis mitopteryx",
taxon_aphia_id=234660,
equation=function(...){a=0.00619; b=3.019; se=0.166;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=16.8,sample_maximum=44.3),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",51,
"R^2",0.991),
reference=refs$Arti2003),
"234660M_WW~TL_Arti2003"=list(taxon_name="Aethotaxis mitopteryx",
taxon_aphia_id=234660,
equation=function(...){a=0.00463; b=3.119; se=0.883;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=19.6,sample_maximum=22.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",9,
"R^2",0.976),
notes="Applies to male animals",
reference=refs$Arti2003),
"234660F_WW~TL_Arti2003"=list(taxon_name="Aethotaxis mitopteryx",
taxon_aphia_id=234660,
equation=function(...){a=0.00593; b=3.045; se=0.575;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=18.8,sample_maximum=33.6),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",10,
"R^2",0.987),
notes="Applies to female animals",
reference=refs$Arti2003),
"234836_WW~TL_Arti2003"=list(taxon_name="Dissostichus mawsoni",
taxon_aphia_id=234836,
equation=function(...){a=0.00302; b=3.3; se=0.351;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=18.3,sample_maximum=122.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",12,
"R^2",0.994),
reference=refs$Arti2003),
"234704_WW~TL_Arti2003"=list(taxon_name="Gobionotothen gibberifrons",
taxon_aphia_id=234704,
equation=function(...){a=0.00266; b=3.382; se=0.157;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=14.4,sample_maximum=43.8),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",64,
"R^2",0.992),
reference=refs$Arti2003),
"234704M_WW~TL_Arti2003"=list(taxon_name="Gobionotothen gibberifrons",
taxon_aphia_id=234704,
equation=function(...){a=0.00364; b=3.297; se=0.643;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=24,sample_maximum=39.9),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",21,
"R^2",0.96),
notes="Applies to male animals",
reference=refs$Arti2003),
"234704F_WW~TL_Arti2003"=list(taxon_name="Gobionotothen gibberifrons",
taxon_aphia_id=234704,
equation=function(...){a=0.00318; b=3.333; se=0.336;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=16.7,sample_maximum=43.8),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",32,
"R^2",0.982),
notes="Applies to female animals",
reference=refs$Arti2003),
"234788_WW~TL_Arti2003"=list(taxon_name="Lepidonotothen squamifrons",
taxon_aphia_id=234788,
equation=function(...){a=0.00272; b=3.412; se=0.147;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=11.6,sample_maximum=36.2),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",39,
"R^2",0.996),
reference=refs$Arti2003),
"234788M_WW~TL_Arti2003"=list(taxon_name="Lepidonotothen squamifrons",
taxon_aphia_id=234788,
equation=function(...){a=0.00317; b=3.368; se=0.16;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=14.3,sample_maximum=36.2),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",11,
"R^2",0.999),
notes="Applies to male animals",
reference=refs$Arti2003),
"234788F_WW~TL_Arti2003"=list(taxon_name="Lepidonotothen squamifrons",
taxon_aphia_id=234788,
equation=function(...){a=0.00295; b=3.389; se=0.202;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=13.1,sample_maximum=33.8),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",25,
"R^2",0.995),
notes="Applies to female animals",
reference=refs$Arti2003),
"234610_WW~TL_Arti2003"=list(taxon_name="Lepidonotothen larseni",
taxon_aphia_id=234610,
equation=function(...){a=0.00423; b=3.255; se=0.156;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=6.2,sample_maximum=19.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",109,
"R^2",0.985),
reference=refs$Arti2003),
"234610M_WW~TL_Arti2003"=list(taxon_name="Lepidonotothen larseni",
taxon_aphia_id=234610,
equation=function(...){a=0.00529; b=3.157; se=0.178;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=11.6,sample_maximum=16.6),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",52,
"R^2",0.99),
notes="Applies to male animals",
reference=refs$Arti2003),
"234610F_WW~TL_Arti2003"=list(taxon_name="Lepidonotothen larseni",
taxon_aphia_id=234610,
equation=function(...){a=0.00436; b=3.242; se=0.167;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=11.4,sample_maximum=19.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",92,
"R^2",0.985),
notes="Applies to female animals",
reference=refs$Arti2003),
"234608_WW~TL_Arti2003"=list(taxon_name="Lepidonotothen nudifrons",
taxon_aphia_id=234608,
equation=function(...){a=0.00449; b=3.359; se=0.177;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=7.2,sample_maximum=18.4),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",88,
"R^2",0.985),
reference=refs$Arti2003),
"234608M_WW~TL_Arti2003"=list(taxon_name="Lepidonotothen nudifrons",
taxon_aphia_id=234608,
equation=function(...){a=0.00521; b=3.292; se=0.149;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=10.2,sample_maximum=16.9),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",42,
"R^2",0.995),
notes="Applies to male animals",
reference=refs$Arti2003),
"234608F_WW~TL_Arti2003"=list(taxon_name="Lepidonotothen nudifrons",
taxon_aphia_id=234608,
equation=function(...){a=0.00409; b=3.404; se=0.211;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=9.1,sample_maximum=18.4),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",62,
"R^2",0.986),
notes="Applies to female animals",
reference=refs$Arti2003),
"712788_WW~TL_Arti2003"=list(taxon_name="Pleuragramma antarctica",
taxon_aphia_id=712788,
equation=function(...){a=0.00181; b=3.4; se=0.071;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=5.2,sample_maximum=26.6),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",930,
"R^2",0.975),
reference=refs$Arti2003),
"712788M_WW~TL_Arti2003"=list(taxon_name="Pleuragramma antarctica",
taxon_aphia_id=712788,
equation=function(...){a=0.00174; b=3.423; se=0.219;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=11.5,sample_maximum=23),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",96,
"R^2",0.976),
notes="Applies to male animals",
reference=refs$Arti2003),
"712788F_WW~TL_Arti2003"=list(taxon_name="Pleuragramma antarctica",
taxon_aphia_id=712788,
equation=function(...){a=0.00133; b=3.523; se=0.246;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=12.7,sample_maximum=23.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",75,
"R^2",0.978),
notes="Applies to female animals",
reference=refs$Arti2003),
"234754_WW~TL_Arti2003"=list(taxon_name="Trematomus eulepidotus",
taxon_aphia_id=234754,
equation=function(...){a=0.00469; b=3.261; se=0.098;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=12.2,sample_maximum=34),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",416,
"R^2",0.977),
reference=refs$Arti2003),
"234754M_WW~TL_Arti2003"=list(taxon_name="Trematomus eulepidotus",
taxon_aphia_id=234754,
equation=function(...){a=0.00628; b=3.164; se=0.204;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=12.2,sample_maximum=25.6),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",131,
"R^2",0.967),
notes="Applies to male animals",
reference=refs$Arti2003),
"234754F_WW~TL_Arti2003"=list(taxon_name="Trematomus eulepidotus",
taxon_aphia_id=234754,
equation=function(...){a=0.00471; b=3.259; se=0.152;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=13,sample_maximum=30.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",122,
"R^2",0.984),
notes="Applies to female animals",
reference=refs$Arti2003),
"234772_WW~TL_Arti2003"=list(taxon_name="Trematomus hansoni",
taxon_aphia_id=234772,
equation=function(...){a=0.00308; b=3.405; se=0.345;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=15.1,sample_maximum=40),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",49,
"R^2",0.971),
reference=refs$Arti2003),
"234770_WW~TL_Arti2003"=list(taxon_name="Trematomus lepidorhinus",
taxon_aphia_id=234770,
equation=function(...){a=0.00289; b=3.365; se=0.0066;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=3.4,sample_maximum=30.3),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",448,
"R^2",0.989),
reference=refs$Arti2003),
"234770M_WW~TL_Arti2003"=list(taxon_name="Trematomus lepidorhinus",
taxon_aphia_id=234770,
equation=function(...){a=0.00352; b=3.292; se=0.179;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=9.8,sample_maximum=18.9),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",97,
"R^2",0.983),
notes="Applies to male animals",
reference=refs$Arti2003),
"234770F_WW~TL_Arti2003"=list(taxon_name="Trematomus lepidorhinus",
taxon_aphia_id=234770,
equation=function(...){a=0.00489; b=3.15; se=0.132;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=10.1,sample_maximum=19.6),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",115,
"R^2",0.988),
notes="Applies to female animals",
reference=refs$Arti2003),
"234828_WW~TL_Arti2003"=list(taxon_name="Trematomus loennbergii",
taxon_aphia_id=234828,
equation=function(...){a=0.0019; b=3.503; se=0.22;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=8.5,sample_maximum=31.9),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",73,
"R^2",0.983),
reference=refs$Arti2003),
"234644_WW~TL_Arti2003"=list(taxon_name="Trematomus nicolai",
taxon_aphia_id=234644,
equation=function(...){a=0.00744; b=3.155; se=0.157;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=10,sample_maximum=34),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",60,
"R^2",0.991),
reference=refs$Arti2003),
"234644M_WW~TL_Arti2003"=list(taxon_name="Trematomus nicolai",
taxon_aphia_id=234644,
equation=function(...){a=0.0096; b=3.075; se=0.176;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=10.6,sample_maximum=25.6),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",11,
"R^2",0.999),
notes="Applies to male animals",
reference=refs$Arti2003),
"234644F_WW~TL_Arti2003"=list(taxon_name="Trematomus nicolai",
taxon_aphia_id=234644,
equation=function(...){a=0.00625; b=3.244; se=0.207;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=10,sample_maximum=34),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",14,
"R^2",0.997),
notes="Applies to female animals",
reference=refs$Arti2003),
"234709_WW~TL_Arti2003"=list(taxon_name="Trematomus pennellii",
taxon_aphia_id=234709,
equation=function(...){a=0.00466; b=3.313; se=0.071;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=6.6,sample_maximum=29.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",426,
"R^2",0.987),
reference=refs$Arti2003),
"234709M_WW~TL_Arti2003"=list(taxon_name="Trematomus pennellii",
taxon_aphia_id=234709,
equation=function(...){a=0.00533; b=3.274; se=0.093;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=9.4,sample_maximum=23.6),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",160,
"R^2",0.992),
notes="Applies to male animals",
reference=refs$Arti2003),
"234709F_WW~TL_Arti2003"=list(taxon_name="Trematomus pennellii",
taxon_aphia_id=234709,
equation=function(...){a=0.00505; b=3.295; se=0.08;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=7.3,sample_maximum=26),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",193,
"R^2",0.993),
notes="Applies to female animals",
reference=refs$Arti2003),
"234665_WW~TL_Arti2003"=list(taxon_name="Trematomus scotti",
taxon_aphia_id=234665,
equation=function(...){a=0.0055; b=3.158; se=0.079;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=5,sample_maximum=24.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",603,
"R^2",0.976),
reference=refs$Arti2003),
"234665M_WW~TL_Arti2003"=list(taxon_name="Trematomus scotti",
taxon_aphia_id=234665,
equation=function(...){a=0.0072; b=3.015; se=0.131;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=8.3,sample_maximum=16.9),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",185,
"R^2",0.978),
notes="Applies to male animals",
reference=refs$Arti2003),
"234665F_WW~TL_Arti2003"=list(taxon_name="Trematomus scotti",
taxon_aphia_id=234665,
equation=function(...){a=0.00395; b=3.309; se=0.146;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=7.2,sample_maximum=17.4),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",173,
"R^2",0.979),
notes="Applies to female animals",
reference=refs$Arti2003),
"234615_WW~TL_Arti2003"=list(taxon_name="Artedidraco loennbergi",
taxon_aphia_id=234615,
equation=function(...){a=0.00675; b=3.014; se=0.416;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=6.2,sample_maximum=11.8),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",97,
"R^2",0.897),
reference=refs$Arti2003),
"234615M_WW~TL_Arti2003"=list(taxon_name="Artedidraco loennbergi",
taxon_aphia_id=234615,
equation=function(...){a=0.01323; b=2.688; se=0.796;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=7.8,sample_maximum=10),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",35,
"R^2",0.851),
notes="Applies to male animals",
reference=refs$Arti2003),
"234615F_WW~TL_Arti2003"=list(taxon_name="Artedidraco loennbergi",
taxon_aphia_id=234615,
equation=function(...){a=0.00655; b=3.035; se=0.428;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=7.3,sample_maximum=11.8),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",68,
"R^2",0.924),
notes="Applies to female animals",
reference=refs$Arti2003),
"234592_WW~TL_Arti2003"=list(taxon_name="Artedidraco orianae",
taxon_aphia_id=234592,
equation=function(...){a=0.00305; b=3.454; se=0.167;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=5.4,sample_maximum=16.8),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",181,
"R^2",0.974),
reference=refs$Arti2003),
"234592M_WW~TL_Arti2003"=list(taxon_name="Artedidraco orianae",
taxon_aphia_id=234592,
equation=function(...){a=0.00357; b=3.387; se=0.271;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=7.6,sample_maximum=15.2),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",72,
"R^2",0.973),
notes="Applies to male animals",
reference=refs$Arti2003),
"234592F_WW~TL_Arti2003"=list(taxon_name="Artedidraco orianae",
taxon_aphia_id=234592,
equation=function(...){a=0.0024; b=3.557; se=0.228;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=6.8,sample_maximum=16.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",89,
"R^2",0.978),
notes="Applies to female animals",
reference=refs$Arti2003),
"234817_WW~TL_Arti2003"=list(taxon_name="Artedidraco shackletoni",
taxon_aphia_id=234817,
equation=function(...){a=0.01215; b=2.933; se=0.718;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=6.2,sample_maximum=14.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",36,
"R^2",0.89),
reference=refs$Arti2003),
"234817M_WW~TL_Arti2003"=list(taxon_name="Artedidraco shackletoni",
taxon_aphia_id=234817,
equation=function(...){a=0.02833; b=2.599; se=0.988;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=10.8,sample_maximum=14.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",16,
"R^2",0.901),
notes="Applies to male animals",
reference=refs$Arti2003),
"234817F_WW~TL_Arti2003"=list(taxon_name="Artedidraco shackletoni",
taxon_aphia_id=234817,
equation=function(...){a=0.0233; b=2.695; se=0.866;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=9.2,sample_maximum=13.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",16,
"R^2",0.927),
notes="Applies to female animals",
reference=refs$Arti2003),
"234621_WW~TL_Arti2003"=list(taxon_name="Artedidraco skottsbergi",
taxon_aphia_id=234621,
equation=function(...){a=0.00925; b=2.917; se=0.318;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=4.2,sample_maximum=12),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",117,
"R^2",0.92),
reference=refs$Arti2003),
"234621M_WW~TL_Arti2003"=list(taxon_name="Artedidraco skottsbergi",
taxon_aphia_id=234621,
equation=function(...){a=0.00734; b=3.031; se=0.477;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=6.6,sample_maximum=12),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",33,
"R^2",0.956),
notes="Applies to male animals",
reference=refs$Arti2003),
"234621F_WW~TL_Arti2003"=list(taxon_name="Artedidraco skottsbergi",
taxon_aphia_id=234621,
equation=function(...){a=0.00739; b=3.033; se=0.401;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=7.1,sample_maximum=10.3),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",53,
"R^2",0.948),
notes="Applies to female animals",
reference=refs$Arti2003),
"234696_WW~TL_Arti2003"=list(taxon_name="Dolloidraco longedorsalis",
taxon_aphia_id=234696,
equation=function(...){a=0.00725; b=3.013; se=0.184;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=4.3,sample_maximum=13.3),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",371,
"R^2",0.918),
reference=refs$Arti2003),
"234696M_WW~TL_Arti2003"=list(taxon_name="Dolloidraco longedorsalis",
taxon_aphia_id=234696,
equation=function(...){a=0.00962; b=2.884; se=0.247;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=7.3,sample_maximum=12.2),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",79,
"R^2",0.966),
notes="Applies to male animals",
reference=refs$Arti2003),
"234696F_WW~TL_Arti2003"=list(taxon_name="Dolloidraco longedorsalis",
taxon_aphia_id=234696,
equation=function(...){a=0.00744; b=2.993; se=0.257;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=8,sample_maximum=13.3),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",108,
"R^2",0.953),
notes="Applies to female animals",
reference=refs$Arti2003),
"234790_WW~TL_Arti2003"=list(taxon_name="Histiodraco velifer",
taxon_aphia_id=234790,
equation=function(...){a=0.0032; b=3.52; se=1.584;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=14.1,sample_maximum=20.9),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",15,
"R^2",0.876),
reference=refs$Arti2003),
"234826_WW~TL_Arti2003"=list(taxon_name="Pogonophryne barsukovi",
taxon_aphia_id=234826,
equation=function(...){a=0.00289; b=3.492; se=0.968;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=15.8,sample_maximum=22.6),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",23,
"R^2",0.915),
reference=refs$Arti2003),
"234730_WW~TL_Arti2003"=list(taxon_name="Pogonophryne marmorata",
taxon_aphia_id=234730,
equation=function(...){a=0.00398; b=3.425; se=0.277;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=6.2,sample_maximum=20.8),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",49,
"R^2",0.981),
reference=refs$Arti2003),
"234730M_WW~TL_Arti2003"=list(taxon_name="Pogonophryne marmorata",
taxon_aphia_id=234730,
equation=function(...){a=0.00477; b=3.362; se=0.429;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=7.3,sample_maximum=19.3),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",26,
"R^2",0.978),
notes="Applies to male animals",
reference=refs$Arti2003),
"234730F_WW~TL_Arti2003"=list(taxon_name="Pogonophryne marmorata",
taxon_aphia_id=234730,
equation=function(...){a=0.00384; b=3.436; se=0.364;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=8.1,sample_maximum=20.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",19,
"R^2",0.989),
notes="Applies to female animals",
reference=refs$Arti2003),
"234611_WW~TL_Arti2003"=list(taxon_name="Pogonophryne permitini",
taxon_aphia_id=234611,
equation=function(...){a=0.00873; b=3.087; se=1.074;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=8.8,sample_maximum=18.9),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",12,
"R^2",0.943),
reference=refs$Arti2003),
"234837_WW~TL_Arti2003"=list(taxon_name="Pogonophryne scotti",
taxon_aphia_id=234837,
equation=function(...){a=0.00162; b=3.739; se=1.172;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=17,sample_maximum=29.3),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",14,
"R^2",0.942),
reference=refs$Arti2003),
"234816_WW~TL_Arti2003"=list(taxon_name="Bathydraco marri",
taxon_aphia_id=234816,
equation=function(...){a=0.01385; b=2.534; se=0.176;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=8.7,sample_maximum=23.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",86,
"R^2",0.975),
reference=refs$Arti2003),
"234816M_WW~TL_Arti2003"=list(taxon_name="Bathydraco marri",
taxon_aphia_id=234816,
equation=function(...){a=0.015; b=2.496; se=0.471;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=10,sample_maximum=19.6),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",33,
"R^2",0.938),
notes="Applies to male animals",
reference=refs$Arti2003),
"234816F_WW~TL_Arti2003"=list(taxon_name="Bathydraco marri",
taxon_aphia_id=234816,
equation=function(...){a=0.01312; b=2.555; se=0.327;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=10.9,sample_maximum=20.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",48,
"R^2",0.956),
notes="Applies to female animals",
reference=refs$Arti2003),
"234834_WW~TL_Arti2003"=list(taxon_name="Cygnodraco mawsoni",
taxon_aphia_id=234834,
equation=function(...){a=9e-05; b=4.013; se=0.145;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=12.8,sample_maximum=49.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",51,
"R^2",0.996),
reference=refs$Arti2003),
"234834M_WW~TL_Arti2003"=list(taxon_name="Cygnodraco mawsoni",
taxon_aphia_id=234834,
equation=function(...){a=0.00011; b=3.966; se=0.175;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=26.6,sample_maximum=45.3),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",22,
"R^2",0.998),
notes="Applies to male animals",
reference=refs$Arti2003),
"234834F_WW~TL_Arti2003"=list(taxon_name="Cygnodraco mawsoni",
taxon_aphia_id=234834,
equation=function(...){a=0.00012; b=3.939; se=0.224;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=20.5,sample_maximum=49.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",19,
"R^2",0.997),
notes="Applies to female animals",
reference=refs$Arti2003),
"234808_WW~TL_Arti2003"=list(taxon_name="Gerlachea australis",
taxon_aphia_id=234808,
equation=function(...){a=0.00086; b=3.415; se=0.481;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=13.3,sample_maximum=27.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",136,
"R^2",0.855),
reference=refs$Arti2003),
"234808M_WW~TL_Arti2003"=list(taxon_name="Gerlachea australis",
taxon_aphia_id=234808,
equation=function(...){a=0.00075; b=3.474; se=0.511;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=13.3,sample_maximum=26.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",52,
"R^2",0.937),
notes="Applies to male animals",
reference=refs$Arti2003),
"234808F_WW~TL_Arti2003"=list(taxon_name="Gerlachea australis",
taxon_aphia_id=234808,
equation=function(...){a=0.00016; b=3.982; se=1.748;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=19.2,sample_maximum=27.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",20,
"R^2",0.836),
notes="Applies to female animals",
reference=refs$Arti2003),
"234800_WW~TL_Arti2003"=list(taxon_name="Gymnodraco acuticeps",
taxon_aphia_id=234800,
equation=function(...){a=0.00034; b=3.9; se=0.398;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=18,sample_maximum=38.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",27,
"R^2",0.985),
reference=refs$Arti2003),
"234800M_WW~TL_Arti2003"=list(taxon_name="Gymnodraco acuticeps",
taxon_aphia_id=234800,
equation=function(...){a=0.00058; b=3.754; se=0.456;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=24.1,sample_maximum=38.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",10,
"R^2",0.994),
notes="Applies to male animals",
reference=refs$Arti2003),
"234800F_WW~TL_Arti2003"=list(taxon_name="Gymnodraco acuticeps",
taxon_aphia_id=234800,
equation=function(...){a=0.00063; b=3.719; se=0.857;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=28.2,sample_maximum=31.4),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",7,
"R^2",0.99),
notes="Applies to female animals",
reference=refs$Arti2003),
"234777_WW~TL_Arti2003"=list(taxon_name="Prionodraco evansii",
taxon_aphia_id=234777,
equation=function(...){a=0.0046; b=2.97; se=0.095;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=5.1,sample_maximum=15.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",289,
"R^2",0.982),
reference=refs$Arti2003),
"234777M_WW~TL_Arti2003"=list(taxon_name="Prionodraco evansii",
taxon_aphia_id=234777,
equation=function(...){a=0.00485; b=2.951; se=0.114;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=9.4,sample_maximum=15.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",185,
"R^2",0.983),
notes="Applies to male animals",
reference=refs$Arti2003),
"234777F_WW~TL_Arti2003"=list(taxon_name="Prionodraco evansii",
taxon_aphia_id=234777,
equation=function(...){a=0.00469; b=2.965; se=0.115;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=7.7,sample_maximum=15.3),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",205,
"R^2",0.981),
notes="Applies to female animals",
reference=refs$Arti2003),
"234799_WW~TL_Arti2003"=list(taxon_name="Racovitzia glacialis",
taxon_aphia_id=234799,
equation=function(...){a=0.00112; b=3.393; se=0.203;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=9.2,sample_maximum=28.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",68,
"R^2",0.985),
reference=refs$Arti2003),
"234799M_WW~TL_Arti2003"=list(taxon_name="Racovitzia glacialis",
taxon_aphia_id=234799,
equation=function(...){a=0.00406; b=2.978; se=0.6;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=16.8,sample_maximum=27.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",33,
"R^2",0.93),
notes="Applies to male animals",
reference=refs$Arti2003),
"234799F_WW~TL_Arti2003"=list(taxon_name="Racovitzia glacialis",
taxon_aphia_id=234799,
equation=function(...){a=0.00052; b=3.632; se=0.99;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=21.5,sample_maximum=28.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",15,
"R^2",0.951),
notes="Applies to female animals",
reference=refs$Arti2003),
"234720_WW~TL_Arti2003"=list(taxon_name="Cryodraco antarcticus",
taxon_aphia_id=234720,
equation=function(...){a=0.00083; b=3.458; se=0.25;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=16.2,sample_maximum=52.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",218,
"R^2",0.932),
reference=refs$Arti2003),
"234720M_WW~TL_Arti2003"=list(taxon_name="Cryodraco antarcticus",
taxon_aphia_id=234720,
equation=function(...){a=0.00045; b=3.648; se=0.883;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=31.8,sample_maximum=48.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",22,
"R^2",0.937),
notes="Applies to male animals",
reference=refs$Arti2003),
"234720F_WW~TL_Arti2003"=list(taxon_name="Cryodraco antarcticus",
taxon_aphia_id=234720,
equation=function(...){a=0.00092; b=3.429; se=0.501;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=28.2,sample_maximum=52.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",29,
"R^2",0.967),
notes="Applies to female animals",
reference=refs$Arti2003),
"234725_WW~TL_Arti2003"=list(taxon_name="Chaenocephalus aceratus",
taxon_aphia_id=234725,
equation=function(...){a=0.00121; b=3.422; se=0.187;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=14.8,sample_maximum=52.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",52,
"R^2",0.991),
reference=refs$Arti2003),
"234725M_WW~TL_Arti2003"=list(taxon_name="Chaenocephalus aceratus",
taxon_aphia_id=234725,
equation=function(...){a=0.00074; b=3.585; se=0.359;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=18.4,sample_maximum=33.8),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",24,
"R^2",0.987),
notes="Applies to male animals",
reference=refs$Arti2003),
"234725F_WW~TL_Arti2003"=list(taxon_name="Chaenocephalus aceratus",
taxon_aphia_id=234725,
equation=function(...){a=0.0012; b=3.42; se=0.226;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=19.2,sample_maximum=52.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",30,
"R^2",0.993),
notes="Applies to female animals",
reference=refs$Arti2003),
"234609_WW~TL_Arti2003"=list(taxon_name="Chaenodraco wilsoni",
taxon_aphia_id=234609,
equation=function(...){a=0.00125; b=3.468; se=0.58;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=13.7,sample_maximum=30.9),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",80,
"R^2",0.879),
reference=refs$Arti2003),
"234797_WW~TL_Arti2003"=list(taxon_name="Champsocephalus gunnari",
taxon_aphia_id=234797,
equation=function(...){a=0.0008; b=3.593; se=0.197;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=19.1,sample_maximum=48.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",73,
"R^2",0.987),
reference=refs$Arti2003),
"234797M_WW~TL_Arti2003"=list(taxon_name="Champsocephalus gunnari",
taxon_aphia_id=234797,
equation=function(...){a=0.0008; b=3.594; se=0.338;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=28,sample_maximum=47.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",24,
"R^2",0.989),
notes="Applies to male animals",
reference=refs$Arti2003),
"234797F_WW~TL_Arti2003"=list(taxon_name="Champsocephalus gunnari",
taxon_aphia_id=234797,
equation=function(...){a=0.00069; b=3.636; se=0.281;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=26.7,sample_maximum=48.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",41,
"R^2",0.986),
notes="Applies to female animals",
reference=refs$Arti2003),
"234650_WW~TL_Arti2003"=list(taxon_name="Chionobathyscus dewitti",
taxon_aphia_id=234650,
equation=function(...){a=0.00214; b=3.319; se=0.367;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=14,sample_maximum=41.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",95,
"R^2",0.933),
reference=refs$Arti2003),
"234650M_WW~TL_Arti2003"=list(taxon_name="Chionobathyscus dewitti",
taxon_aphia_id=234650,
equation=function(...){a=0.00044; b=3.797; se=0.947;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=27,sample_maximum=36.8),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",30,
"R^2",0.906),
notes="Applies to male animals",
reference=refs$Arti2003),
"234650F_WW~TL_Arti2003"=list(taxon_name="Chionobathyscus dewitti",
taxon_aphia_id=234650,
equation=function(...){a=0.00179; b=3.368; se=1.039;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=27.9,sample_maximum=41.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",32,
"R^2",0.854),
notes="Applies to female animals",
reference=refs$Arti2003),
"234795_WW~TL_Arti2003"=list(taxon_name="Chionodraco hamatus",
taxon_aphia_id=234795,
equation=function(...){a=0.00106; b=3.538; se=0.36;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=15.8,sample_maximum=49.8),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",96,
"R^2",0.942),
reference=refs$Arti2003),
"234795M_WW~TL_Arti2003"=list(taxon_name="Chionodraco hamatus",
taxon_aphia_id=234795,
equation=function(...){a=0.00033; b=3.885; se=0.944;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=15.8,sample_maximum=43.2),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",10,
"R^2",0.978),
notes="Applies to male animals",
reference=refs$Arti2003),
"234795F_WW~TL_Arti2003"=list(taxon_name="Chionodraco hamatus",
taxon_aphia_id=234795,
equation=function(...){a=0.0011; b=3.522; se=0.65;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=19.9,sample_maximum=46.3),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",8,
"R^2",0.992),
notes="Applies to female animals",
reference=refs$Arti2003),
"234646_WW~TL_Arti2003"=list(taxon_name="Chionodraco myersi",
taxon_aphia_id=234646,
equation=function(...){a=0.00144; b=3.416; se=0.061;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=7.5,sample_maximum=39.2),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",631,
"R^2",0.987),
reference=refs$Arti2003),
"234646M_WW~TL_Arti2003"=list(taxon_name="Chionodraco myersi",
taxon_aphia_id=234646,
equation=function(...){a=0.00142; b=3.431; se=0.142;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=11.8,sample_maximum=33),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",63,
"R^2",0.994),
notes="Applies to male animals",
reference=refs$Arti2003),
"234646F_WW~TL_Arti2003"=list(taxon_name="Chionodraco myersi",
taxon_aphia_id=234646,
equation=function(...){a=0.00144; b=3.427; se=0.144;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=11,sample_maximum=33.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",62,
"R^2",0.993),
notes="Applies to female animals",
reference=refs$Arti2003),
"234678_WW~TL_Arti2003"=list(taxon_name="Chionodraco rastrospinosus",
taxon_aphia_id=234678,
equation=function(...){a=0.00075; b=3.656; se=0.115;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=14.6,sample_maximum=43.4),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",248,
"R^2",0.984),
reference=refs$Arti2003),
"234678M_WW~TL_Arti2003"=list(taxon_name="Chionodraco rastrospinosus",
taxon_aphia_id=234678,
equation=function(...){a=0.00074; b=3.665; se=0.199;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=21,sample_maximum=37.6),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",66,
"R^2",0.988),
notes="Applies to male animals",
reference=refs$Arti2003),
"234678F_WW~TL_Arti2003"=list(taxon_name="Chionodraco rastrospinosus",
taxon_aphia_id=234678,
equation=function(...){a=0.00081; b=3.63; se=0.154;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=16.6,sample_maximum=43.4),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",102,
"R^2",0.989),
notes="Applies to female animals",
reference=refs$Arti2003),
"234614_WW~TL_Arti2003"=list(taxon_name="Dacodraco hunteri",
taxon_aphia_id=234614,
equation=function(...){a=0.00079; b=3.533; se=0.401;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=10.6,sample_maximum=30.4),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",63,
"R^2",0.953),
reference=refs$Arti2003),
"234685_WW~TL_Arti2003"=list(taxon_name="Neopagetopsis ionah",
taxon_aphia_id=234685,
equation=function(...){a=0.01863; b=2.762; se=1.341;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=26.6,sample_maximum=55),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",11,
"R^2",0.906),
reference=refs$Arti2003),
"234796_WW~TL_Arti2003"=list(taxon_name="Pagetopsis maculatus",
taxon_aphia_id=234796,
equation=function(...){a=0.00034; b=4.048; se=0.597;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=14.6,sample_maximum=22.3),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",52,
"R^2",0.937),
reference=refs$Arti2003),
"234695_WW~TL_Arti2003"=list(taxon_name="Notolepis coatsi",
taxon_aphia_id=234695,
equation=function(...){a=0.00017; b=3.645; se=0.973;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=17.1,sample_maximum=35.2),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",10,
"R^2",0.974),
reference=refs$Arti2003),
"217697_WW~TL_Arti2003"=list(taxon_name="Electrona antarctica",
taxon_aphia_id=217697,
equation=function(...){a=0.01592; b=2.836; se=0.693;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=7.5,sample_maximum=11.2),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",28,
"R^2",0.916),
reference=refs$Arti2003),
"234729_WW~TL_Arti2003"=list(taxon_name="Gymnoscopelus bolini",
taxon_aphia_id=234729,
equation=function(...){a=0.00144; b=3.568; se=0.612;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=10.4,sample_maximum=19.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",23,
"R^2",0.966),
reference=refs$Arti2003),
"234821_WW~TL_Arti2003"=list(taxon_name="Gymnoscopelus nicholsi",
taxon_aphia_id=234821,
equation=function(...){a=0.00831; b=2.907; se=0.397;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=14.5,sample_maximum=19.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",175,
"R^2",0.829),
reference=refs$Arti2003),
"234831_WW~TL_Arti2003"=list(taxon_name="Macrourus holotrachys",
taxon_aphia_id=234831,
equation=function(...){a=0.00156; b=3.283; se=0.301;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=8.4,sample_maximum=43.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",40,
"R^2",0.981),
reference=refs$Arti2003),
"234831M_WW~TL_Arti2003"=list(taxon_name="Macrourus holotrachys",
taxon_aphia_id=234831,
equation=function(...){a=0.00175; b=3.235; se=0.615;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=9.6,sample_maximum=25.1),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",20,
"R^2",0.964),
notes="Applies to male animals",
reference=refs$Arti2003),
"234831F_WW~TL_Arti2003"=list(taxon_name="Macrourus holotrachys",
taxon_aphia_id=234831,
equation=function(...){a=0.00199; b=3.203; se=0.3;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=12.8,sample_maximum=43.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",28,
"R^2",0.987),
notes="Applies to female animals",
reference=refs$Arti2003),
"234606_WW~TL_Arti2003"=list(taxon_name="Macrourus whitsoni",
taxon_aphia_id=234606,
equation=function(...){a=0.00159; b=3.299; se=0.137;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=9.2,sample_maximum=66.7),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",241,
"R^2",0.974),
reference=refs$Arti2003),
"126486_WW~TL_Arti2003"=list(taxon_name="Antimora rostrata",
taxon_aphia_id=126486,
equation=function(...){a=0.00225; b=3.299; se=1.146;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=20.5,sample_maximum=30.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",10,
"R^2",0.957),
reference=refs$Arti2003),
"234675_WW~TL_Arti2003"=list(taxon_name="Bathyraja maccaini",
taxon_aphia_id=234675,
equation=function(...){a=0.00477; b=3.162; se=0.842;
tibble(allometric_value=a*(...^b))##,
##allometric_value_lower=10^(log10(a)+b*log10(...)-1.96*se),
##allometric_value_upper=10^(log10(a)+b*log10(...)+1.96*se))
},
inputs=tibble(property="total length",units="cm",sample_minimum=23.5,sample_maximum=86.5),
return_property="wet weight",
return_units="g",
reliability=tribble(~type,~value,
"N",17,
"R^2",0.945),
reference=refs$Arti2003),
stop("unrecognized equation ID: ",id))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.