x <- 
c(0.987360477934343, 1.04452180937749, 0.708595460997562, 0.915175101684849, 0.865145422633304, 1.07884323883992,
1.00608383140268, 1.1376342699196, 1.01441762551037, 0.734040258512514, -0.218321440776031, -0.0330557744617701, 0.17248757407591,
-0.00808846932699096, -0.0264760442994477, 0.142213312650401, 0.0101256707544542, 0.192500961737055, 0.115337940517343,
0.0744139440697356)
theta <- 
c(0.05, 0.15, 0.25, 0.35, 0.45, 0.55, 0.65, 0.75, 0.85, 0.95, 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9)
K <- 2
n <- 20
p <- 2
d <- 1