-
-
Notifications
You must be signed in to change notification settings - Fork 479
/
Copy pathhier_multivariate.data.R
54 lines (54 loc) · 2.99 KB
/
hier_multivariate.data.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
N <-
20
K <-
6
J <-
5
L <-
2
jj <-
c(1, 1, 3, 2, 1, 2, 3, 2, 1, 3, 1, 1, 3, 2, 1, 2, 3, 2, 1, 3)
x <-
structure(c(0.558420111475348, -1.01813726328227, -1.31362709732428,
1.22512171185207, 1.74923267851696, -1.68220390512314, 0.499875299657396,
1.76336852603772, 0.93467096378409, -0.74238155986566, -0.829738287896899,
0.686668452178426, 0.606992448335819, -2.54701525574962, -1.02486284470357,
-0.210875157521179, 0.0288507221270758, 1.71834983440094, -1.5427493275958,
-0.770923552875937, 0.558420111475348, -1.01813726328227, -1.31362709732428,
1.22512171185207, 1.74923267851696, -1.68220390512314, 0.499875299657396,
1.76336852603772, 0.93467096378409, -0.74238155986566, -0.829738287896899,
0.686668452178426, 0.606992448335819, -2.54701525574962, -1.02486284470357,
-0.210875157521179, 0.0288507221270758, 1.71834983440094, -1.5427493275958,
-0.770923552875937, 0.558420111475348, -1.01813726328227, -1.31362709732428,
1.22512171185207, 1.74923267851696, -1.68220390512314, 0.499875299657396,
1.76336852603772, 0.93467096378409, -0.74238155986566, -0.829738287896899,
0.686668452178426, 0.606992448335819, -2.54701525574962, -1.02486284470357,
-0.210875157521179, 0.0288507221270758, 1.71834983440094, -1.5427493275958,
-0.770923552875937, 0.558420111475348, -1.01813726328227, -1.31362709732428,
1.22512171185207, 1.74923267851696, -1.68220390512314, 0.499875299657396,
1.76336852603772, 0.93467096378409, -0.74238155986566, -0.829738287896899,
0.686668452178426, 0.606992448335819, -2.54701525574962, -1.02486284470357,
-0.210875157521179, 0.0288507221270758, 1.71834983440094, -1.5427493275958,
-0.770923552875937, 0.558420111475348, -1.01813726328227, -1.31362709732428,
1.22512171185207, 1.74923267851696, -1.68220390512314, 0.499875299657396,
1.76336852603772, 0.93467096378409, -0.74238155986566, -0.829738287896899,
0.686668452178426, 0.606992448335819, -2.54701525574962, -1.02486284470357,
-0.210875157521179, 0.0288507221270758, 1.71834983440094, -1.5427493275958,
-0.770923552875937, 0.558420111475348, -1.01813726328227, -1.31362709732428,
1.22512171185207, 1.74923267851696, -1.68220390512314, 0.499875299657396,
1.76336852603772, 0.93467096378409, -0.74238155986566, -0.829738287896899,
0.686668452178426, 0.606992448335819, -2.54701525574962, -1.02486284470357,
-0.210875157521179, 0.0288507221270758, 1.71834983440094, -1.5427493275958,
-0.770923552875937), .Dim = c(20L, 6L))
u <-
structure(c(0.985812460934882, 0.807876640817703, -0.280464252822785,
-0.782885826748953, -0.870032227406926, 0.985812460934882, 0.807876640817703,
-0.280464252822785, -0.782885826748953, -0.870032227406926), .Dim = c(5L,
2L))
y <-
c(-0.384138952572679, 0.120232656545095, 1.62177377744494, 2.35466252584579,
-1.53041109594001, 0.15820528979944, 1.16278254818631, -0.368579998690894,
-0.378987571479409, -0.644250330152138, -0.800392900108889, -0.156601164988195,
-0.512275962336841, -1.54215211044716, -0.961063922014403, 0.475411461671135,
-0.00579817063918767, 0.810535951626287, 0.221386903169937, 0.76457637228876
)