data-raw/feldspar.R

In jolars/trelliswork: New and Extended Plots, Methods, and Panel Functions for 'lattice'

Experiment <- c("L3", "KL1", "M1", "O1", "P2", "G4", "K1", "L1", "G3", "P1",
                "Q1", "G2", "E2", "l1", "A1", "G10-2", "G5", "A4", "G10-7",
                "G10-9")
Feldspar <- gl(2, 20, labels = c("Alkali", "Plagioclase"))
Ab <- c(0.170, 0.420, 0.300, 0.093, 0.155, 0.483, 0.282, 0.243, 0.257, 0.270,
        0.214, 0.276, 0.331, 0.423, 0.408, 0.251, 0.333, 0.331, 0.255, 0.232,
        0.255, 0.642, 0.545, 0.120, 0.240, 0.732, 0.635, 0.590, 0.595, 0.622,
        0.570, 0.732, 0.772, 0.740, 0.797, 0.720, 0.773, 0.763, 0.720, 0.772)
Or <- c(0.799, 0.535, 0.665, 0.880, 0.815, 0.492, 0.700, 0.740, 0.724, 0.712,
        0.770, 0.715, 0.660, 0.568, 0.580, 0.740, 0.657, 0.658, 0.736, 0.763,
        0.032, 0.097, 0.070, 0.023, 0.035, 0.153, 0.095, 0.065, 0.062, 0.066,
        0.065, 0.053, 0.078, 0.205, 0.084, 0.058, 0.072, 0.072, 0.050, 0.060)
An <- c(0.031, 0.045, 0.035, 0.027, 0.030, 0.025, 0.018, 0.017, 0.019, 0.018,
        0.016, 0.009, 0.009, 0.009, 0.012, 0.009, 0.010, 0.011, 0.009, 0.005,
        0.713, 0.261, 0.385, 0.857, 0.725, 0.115, 0.270, 0.345, 0.343, 0.312,
        0.365, 0.215, 0.149, 0.055, 0.119, 0.222, 0.155, 0.165, 0.230, 0.168)
Temperature <- c(890, 890, 880, 890, 900, 800, 800, 800, 800, 800,
                 800, 700, 700, 700, 700, 700, 700, 700, 675, 650)
Pressure <- c(1000, 1000, 1000, 1000, 1000, 1000, 2000, 2000, 2000, 2000,
              2000, 2000, 2000, 2000, 2000, 2000, 3000, 3000, 2000, 3000)

feldspar <- data.frame(
  Experiment,
  Feldspar,
  Ab,
  Or,
  An,
  Temperature,
  Pressure = as.integer(Pressure),
  stringsAsFactors = FALSE
)

devtools::use_data(feldspar, overwrite = TRUE)