composr: Compositional Data Operators and Functions

lava <- tibble::tibble(
  sample_id = c(
    937,
    976,
    925,
    974,
    924,
    950,
    891,
    928,
    929,
    290,
    927,
    921,
    968,
    977,
    953,
    952,
    923,
    289,
    285,
    922,
    280,
    926,
    932,
    279,
    892,
    949,
    216,
    282,
    896,
    276,
    284,
    967,
    982,
    238,
    907,
    979,
    985,
    269,
    215,
    934,
    912,
    984,
    958,
    920
  ),
  type = c(rep("Basalt", 33),
                rep("Hawaiite", 10),
                "Benmoreite"),
  SiO2 =  c(
    46.31,
    45.51,
    45.19,
    47.71,
    45.68,
    45.60,
    46.80,
    46.73,
    46.83,
    46.10,
    45.39,
    45.05,
    45.38,
    46.88,
    47.09,
    48.55,
    46.14,
    46.60,
    46.67,
    45.88,
    45.28,
    46.34,
    44.89,
    45.44,
    48.01,
    44.12,
    44.72,
    44.60,
    47.05,
    44.37,
    46.54,
    47.84,
    46.84,
    46.18,
    46.69,
    46.95,
    47.99,
    45.15,
    46.25,
    47.94,
    46.51,
    46.98,
    46.46,
    57.11
  ),
  Al2O3 = c(
    14.18,
    14.13,
    13.51,
    14.46,
    14.02,
    14.16,
    14.57,
    14.59,
    14.90,
    13.92,
    14.48,
    14.01,
    15.11,
    15.17,
    14.80,
    14.44,
    14.77,
    15.65,
    15.79,
    13.80,
    15.64,
    14.55,
    16.04,
    15.18,
    15.59,
    14.95,
    16.15,
    15.81,
    15.28,
    15.40,
    16.05,
    17.47,
    15.73,
    17.17,
    16.05,
    15.81,
    16.40,
    14.73,
    16.27,
    17.07,
    16.55,
    16.55,
    16.49,
    15.81
  ),
  Fe2O3 = c(
    12.32,
    12.84,
    13.32,
    11.49,
    13.20,
    13.58,
    12.98,
    12.00,
    11.67,
    12.73,
    12.75,
    13.94,
    13.01,
    12.33,
    11.55,
    10.94,
    12.76,
    11.79,
    13.07,
    13.10,
    14.13,
    13.65,
    14.76,
    14.54,
    11.70,
    14.81,
    14.62,
    14.41,
    13.71,
    14.98,
    13.06,
    12.97,
    11.68,
    14.43,
    15.13,
    14.40,
    12.90,
    15.85,
    15.04,
    14.28,
    14.76,
    16.12,
    14.96,
    9.73
  ),
  MgO =  c(
    12.74,
    12.65,
    12.27,
    10.50,
    11.52,
    11.59,
    10.99,
    10.16,
    9.86,
    10.65,
    10.55,
    11.47,
    10.28,
    9.70,
    9.09,
    8.60,
    9.85,
    8.92,
    9.57,
    9.58,
    10.13,
    9.78,
    9.97,
    9.58,
    7.63,
    9.28,
    8.42,
    8.21,
    7.79,
    8.43,
    6.98,
    6.66,
    9.72,
    5.28,
    5.61,
    5.18,
    4.53,
    5.34,
    4.94,
    4.57,
    4.26,
    3.90,
    2.68,
    1.48
  ),
  CaO =  c(
    9.62,
    9.41,
    8.30,
    9.86,
    8.52,
    8.88,
    9.03,
    9.06,
    9.63,
    9.87,
    8.81,
    9.04,
    9.58,
    9.90,
    10.41,
    9.77,
    8.81,
    10.78,
    9.73,
    8.73,
    10.12,
    9.11,
    9.29,
    8.88,
    10.29,
    9.31,
    9.93,
    9.70,
    8.83,
    9.61,
    10.23,
    10.70,
    12.63,
    7.18,
    6.28,
    6.99,
    6.84,
    6.53,
    7.12,
    6.56,
    7.57,
    6.66,
    6.86,
    2.97
  ),
  Na2O = c(
    2.51,
    2.47,
    2.89,
    2.48,
    2.66,
    2.70,
    2.78,
    2.53,
    2.92,
    2.66,
    2.29,
    2.70,
    2.48,
    2.61,
    2.43,
    2.52,
    2.72,
    2.30,
    2.96,
    2.96,
    2.74,
    2.84,
    2.81,
    3.35,
    2.59,
    2.78,
    2.79,
    2.80,
    3.29,
    2.83,
    2.82,
    2.83,
    1.78,
    4.12,
    5.07,
    4.09,
    3.98,
    4.46,
    4.18,
    4.91,
    3.94,
    4.67,
    4.68,
    5.96
  ),
  K2O =  c(
    0.34,
    0.47,
    0.37,
    0.60,
    0.47,
    0.43,
    0.40,
    0.38,
    0.44,
    0.54,
    0.48,
    0.35,
    0.45,
    0.51,
    0.55,
    0.62,
    0.53,
    0.46,
    0.48,
    0.53,
    0.25,
    0.57,
    0.22,
    0.47,
    0.62,
    0.41,
    0.35,
    0.48,
    0.70,
    0.39,
    0.61,
    0.51,
    0.04,
    0.87,
    0.70,
    1.20,
    1.27,
    1.07,
    0.75,
    0.77,
    1.09,
    1.00,
    0.50,
    3.47
  ),
  TiO2 = c(
    1.53,
    1.66,
    2.03,
    1.30,
    1.95,
    1.93,
    1.65,
    1.60,
    1.44,
    1.82,
    1.90,
    2.15,
    1.79,
    1.42,
    1.40,
    1.24,
    1.83,
    1.42,
    1.82,
    1.99,
    1.82,
    1.90,
    2.05,
    2.14,
    1.27,
    2.63,
    2.25,
    2.30,
    1.60,
    2.58,
    1.99,
    1.25,
    1.11,
    3.10,
    2.76,
    2.92,
    2.53,
    3.87,
    2.78,
    2.23,
    3.11,
    2.76,
    2.97,
    1.03
  ),
  P2O3 = c(
    0.16,
    0.18,
    0.22,
    0.16,
    0.22,
    0.21,
    0.19,
    0.16,
    0.17,
    0.20,
    0.21,
    0.23,
    0.20,
    0.17,
    0.18,
    0.15,
    0.20,
    0.16,
    0.24,
    0.23,
    0.19,
    0.25,
    0.20,
    0.27,
    0.17,
    0.28,
    0.26,
    0.27,
    0.26,
    0.28,
    0.29,
    0.17,
    0.09,
    0.44,
    0.45,
    0.47,
    0.47,
    0.62,
    0.45,
    0.37,
    0.48,
    0.54,
    0.34,
    0.69
  ),
  MnO =  c(
    0.18,
    0.19,
    0.16,
    0.18,
    0.19,
    0.19,
    0.18,
    0.17,
    0.16,
    0.19,
    0.19,
    0.20,
    0.20,
    0.19,
    0.19,
    0.18,
    0.18,
    0.22,
    0.22,
    0.17,
    0.22,
    0.22,
    0.21,
    0.20,
    0.17,
    0.23,
    0.23,
    0.23,
    0.20,
    0.24,
    0.26,
    0.26,
    0.23,
    0.25,
    0.19,
    0.24,
    0.25,
    0.23,
    0.22,
    0.20,
    0.26,
    0.24,
    0.20,
    0.20
  )
)

usethis::use_data(lava,
                  overwrite = TRUE)