data-raw/example_sets.R

In swmpkim/SETr: Functions for working with Surface Elevation Table (SET) data

## code to prepare `example_sets` dataset goes here

usethis::use_data(example_sets)

example_sets <- data.frame(stringsAsFactors=FALSE,
                           date = c("2010-06-01", "2010-06-01", "2010-06-01", "2010-06-01",
                                    "2010-06-01", "2010-06-01", "2011-06-15",
                                    "2011-06-15", "2011-06-15", "2011-06-15",
                                    "2011-06-15", "2011-06-15", "2012-06-05",
                                    "2012-06-05", "2012-06-05", "2012-06-05",
                                    "2012-06-05", "2012-06-05", "2010-06-01", "2010-06-01",
                                    "2010-06-01", "2010-06-01", "2010-06-01",
                                    "2010-06-01", "2011-06-15", "2011-06-15",
                                    "2011-06-15", "2011-06-15", "2011-06-15",
                                    "2011-06-15", "2012-06-05", "2012-06-05",
                                    "2012-06-05", "2012-06-05", "2012-06-05", "2012-06-05"),
                         set_id = c("SET1", "SET1", "SET1", "SET1", "SET1", "SET1", "SET1",
                                    "SET1", "SET1", "SET1", "SET1", "SET1",
                                    "SET1", "SET1", "SET1", "SET1", "SET1", "SET1",
                                    "SET2", "SET2", "SET2", "SET2", "SET2",
                                    "SET2", "SET2", "SET2", "SET2", "SET2", "SET2",
                                    "SET2", "SET2", "SET2", "SET2", "SET2", "SET2",
                                    "SET2"),
                   arm_position = c("a", "a", "a", "b", "b", "b", "a", "a", "a", "b", "b", "b",
                                    "a", "a", "a", "b", "b", "b", "a", "a",
                                    "a", "b", "b", "b", "a", "a", "a", "b", "b",
                                    "b", "a", "a", "a", "b", "b", "b"),
                     pin_number = c("pin_1", "pin_2", "pin_3", "pin_1", "pin_2", "pin_3",
                                    "pin_1", "pin_2", "pin_3", "pin_1",
                                    "pin_2", "pin_3", "pin_1", "pin_2", "pin_3",
                                    "pin_1", "pin_2", "pin_3", "pin_1", "pin_2",
                                    "pin_3", "pin_1", "pin_2", "pin_3", "pin_1",
                                    "pin_2", "pin_3", "pin_1", "pin_2", "pin_3",
                                    "pin_1", "pin_2", "pin_3", "pin_1", "pin_2",
                                    "pin_3"),
                     pin_height = c(100, 106, 118, 110, 125, 115, 105, 113, 120, 117, 128, 118,
                                    112, 120, 124, 125, 123, 130, 142, 148,
                                    160, 152, 167, 157, 147, 155, 162, 159, 170,
                                    160, 154, 162, 166, 167, 165, 172)
                )