tests/testthat/data/ppm-fix-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.19148937,
b = 0.14893615,
c = 0.12765956,
d = 0.12765956,
r = 0.40425533),
c(
a = 0.4347826,
b = 0.1521739,
c = 0.13043477,
d = 0.13043477,
r = 0.1521739),
c(
a = 0.19230768,
b = 0.2884615,
c = 0.19230768,
d = 0.19230768,
r = 0.13461538)))