# NOT RUN {
# }
# NOT RUN {
# species-trait matrix:
pulldata("carabids")
dataset1 <- as.traitdata(carabids,
taxa = "name_correct",
traits = c("body_length", "antenna_length", "metafemur_length"),
units = "mm",
keep = c(basisOfRecordDecription = "source_measurement", measurementRemark = "note")
)
# occurrence table:
pulldata("heteroptera_raw")
dataset2 <- as.traitdata(heteroptera_raw,
taxa = "SpeciesID",
traits = c("Body_length", "Body_width", "Body_height", "Thorax_length",
"Thorax_width", "Head_width", "Eye_width", "Antenna_Seg1", "Antenna_Seg2",
"Antenna_Seg3", "Antenna_Seg4", "Antenna_Seg5", "Front.Tibia_length",
"Mid.Tibia_length", "Hind.Tibia_length", "Front.Femur_length",
"Hind.Femur_length", "Front.Femur_width", "Hind.Femur_width",
"Rostrum_length", "Rostrum_width", "Wing_length", "Wing_widt"),
units = "mm",
keep = c(sex = "Sex", references = "Source", lifestage = "Wing_development"),
metadata = as.metadata(
author = "Gossner MM, Simons NK, H<U+00F6>ck L and Weisser WW",
datasetName = "Morphometric traits Heteroptera",
bibliographicCitation = attributes(heteroptera_raw)$citeAs,
license = "http://creativecommons.org/publicdomain/zero/1.0/"
)
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab