Nothing
#this file contains toy datasets for the purpose of testing/examples
#data frame with incorrect column names
bad_names <- data.frame(acronot = c("ABEESC", "ABIBAL", "AMMBRE", "ANTELE"),
scientific_not = c("Abelmoschus esculentus", "Abies balsamea", "Ammophila breviligulata", "Anticlea elegans; zigadenus glaucus"))
#data frame with one incorrect column name
one_bad_names <- data.frame(acronot = c("ABEESC", "ABIBAL", "AMMBRE", "ANTELE"),
name = c("Abelmoschus esculentus", "Abies balsamea", "Ammophila breviligulata", "Anticlea elegans; zigadenus glaucus"))
#character string
character_string <- list("character", "string", "not", "df")
#integers
numbers <- 1:5
#data frame with duplicates in both rows
duplicate <- data.frame(acronym = c("ABIBAL", "ABIBAL", "AMMBRE", "ABEESC"),
name = c("Abies balsamea", "Abies balsamea", "Ammophila breviligulata", "Abelmoschus esculentus"))
#data frame with incorrect entries in both rows
typo <- data.frame(acronym = c("ABEESC", "ABIBAL", "AMMBRE", "typo"),
name = c("Abelmoschus esculentus", "Abies balsamea", "Ammophila breviligulata", "typo"))
#data frame with bad capitalization
fuzzy <- data.frame(acronym = c("abeesc", "ABIBAL", "AMMBRE", "ANTELE"),
name = c("Abelmoschus esculentus", "Abies balsamea", "Ammophila breviligulata", "Anticlea elegans"))
#transect test
transect <- data.frame(acronym = c("ABEESC", "ABIBAL", "AMMBRE", "ANTELE", "ABEESC", "ABIBAL", "AMMBRE"),
cover = c(50, 4, 20, 30, 40, 7, 60),
quad_id = c(1, 1, 1, 1, 2, 2, 2))
#na C Value
no_c_test <- data.frame(name = c("ABRONIA FRAGRANS", "ACER GLABRUM", "ACER GRANDIDENTATUM", "BOOP", "ACER PLATANOIDES"),
cover = c(1, 2, 3, 4, 62))
#cover method test
cover_test <- data.frame(acronym = c("ABEESC", "ABIBAL", "AMMBRE", "ANTELE"),
name = c("Abelmoschus esculentus", "Abies balsamea", "Ammophila breviligulata", "Anticlea elegans"),
cover = c(1, 2, 3, 4))
#na in cover test
na_intro_cover <- data.frame(acronym = c("ABEESC", "ABIBAL", "AMMBRE", "ANTELE"),
cover = c(50, "A", 20, 30))
#transects with duplicates in same plot and with non-veg components
transect_dup <- data.frame(acronym = c("GROUND", "GROUND", "ABEESC", "ABIBAL", "AMMBRE", "ANTELE", "WATER", "GROUND", "ABEESC", "ABIBAL", "AMMBRE"),
cover = c(60, 40, 50, 4, 20, 30, 20, 20, 40, 7, 60),
quad_id = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2))
#quadrant test
quadrat <- data.frame(acronym = c("ABEESC", "ABIBAL", "AMMBRE", "ANTELE"),
name = c("Abelmoschus esculentus", "Abies balsamea", "Ammophila breviligulata", "Anticlea elegans"),
cover = c(50, 4, 20, 30))
#wetland testing colorado_2020
partial_wetland <- data.frame(name = c("ABIES LASIOCARPA", "ABIES CONCOLOR"))
#accepted testing
accepted_perfect <- data.frame(acronym = c("ABEESC", "ABIBAL"),
cover = c(60, 50),
quad_id = c(1, 1))
accepted_dup <- data.frame(acronym = c("ABEESC", "ABIBAL", "ABIBAL"),
cover = c(60, 50, 50),
quad_id = c(1, 2, 2))
accepted_non_veg <- data.frame(acronym = c("ABEESC", "GROUND", "WATER"),
cover = c(60, 50, 1),
quad_id = c(1, 2, 2))
accepted_no_c <- data.frame(name = c("ABRONIA FRAGRANS", "ACER GLABRUM"))
accepted_br <- data.frame(acronym = c("ABEESC", "ABIBAL", "ABIBAL"),
cover = c(5, "+", 50),
quad_id = c(1, 2, 2))
accepted_br_dup <- data.frame(acronym = c("ABEESC", "ABIBAL", "ABIBAL"),
cover = c(5, "+", 3),
quad_id = c(1, 2, 2))
accepted_cover_method <- data.frame(acronym = c("ABEESC", "ABIBAL"),
cover = c(1, 3))
accepted_bad_cov_val <- data.frame(acronym = c("ABEESC", "ABIBAL"),
cover = c(25, 3))
#test using wyoming_2017
#df where some entries are synonyms shared by more than one species
same_syn <- data.frame(name = c("CAREX MURICATA", "POTENTILLA NANA", "POTENTILLA NANA", "ABIES BIFOLIA"),
cover = c(80, 60, 20, 10))
#df where some entries are listed as main name, and synonym of another species
same_syn_sci <- data.frame(name = c("CAREX FOENEA", "CAREX FOENEA", "ABIES BIFOLIA"),
cover = c(80, 60, 10))
#same but with an innocently duplicated synonym
same_syn_sci_2 <- data.frame(name = c("CAREX FOENEA", "CAREX FOENEA", "ABIES MENZIESII", "ABIES MENZIESII"),
cover = c(80, 60, 10, 10))
same_id <- data.frame(name = c("ABIES BIFOLIA", "ABIES LASIOCARPA", "ABIES LASIOCARPA", "ABIES MENZIESII"),
cover = c(80, 60, 20, 10))
#df where some entries are synonyms to mult species and some are both
same <- data.frame(name = c("CAREX MURICATA", "GNAPHALIUM ULIGINOSUM", "CAREX FOENEA", "ABIES BIFOLIA"),
cover = c(80, 60, 20, 10))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.