R/geometry_create_trapezoid.R

In katiesocolow/Week_2_Project_Package: geometry

if (FALSE) {
  geo_trapezoid <- read.table(text = "
                        base1     base2     height      area
                        1         3         4           8
                        3         2         16          40
                        2         2         2           4
                        6         5         10          55
                        10        10        30          300
                        5         4         8           36
                        ")
  devtools::use_data(geo_circle, overwrite = TRUE)
}