tests/testthat/data/ppm-mix-ui-1.R

In pmcharrison/ppm: Prediction by Partial Matching

x <- list(
list(
c(
a = 0.19999999,
b = 0.19999999,
c = 0.19999999,
d = 0.19999999,
r = 0.19999999),
c(
a = 0.59999996,
b = 0.09999999,
c = 0.09999999,
d = 0.09999999,
r = 0.09999999),
c(
a = 0.33333334,
b = 0.33333334,
c = 0.11111111,
d = 0.11111111,
r = 0.11111111),
c(
a = 0.25,
b = 0.25,
c = 0.125,
d = 0.125,
r = 0.25),
c(
a = 0.20000002,
b = 0.53333336,
c = 0.06666668,
d = 0.06666668,
r = 0.13333336),
c(
a = 0.26666665,
b = 0.19999997,
c = 0.19999997,
d = 0.13333331,
r = 0.19999997),
c(
a = 0.20833334,
b = 0.2916667,
c = 0.2916667,
d = 0.083333336,
r = 0.125),
c(
a = 0.25,
b = 0.1875,
c = 0.1875,
d = 0.1875,
r = 0.1875),
c(
a = 0.2093023,
b = 0.21705426,
c = 0.21705426,
d = 0.21705426,
r = 0.13953489),
c(
a = 0.20000002,
b = 0.13333334,
c = 0.13333334,
d = 0.13333334,
r = 0.40000004),
c(
a = 0.42857143,
b = 0.14285715,
c = 0.14285715,
d = 0.14285715,
r = 0.14285715),
c(
a = 0.1356784,
b = 0.19095479,
c = 0.44221106,
d = 0.14070353,
r = 0.09045227)))