tests/testthat/data/ppm-mix-3.R

In pmcharrison/ppm: Prediction by Partial Matching

x <- list(
list(
c(
a = 0.19999999,
i = 0.19999999,
m = 0.19999999,
n = 0.19999999,
s = 0.19999999),
c(
a = 0.59999996,
i = 0.09999999,
m = 0.09999999,
n = 0.09999999,
s = 0.09999999),
c(
a = 0.33333334,
i = 0.11111111,
m = 0.11111111,
n = 0.11111111,
s = 0.33333334),
c(
a = 0.1764706,
i = 0.058823526,
m = 0.058823526,
n = 0.058823526,
s = 0.64705884),
c(
a = 0.23809524,
i = 0.04761905,
m = 0.04761905,
n = 0.04761905,
s = 0.61904764),
c(
a = 0.3,
i = 0.1,
m = 0.1,
n = 0.2,
s = 0.3),
c(
a = 0.25,
i = 0.1875,
m = 0.12499999,
n = 0.1875,
s = 0.25),
c(
a = 0.30434784,
i = 0.13043478,
m = 0.086956516,
n = 0.13043478,
s = 0.34782606),
c(
a = 0.4871795,
i = 0.07692308,
m = 0.051282052,
n = 0.07692308,
s = 0.30769232),
c(
a = 0.14285715,
i = 0.14285715,
m = 0.07142857,
n = 0.10714285,
s = 0.53571427),
c(
a = 0.19999999,
i = 0.19999999,
m = 0.17142856,
n = 0.17142856,
s = 0.25714287),
c(
a = 0.17021279,
i = 0.14893618,
m = 0.12765957,
n = 0.24468085,
s = 0.30851063),
c(
a = 0.17816092,
i = 0.16091955,
m = 0.10344828,
n = 0.10344828,
s = 0.454023),
c(
a = 0.4527559,
i = 0.19291338,
m = 0.07086614,
n = 0.07086614,
s = 0.21259843)))