data/Baudry_etal_2010_JCGS_examples.R

In mclust: Gaussian Mixture Modelling for Model-Based Clustering, Classification, and Density Estimation

ex4.1 <- structure(list(X1 = c(7.9769783, 7.2526417, 8.5634488, 1.4669557, 
1.2039794, -0.4945084, 0.12679742, 1.0347855, 1.5112417, 7.945066, 
7.8313539, 8.1023554, 8.5305285, 1.6969642, 8.2069676, 6.9558461, 
1.4840259, 7.7844524, -0.84019711, -0.17378862, 0.099815432, 
-0.70741534, 8.2433572, -0.29085088, -0.29957891, 8.344174, 1.5801632, 
0.24484614, 0.45398139, 0.96586242, 7.6165409, 7.9117514, 0.88384982, 
7.8226612, 7.7560275, 7.197562, 0.97935253, 0.11752184, 1.0063378, 
9.0752305, -0.41439532, 7.8198849, 0.87661721, 6.2622432, -0.54793297, 
0.51747684, 8.1643651, 0.60006581, 2.2950877, 1.1307334, 0.24073253, 
8.463139, 0.42013724, 1.2068367, 0.62489105, -0.43646744, 0.19312826, 
-0.40482247, 0.7965479, 8.7666763, 0.4226264, -0.081413303, 0.7469762, 
1.3913552, -0.15859619, 8.630728, 0.13091017, 8.2971777, 8.767226, 
-1.3556309, 7.8970016, 8.893704, 1.6464197, 1.062309, 8.4139028, 
1.1907981, -0.63203697, 0.57220029, 1.3911748, -0.18431983, 7.8411276, 
8.2386887, 1.6131567, 1.0280691, -0.38507703, 7.9946789, -0.52111849, 
0.89962357, 0.47260067, 6.9041241, 8.0142221, 7.9020036, 8.5402715, 
7.6472146, 1.3715183, 1.5203466, 2.0087682, 1.6020201, -0.61042577, 
1.6835869, 1.1679104, 1.3543607, 1.4072952, -0.3333449, 8.7555966, 
8.4337645, 8.0677518, 0.97781587, 0.26754663, 8.9319783, 8.2552758, 
2.2944961, 0.12468108, 0.34262415, 0.65642125, 8.6374056, 7.7700692, 
-0.24818717, 1.2776677, 7.7416371, 7.1973062, 1.1984554, 3.5807346, 
2.0235262, -0.47538726, 0.037434132, 0.97565472, 0.97063511, 
1.0299211, 0.52411218, 1.2454396, 1.9695706, -0.81973894, 7.9763748, 
0.15676011, 7.9717935, 1.7330394, 8.0850251, 7.5568991, 1.3336208, 
1.0994485, 1.3273478, 1.3987539, 1.4157711, 8.5445803, 1.1787108, 
8.1254981, 1.1989552, 0.55299863, 1.3540454, 5.8962529, 2.4501097, 
3.7018725, 7.8303991, 9.4926031, 0.84301959, 1.0409263, 2.2307636, 
1.3408211, 0.58271212, 0.3164647, -0.43352503, 7.6241037, 0.17107161, 
-1.752304, 0.87117869, -0.35324221, 8.3087999, 9.38555, 8.7972872, 
0.30826828, 0.81340927, 1.4797392, 1.3034211, 7.7199774, 8.2056818, 
1.2369498, 8.691645, 0.60747971, 8.6435797, 8.5327109, 0.92110548, 
-0.33853202, 0.70853201, 7.7795127, 1.2612529, 0.96701845, 8.0625436, 
7.9407322, 0.87767592, 1.4329828, 1.0687409, 0.26944211, 8.260577, 
8.3169684, 0.3311489, 0.061925109, 8.3760059, 8.0487781, 9.4887076, 
0.46150715, 1.396057, 10.431936, 8.1598816, 1.3882733, 1.6452649, 
0.033983857, 6.3090986, 8.462483, -0.09769054, 0.8728409, 0.86404081, 
1.3223611, 8.0434187, 8.448099, 0.20974534, 7.5142227, 0.83813385, 
7.2724784, 8.0580792, 6.7491625, 8.4832481, 8.3598209, 1.2200124, 
-0.99802129, 1.7804823, 1.2599266, 8.4169632, 1.0621795, 7.8977697, 
0.078053313, 0.061508906, 8.3619309, 8.1017436, 8.6805258, 8.706619, 
8.1024565, 0.67211909, 0.83011297, 7.2397233, 7.9869971, 1.8128107, 
-0.57269416, 8.1651831, 0.78113569, 7.6338821, 8.4092733, 2.548895, 
7.9703493, -0.31578823, -0.75014413, -1.4819934, 0.34372923, 
6.9760868, 0.046610566, -0.78126398, 8.770426, 8.0950812, 1.2765282, 
0.96883416, 6.1621456, 8.4670142, -0.63159789, 7.2037113, 0.98671524, 
8.1601556, 1.0994263, 8.3929266, 1.3254346, 0.017770574, 6.2687415, 
-0.25530545, 1.0529588, 1.2444731, 0.08750003, -0.57361878, 8.6836133, 
5.9137298, 7.1389687, 9.5059177, 6.7766616, 0.26990263, -0.8056439, 
1.1640867, 7.9505824, 7.8028307, 0.36671244, -0.71180294, 0.44964725, 
1.5276343, 0.45611548, 7.9291065, 7.70298, 0.90150165, 8.4344697, 
-0.21659577, -0.66421726, 8.6636746, 0.97005527, 8.0984619, -0.1403887, 
-0.16900778, 8.6182777, 0.046675816, 0.61933374, -0.41271971, 
8.3544031, -0.070182383, 6.4304482, 7.5107803, -0.16983348, 8.5963548, 
7.3442264, 8.5410354, 0.87846445, 0.25299028, 0.62843528, -0.6718534, 
7.815251, 8.0363998, -0.30208971, 8.68172, 0.48996456, 7.8068927, 
1.0272509, 1.6747513, 7.948964, -0.4983776, 7.9239507, 0.49892422, 
8.8683105, -0.42910116, -0.17652978, 8.4711952, 1.9597283, 8.0932739, 
1.182124, 0.034814613, 7.9041581, 7.4352426, 0.41006442, 7.1876443, 
2.0914839, -1.6206363, 1.0765342, 7.386386, 0.42498696, 1.0047222, 
7.7118819, 0.40500588, 8.4941999, 1.1102036, 8.9703238, 2.4095418, 
1.2798652, 8.1275081, 7.780656, -0.10558637, 0.83458842, 7.6867003, 
8.4482267, 1.3394189, 8.4893052, 1.8040482, 8.0992711, 0.26837275, 
6.9679327, 7.9137876, 0.76151961, -0.10411395, 1.9050178, 0.64646241, 
8.0859425, 2.6501223, -0.19745652, 7.3556515, 8.4085701, -1.6046825, 
1.5774946, -0.095196051, 8.208514, 8.3299307, 0.29758932, 0.41762304, 
0.7427974, 8.4135869, 7.4458276, 0.52587144, 1.4136473, 8.6085076, 
-1.3123371, 9.390703, 0.37169528, 0.51088933, 8.7979419, 8.594784, 
7.6803525, -0.36759828, 0.24406317, 8.3783462, -0.34363448, 1.3759785, 
1.2915467, 0.91459437, 7.9623085, 7.7533521, 8.5617364, 7.2218866, 
3.6466831, 1.4725114, 7.197506, 8.061303, 0.49666996, 0.29620244, 
0.21166628, 1.1454374, 1.3555563, 7.583708, 8.0425474, 1.285144, 
1.3617427, -1.3320325, 0.73295256, -0.10274629, 1.6117143, -0.20282987, 
8.0473661, 7.3027744, 7.8308093, 7.6546785, 8.6811373, 0.96161003, 
7.6828146, 0.35834799, 1.6551453, 1.1853994, 9.2217863, 7.1269169, 
8.1557499, 1.8222298, 8.3616714, 1.1557642, 1.5940987, -0.80829841, 
-0.82556878, 8.0554677, 7.8191568, 1.0123178, 8.4495186, 7.3985019, 
7.7155092, 0.92442237, 0.95170622, 0.88657108, 1.0305925, 1.7106317, 
8.6297937, 7.9137557, 7.9764685, 0.22296824, 0.86760093, 0.15260915, 
-0.02747262, 0.57407777, 0.871655, 0.69370514, 8.4329555, 2.1580491, 
8.0018077, 0.92587625, 0.4255269, 1.0829828, 8.1894441, 0.0029879895, 
8.0495446, 8.1999675, 7.6452677, -1.188579, 0.98432797, 0.63203812, 
0.27264984, 0.52945075, 1.0004891, -0.89443813, 8.5551256, 7.9807992, 
7.3433751, 1.7731719, 7.6456385, 1.4090624, 1.5700271, 1.5378908, 
7.2302344, -0.052311186, 1.1216026, 0.86918394, 7.6007496, 9.0357255, 
0.15794988, 1.0644776, 8.1461269, -0.54506251, -0.23121196, 1.0453204, 
7.8744705, 0.15048055, 8.2472123, 0.89709055, 7.7057263, -0.030746911, 
1.2389329, 8.4646299, 0.81662047, 1.2901359, 0.8086489, 8.1490725, 
7.8379951, 1.8612675, 6.272741, 0.020883224, 0.18525646, 6.9842793, 
1.2815078, -1.0852784, 0.64993483, 7.5899896, 1.5750125, 0.50422232, 
7.936117, 7.9825222, 7.3825992, 6.5336041, 1.114642, 8.0422969, 
0.33758132, 8.7093494, 8.6916996, -0.024589081, 7.3889738, 6.3242339, 
0.96568217, -0.78006047, 0.59567894, 1.9062081, 2.2796046, 9.0341131, 
8.2415819, 0.76252456, 2.0194755, 8.9874593, 7.8097792, 0.75600337, 
9.0918404, 8.8094833, 1.7025054, 2.1703214, 0.82041582, 1.071376, 
0.15162926, -0.020498558, -0.39408106, 7.6521728, 2.2728181, 
10.2496, 1.232666, 0.82340196, 1.2170305, 8.5145059, 7.6144327, 
7.7749609, 1.3078026, 7.811284, -0.18965925, 1.3887868, 7.96764, 
0.97632173, 7.9566559, 8.4990273, 1.3163245, 0.35496242, 9.5923697, 
0.63705249, -0.55075484, -1.1219496, 7.5123725, 0.6837751, -0.30862582, 
1.713413, 0.10740911, -0.52957207, 5.9679289, 0.88464479, 0.92962222, 
0.51143218, 1.0396463, 0.66310805, 8.1386255, 9.4866679, 0.9853001, 
0.68827674), X2 = c(-0.99430985, -0.0097442049, 3.9920871, 4.1861989, 
3.6900806, -0.8560283, 1.1900675, 4.5886591, 4.6208061, 5.313167, 
5.109038, 5.1108587, 1.9969489, 4.567912, 4.437283, 0.22045476, 
4.9387306, 4.766794, 4.4851195, 4.8686355, 0.24695659, -0.45997796, 
5.5151671, -0.35245526, 0.03887857, 0.50055229, 1.8058693, -0.79739607, 
4.4028372, 3.6838561, 4.9592685, 5.6312555, 1.2978236, 0.17930426, 
-0.94338985, 4.904882, 5.6721488, 0.13641538, 4.4415534, 3.5886579, 
4.9042427, -0.1214948, 4.1557129, -0.14215078, 4.9697129, 1.9349314, 
0.41052508, 0.95739262, 4.941165, 4.7920401, 4.8117908, 4.4832187, 
6.8273628, 3.4552307, 5.0656768, -0.58236863, 0.80484368, 4.6741051, 
5.1707866, 5.1547202, 0.95718166, -0.1530152, 5.493249, 6.2959513, 
-0.069734098, -0.1734663, 0.35406717, 4.3019716, 4.6207997, -2.2314629, 
-2.0122278, 4.0577809, 4.6428486, 6.6968696, 4.9432983, 4.9415946, 
0.43152129, 5.4570213, 5.6555444, 0.59335318, 0.20959333, -0.94818906, 
5.5567199, 7.5955695, 1.0840903, 0.27165089, -1.7073053, 5.5883334, 
-0.36233875, 6.0718614, 2.4166091, 0.18758304, 4.0605465, -1.5923199, 
5.4851439, 4.5457668, 5.6480783, 5.0056477, 5.3917278, 4.753116, 
7.1344977, 5.0732699, 4.9865117, 4.8240689, -0.2883535, 0.2455801, 
5.1321456, 4.4216905, 1.0417553, 3.4926055, -1.0274512, 5.0047214, 
1.0998126, 5.1129168, 3.4416894, -0.12793822, 5.32235, -0.60969109, 
4.1853501, 0.15599493, -0.0026337496, 5.1543817, 4.5869287, 5.2459605, 
-0.89546487, 0.038041782, 3.4414129, 0.90375453, 5.2870714, 0.91144184, 
4.557117, 5.5039715, -1.8339968, 0.081459447, 4.8214451, -0.39329312, 
5.0188408, 5.7832676, 6.3912668, 4.8333458, 6.4195709, 5.1504147, 
4.9769881, 5.9782794, -0.41230179, 5.7398509, 5.577728, 3.8920127, 
4.7704209, 4.8397446, -0.21019166, 4.8957063, 4.4829869, 0.54722267, 
-0.14396056, 6.2352603, 5.2366861, 5.0964187, 5.765151, 4.4908086, 
-0.70641852, -1.8754694, 5.3870737, -0.11880842, -1.2408459, 
6.4280953, 5.2858604, 4.3717675, 4.4593305, 0.0098019126, 0.7490196, 
4.7389157, 6.0072587, 4.7416165, 5.8169624, 4.7087828, 3.2080318, 
4.1370675, 5.1927557, 0.32240089, 5.0427148, 4.2924174, -0.55144148, 
-0.0095670445, 5.416986, 4.0207213, 5.127849, 0.11751786, 4.6845673, 
5.0161337, 5.4168773, 5.0930302, 1.3119746, 0.47773406, 0.25408039, 
1.3836658, 4.7101227, 0.28769763, -0.20226408, -0.19657942, 1.6233008, 
4.7276017, -0.26579502, 5.263369, 4.936435, 4.4398602, -0.38092006, 
0.34901177, 0.23621293, 5.7637636, 5.9141309, 5.4155843, 4.8493187, 
4.8896111, 0.70791055, -0.082889768, 5.9458979, 0.55548548, 6.8277224, 
4.4854886, 0.39140055, 1.7769228, 4.614718, 2.1637784, -1.2047451, 
4.3308416, 4.8822596, -0.65308111, 4.7672964, 5.724255, 0.084936792, 
4.5325884, 0.15109091, -1.8775745, 0.073806932, 4.2223888, 4.5415158, 
4.7047218, 1.9952595, 6.1264686, 5.0769396, 4.680895, -0.52976754, 
4.6647515, 5.2841898, 5.3389236, 4.6764144, 4.9860093, -0.1208337, 
0.13851383, -1.0667598, -1.344367, 0.93514062, -0.021449673, 
-0.92427883, 4.7911778, 5.2612174, 3.940097, 5.1247557, 5.1764499, 
-0.47506617, 4.3098828, 4.8994589, 0.2184502, 5.3240412, -1.0285896, 
4.9632067, 5.5734987, 4.9698911, -0.31916583, 0.15140197, -0.091573714, 
4.8462864, 5.2271493, 0.17913173, 0.036865649, 2.7506225, 0.12210562, 
-0.38921555, 2.692563, 0.095881808, 4.6383713, -1.2943388, 3.5071888, 
5.0522568, 5.783535, 2.0594229, -0.76637991, 0.21906943, 5.5286361, 
1.0371704, 0.29699116, 5.2699824, 5.3153329, -0.0081336529, -0.39417946, 
-0.37678198, 3.6364693, 0.88908744, 5.0783311, -0.24918426, 4.9930395, 
0.59003831, 0.94792442, 4.5890342, -0.80829367, 3.8342449, -0.69588817, 
7.0218623, 6.2164156, 0.43665809, 5.4646812, -0.36124852, 4.1268016, 
5.4820203, 0.51476005, 1.2286356, -0.58265492, -0.97948616, 0.068470922, 
-0.062084617, 0.17030905, 4.5819119, -0.56530908, 5.6915014, 
4.9971361, 4.9197594, -0.36301239, 5.3904959, -0.095539458, -0.25450205, 
-0.92824266, -1.0558723, 4.09496, 5.6239134, -0.39265146, 3.8585807, 
0.048579247, 4.7336527, 5.6496046, 0.33469788, 6.2301268, 4.6697649, 
-1.390386, 4.409686, 0.36978205, 4.9162645, 4.9875374, 4.7032361, 
0.88956462, 5.7561909, 5.0083639, -0.0016632731, 5.5558812, 6.140862, 
0.1910086, 0.011036204, 5.6033542, 4.7683854, 0.89430528, 0.28119565, 
4.8952656, 0.16983405, 4.454814, 4.6124409, 4.3258326, 6.2085324, 
-0.37622805, 5.947278, -0.16160301, 5.4611284, 6.813295, 4.7399686, 
5.2107273, -0.38323656, -0.28635699, 4.5060091, -2.0071472, 5.2381564, 
-0.43688418, 4.4454826, 3.519494, 1.2449931, 0.80904993, 4.4610255, 
-0.48257854, -0.92656975, 0.65332226, 5.1888652, 0.71411888, 
5.4366206, -0.14353701, 5.3235721, 4.8727484, 4.1988056, -0.79967332, 
6.3312062, -1.2298501, 5.0498122, 0.056498775, -0.96309884, 7.3880093, 
2.825115, 5.5028367, -0.0018890888, 5.1876905, 4.5863456, 6.0848605, 
4.9830016, 4.3422355, -0.14445069, 0.88952544, 4.6780239, 4.7646359, 
1.0510687, 5.6607382, 5.9794118, -0.023211401, 2.4081252, 5.0761851, 
4.3489917, 4.8827096, 1.1878856, -0.14299362, 6.305574, -0.42498131, 
5.1836013, 4.3184264, 2.2090046, 6.2101602, 4.5954626, 4.96884, 
-1.0380535, 0.91107278, 4.4055904, 6.5255957, 3.1211117, 5.9286494, 
-0.32327832, 4.5527611, 0.97902203, 6.2578527, 5.1437254, -1.4795113, 
-1.8116007, 4.8079822, 5.568547, 4.9835716, -0.16517051, 5.6947324, 
6.2438988, 4.038327, 6.6830334, 0.48053781, 5.2516271, 5.3104601, 
-0.11926236, 1.4444549, -0.36251346, 4.9209075, 6.4148801, 5.052535, 
-1.6844096, 1.1789435, 2.3808289, 5.5553234, 4.1635227, 4.9026017, 
4.2178899, 1.1876769, 2.210849, 5.1192221, 4.5251357, -0.11072358, 
0.29281326, 4.3188087, 6.2185196, -1.4065486, 4.8247156, 5.100032, 
1.3113472, 4.7074022, 5.6372993, -0.68414093, 4.2952488, 5.1908031, 
-0.016509712, 4.8988539, 1.4606235, 5.3581549, 4.7097922, 4.9752003, 
-0.2648491, 0.28680743, 4.3900884, 6.1180889, 5.2845628, 2.8482829, 
-0.18475516, 6.3073803, 1.2884673, 0.0096819575, -0.61194314, 
0.71802239, 0.089831653, 0.34250829, 0.40401121, 4.626139, -0.54324596, 
0.083978226, 1.8031391, 3.8444175, 3.1242842, 4.4530614, 5.0252661, 
5.2336583, 0.13778242, 5.0202624, 0.22643225, -0.077508282, 5.3130561, 
6.1935393, 4.5438648, -1.5188721, 6.7574824, 5.3696528, 5.0538049, 
5.3803229, 5.3887975, 4.2871727, 5.8277064, 0.2129959, 5.6065355, 
5.5486439, 5.1503342, 4.1658532, -0.2168061, -0.88796699, 5.6100479, 
-0.53699859, 4.6992301, -0.52615539, 5.2709378, 2.6332496, 4.7656003, 
-0.1954996, 5.2067142, 4.9595431, 5.5529029, -0.13284028, 4.7522954, 
6.4643408, -0.068559779, 4.3770535, 3.7076043, 4.6272118, 6.1773008, 
5.7576075, 5.5880316, 1.4129327, -1.3470508, 5.6260368, 4.812868, 
-0.0051621994, 4.3591456, 0.3444476, 5.7304031, 0.53626595, 7.3553944, 
5.9387443, 4.8461771, 5.6571208, 0.93542035, 4.7936561, 5.2731834, 
5.7866937, 0.63646734, -0.030894366, 5.627639, 5.0990667, -0.30774744, 
3.5155002, -0.68241415, 4.4192727, -0.23539568, 0.8015225, -0.40747185, 
5.2123652, 0.28674045, 4.2504652, 0.38587676, 4.3672379, 5.1805802, 
-0.069287651, 5.8073867, 2.9908848, 4.9166805, 3.1877966, 4.836596, 
0.88677529)), .Names = c("X1", "X2"), class = "data.frame", row.names = c(NA, 
-600L))

ex4.2 <- structure(list(X1 = c(0.96143904, 1.9038693, 0.47004575, 8.057861, 
0.26600108, 0.0046850219, 0.82769497, 6.6663417, 0.51627241, 
8.7910934, -0.067145765, 8.4391422, 8.468727, -0.47657605, 8.1516661, 
2.60243, 1.2593748, 1.1287286, 8.0423281, 1.7824021, 7.2508027, 
7.7402215, 7.8337122, 1.650328, 0.85692316, 7.9960465, 0.062281272, 
7.748246, 0.65488529, 2.3734513, 0.72758433, 9.2723385, -0.23120619, 
1.972888, 0.79264505, 0.041496502, 0.091215325, 1.138329, 7.4258305, 
-0.67462096, 1.3014673, -0.19881329, 8.0292382, 7.302131, 8.4601406, 
7.1701668, 0.49470591, 8.7926773, 0.54763147, 7.1504401, 0.58659252, 
1.1591938, 1.26317, 0.74471372, 0.18000483, 0.76322316, 7.6320154, 
1.5727427, 1.2583073, 7.903155, 1.6905763, 0.16511243, 0.17103116, 
-0.46945468, 1.8771249, 1.7269715, -0.48766213, -0.63683398, 
7.8402887, 1.2798953, 0.011186193, -0.02012235, 7.3535243, 1.1800109, 
0.17902283, 5.2936929, 9.1616299, 7.1570013, 5.7582794, 8.1233667, 
7.3471268, 1.0606838, 7.9356841, 8.7097945, 7.3004033, 6.7925505, 
6.7140111, 7.0709794, 0.84350056, -0.016456607, 0.97689487, 8.2302213, 
0.28952983, 1.1268191, 1.2170437, 2.3482854, 0.5946148, 0.88866241, 
-0.069774972, 1.1274797, 2.3355701, 1.0737375, 0.78461292, 1.4856893, 
8.5164981, -0.60757268, 0.25292937, -0.85685194, 0.50247929, 
1.2070666, 7.6740837, 7.1583108, 7.58064, 8.1034883, 6.7734947, 
-0.51199251, 8.3847767, 0.55360917, -0.93745711, 0.048992728, 
7.8288381, 0.18114802, 0.83125801, 7.7936504, 0.48948827, 8.0815354, 
0.52824385, 7.7811824, 0.51388463, 7.6319421, -0.97469919, 0.62459669, 
8.7863053, 0.26856121, 0.70686238, -0.10525728, -0.2674162, 8.6625538, 
1.141768, 7.6221724, 1.1047087, 8.4414475, 8.0759117, 1.8558702, 
1.1147195, 0.84216307, 7.1301821, 8.7914488, 7.5847389, 1.2717901, 
-0.57911612, 0.82528491, 0.72785724, 7.4789334, 0.35153417, 8.0844552, 
-1.9236053, 0.96368998, -0.018408022, 7.725893, 8.0528279, 2.2501527, 
0.77685187, 0.89556128, 0.81281526, 0.66918255, 2.0777962, 0.96507344, 
0.93181552, 8.5072743, 0.81465238, 8.0886655, 8.3187487, 7.2968418, 
0.48437133, 8.8615474, 0.98031352, -0.47732868, 0.31968825, 0.915725, 
8.126775, 9.0994433, 1.4194902, 7.8716968, -0.072302888, 0.70457276, 
1.3280244, 7.562783, -0.79958514, 7.8087533, 7.8926345, 8.4272652, 
1.0841694, 0.623482, 0.1064419, 8.9194359, 1.4499999, 0.61119872, 
-0.58365572, 1.2576308, 0.19870296, 7.4573761, 8.4492971, 8.0097202, 
0.95651761, 7.4213261, 0.74160051, 1.3932484, 0.44125871, 7.1417878, 
7.8802703, -0.37933305, 1.2473757, 7.1019348, 6.674571, 2.029795, 
-0.061862727, 8.3261906, 8.041662, -0.16575051, 1.0988084, 8.1336843, 
1.9813805, 7.7733165, 1.8944617, 8.3222078, 0.49102896, 0.47775336, 
8.2745133, 1.3503306, 8.9330478, 1.1277787, 7.6466004, 7.0239606, 
-0.076752841, 1.6719257, 1.150101, -0.12881512, 1.0696388, 8.2598988, 
8.0166024, 0.22378929, 8.2566074, 0.25583293, 7.819856, 9.3844362, 
0.099662435, 8.611168, 0.81851598, 0.44260027, 7.8830571, -0.19682826, 
2.5679003, 1.1920705, 9.3897888, -0.46521466, 0.12276073, -0.093815473, 
-0.21126877, 0.075727395, -0.88310937, -1.1213116, 8.2376194, 
0.35117081, 0.18719955, -0.29029259, 0.77208736, 7.9711076, -1.3603408, 
-0.31680391, 1.0048219, 9.036072, 8.4182929, 0.5710287, 7.8456541, 
3.168049, 8.1460976, 0.70977444, 10.043761, 7.9394321, 6.6217478, 
8.3884604, 8.8665522, 0.93809379, 1.5938976, 0.52089279, 1.0234577, 
0.53729337, -0.54849639, 1.1953822, 0.16519632, 1.3913191, -0.53204287, 
7.436878, 0.40820172, 8.0995412, 1.3313126, 0.23426254, 8.3337397, 
8.4083919, 0.14402831, 7.3539968, 1.1312713, 1.2136277, 0.41941883, 
0.36545011, 7.5028512, 0.12157616, 0.93554934, 7.6180858, 8.4166117, 
-0.8478699, 1.3214392, 0.29350469, 1.9317757, 1.509544, 0.97602352, 
1.7835653, 0.37456995, 1.308459, 7.9332033, 8.4593684, 0.6689177, 
0.010429761, 8.3513052, 1.1211101, 7.1677463, 0.28141816, 9.6669065, 
7.6735349, 0.93908175, 6.7755293, 1.1216886, 0.4090021, 9.0257157, 
2.102387, 1.484186, 0.16763328, 1.400706, 1.269163, 8.576013, 
0.57362087, 7.5820035, 1.3298232, 8.5531996, 8.2884455, 8.2324862, 
0.74071397, 7.8654733, 7.7819412, 8.2796031, 8.187237, 9.1081631, 
8.8640911, 7.7707336, 1.7830319, 0.30363166, 8.6921419, 0.79895592, 
1.2351717, -0.6644968, 0.10399825, 1.6511044, 1.4143557, 0.45020599, 
1.4699839, 8.037767, 0.4576375, 3.0244928, 7.2310099, 0.072669667, 
0.63761846, 0.1578261, 8.3487543, 1.0227384, 7.7908427, 0.54399896, 
8.6030599, 6.4407584, 3.4959612, 1.6639415, 0.098762738, 7.7106895, 
-0.21557402, 8.4787205, 2.4347334, 0.6250601, 0.6673436, 1.3454543, 
8.7100283, 8.4181469, 2.0379387, 8.5724401, 1.7606628, 0.0086453536, 
7.523174, 0.035421266, 8.2439869, 0.13427762, 7.4234609, 1.1572978, 
-1.1339963, -0.17560807, 1.0656687, 8.8232068, 7.9867463, 8.1569449, 
8.2902731, 0.26971321, 1.7123202, 7.8837864, 7.7174711, 0.047341828, 
1.1783542, 2.2890996, 8.070809, 8.3067911, 8.6325315, 6.5389613, 
7.804026, 0.64243937, 1.336743, 7.7727272, 1.0824444, 7.4084947, 
9.1864129, 8.2175052, 8.2752894, 6.6928092, 0.73430665, 7.8506867, 
-0.08634826, 0.40435324, -0.74580249, 0.39575581, -1.0983081, 
8.1692059, 0.76226338, 7.7485969, 7.7424344, 1.1062813, 0.97079287, 
1.0419166, 7.6239891, 7.623209, 0.32131138, 1.064504, 0.52320282, 
0.75351918, 8.1893924, 0.63225226, -0.097302438, 0.24969231, 
0.96555499, -1.7167777, 7.8090416, -0.39824338, 8.1462593, 8.0485861, 
1.1000873, 8.3924018, 0.78483572, 0.33519095, 1.0885261, 8.2466333, 
-1.1042134, 0.60675594, 1.469904, 8.6120572, -0.57338469, 8.8111557, 
0.082832143, 2.579297, -1.2399899, 0.86709867, 7.6554428, 0.50257838, 
7.5055592, 8.2658346, 7.8368332, 8.9184619, 0.69204885, -0.76287045, 
8.3533619, 0.73407992, 1.7060433, 0.62519276, 8.2410969, 7.3422913, 
0.44188922, -0.2301561, 8.0623991, 0.37509657, 8.3790119, 1.3825361, 
1.6199641, 7.6270528, 8.7948214, 0.95195788, 7.1429832, 0.62404447, 
8.1931632, 8.8436775, 7.2219085, -0.33741098, 8.2222217, 9.8745763, 
1.2938665, 0.58315541, -0.92792934, 7.651905, 9.1534268, -0.23973254, 
7.6063031, 1.0091668, 0.84360511, 1.6390219, 0.49445177, 0.14114442, 
-0.058498483, 0.55540581, 8.4968192, 7.2202894, 1.1364057, 1.8549907, 
-0.27927292, 7.4664195, 0.76039404, 7.8469212, -0.050672401, 
8.2067483, 0.078344386, 2.3823532, -0.39204374, 1.6243648, 1.2255018, 
0.58118373, 0.31093701, -0.59871302, 0.62695326, 7.0476397, 7.6973778, 
0.037619554, 7.5401802, 8.1117455, 8.5349022, 0.38046388, 0.65349167, 
2.6050821, 8.1615321, 0.21671538, 9.1142997, 7.4254462, 1.0387423, 
8.4009264, 1.2310502, 7.6236722, 1.2978417, 9.2619883, -0.019134668, 
1.3044978, 7.523727, 8.3535411, 7.8239218, 0.15804412, 0.13614067, 
1.3937043, 1.5991005, 1.0487317, 10.057056, 0.90799422, 8.1951116, 
9.1867618, 7.9317251, 0.84009069, 7.8741118, -0.50830774, 0.68199211, 
7.6362601, 8.2384652, 7.3490584, -0.86664312, 8.780094, 7.4810994, 
8.4246863, 8.9735317, -0.34212881, -0.2331693, -1.0473708, -0.33098701, 
0.97294431, 2.0496932, 1.2306192, 0.85240491, 7.8416041, 0.20118579, 
3.8338321, 1.2258563, 8.672668, 8.5000867), X2 = c(4.0217299, 
5.0608109, 1.3443302, 4.9325734, 1.0527362, 0.57870732, 5.2824319, 
0.34166596, 0.74497839, 0.22443336, -0.1495122, 0.46276838, 0.14234043, 
-0.57781763, 5.2206452, 4.9980622, 4.2280312, 5.1674376, -0.2976393, 
5.203089, 6.3505353, -0.44322281, 0.37764898, 4.7079704, 5.7589375, 
5.0240692, 0.24466802, -0.0028183023, 4.9295613, 5.0304495, 5.7222109, 
0.38976595, 4.7790903, 5.2571409, 3.66725, 5.1080695, 0.20578233, 
4.8530308, 5.4399803, -2.3609942, 3.4839527, -0.13151182, 0.40086759, 
0.87727877, 3.5406965, 5.5788434, 0.76670192, 4.835413, 5.4785409, 
0.16080522, 4.9826322, 5.2565982, 5.8534236, 5.239822, 0.1943173, 
5.1379762, -0.092847142, 4.7410197, 4.8011585, 5.2547666, 4.6570949, 
0.22115832, -0.19777743, 0.28738126, 6.1258824, 6.8482465, 5.2321702, 
-1.6435869, 0.60896908, 2.259624, 5.8008788, 0.34545935, 6.4058505, 
5.4843501, 5.5052305, -0.050953472, -0.2833094, -0.103046, 0.20727695, 
-0.57910065, 0.080691051, 5.2198509, -2.1753797, 3.3304334, -0.093457015, 
6.0455266, 7.2355381, 6.4167648, 5.1972325, 4.8217316, 6.0261227, 
5.6067184, -0.48242596, 4.6469048, 5.752339, 5.4407184, 4.7778517, 
4.3317031, 4.6400089, 6.5880661, 4.834171, 2.2307104, 4.7565263, 
4.9020022, 4.023429, -2.3404688, 0.73672027, -0.55299215, 1.5887244, 
3.6054341, 0.3941092, 5.998949, 4.6987702, 0.34741072, 5.9369503, 
-0.61516122, 0.49327122, 5.4061178, 5.684883, 5.5027254, 5.180407, 
0.89704188, 5.1637536, 5.2010887, 5.1559855, 0.049544485, 6.4344009, 
-0.85861945, 4.8303077, 5.2871037, 5.1126258, 3.8264072, 3.7339709, 
1.2032253, 5.5576391, -0.84183884, 0.31467968, 5.0263292, 4.3251067, 
6.2744124, 3.5051111, -1.7502674, -0.49091365, 5.1788746, 5.4378663, 
5.0591479, 0.023267738, 0.085495757, 1.6221794, 5.0557157, -0.61199447, 
6.8689373, 5.2356703, 0.31092769, 0.10695948, 5.4598978, -2.6924934, 
5.7762221, 0.88960272, -0.66013543, 1.3429585, 5.1615297, 5.5781985, 
6.6244581, 5.5114494, 0.41027157, 5.2634133, 5.1287696, 2.2114029, 
0.99662654, 1.4001658, 4.5192293, 3.1827655, 1.0248328, 4.5030925, 
-0.31676621, 4.0718609, -0.86824326, 5.2470631, 0.28596674, 0.91171775, 
2.9158263, 4.5864113, 5.5611935, 0.22992644, 4.8219051, 7.1879518, 
0.017043909, -0.61849462, 5.4194959, 6.2332717, 0.29913681, 5.7584598, 
5.3180678, 5.3380244, 3.6854089, 4.0389574, 4.798849, -0.70336683, 
5.6512272, 0.34568595, 5.2696471, -0.60944096, 1.0695567, 3.8166417, 
0.26383442, 4.7376527, 4.8526004, -0.16635693, -0.13654677, -1.2607531, 
-1.5573028, 5.1378029, -0.17946793, -0.1555981, 4.6981123, 0.3819612, 
-0.27414485, 5.2965363, -1.1108481, 5.1303133, 0.25696794, 5.056036, 
0.18584216, 4.9832333, 0.61839322, 5.1328219, 5.0122145, -0.48925376, 
4.940558, 3.2737641, 6.5075467, -0.08407402, -0.76656325, 0.86004113, 
4.639331, 5.2458153, -0.18987267, 5.4688761, 4.8381574, -0.32208102, 
-0.064420744, 5.1926087, 4.4410736, 5.0777708, -0.20593305, 0.32239905, 
0.64064875, 0.75921709, 3.0716467, -0.090948881, 4.8806967, 4.7061325, 
4.5625599, 0.097144428, -1.1242452, 0.30766412, 4.5928626, -0.26629021, 
-0.47558869, -1.6649793, -1.6605529, 4.9348306, 4.5090246, 5.0384687, 
4.7990305, 6.2448934, 3.5592826, -2.3467803, -1.1584728, 4.3364607, 
-0.22746826, 4.2961324, 0.19535573, 4.5735594, 4.7282169, 4.6220502, 
5.6367232, 0.075555147, 4.7947302, 0.18380215, 4.6041497, 4.0105183, 
5.3631024, 4.8026493, 0.7774597, 5.1563921, 5.1716411, -0.53278755, 
5.8662578, 0.44804132, 5.0136931, -0.16943673, 0.016198702, 1.290435, 
4.9659851, 4.799371, 5.0960046, -0.38745778, 3.3159209, -0.77542146, 
6.0279082, 5.1006322, 2.0337154, 0.53030205, 0.4160143, 0.24739074, 
5.0189206, 4.1756266, 5.7044793, -0.020947788, 5.228671, 4.9985375, 
4.93214, 5.5904012, 5.5620664, 4.1416811, 5.1229434, 0.83967893, 
4.8732336, 0.074512389, 5.0073206, 6.1536962, -0.55067954, 3.4008276, 
1.415392, 4.6672411, 5.0602212, 3.0942438, -0.42990086, 0.46622745, 
6.2862367, 5.4501003, 5.1503644, 0.37992622, 5.0737438, 4.609094, 
5.5954247, 4.4772692, 5.0853902, -0.40634887, 0.17307781, 5.2890242, 
6.5526311, -1.6663071, 0.35714039, 4.846117, 1.6159476, 5.2790958, 
0.56570667, 4.7360978, -0.23554005, 3.2990702, -0.22619099, 4.6651404, 
5.3316599, 4.7409128, -0.11275772, 6.9959755, 4.6028179, 4.9191245, 
5.1069214, 4.8985382, 4.866053, 0.7179617, 6.5638278, 4.3801713, 
0.75851325, 4.2884827, 7.1773992, 4.3538919, 5.1050709, -0.072648606, 
-0.11273754, 4.9565322, 5.9212551, 0.99774051, 4.8880122, -0.43073216, 
5.5824553, 5.3543341, -0.042143517, 4.5552986, -0.085340962, 
-1.654713, 4.564755, 0.41467563, 7.3666018, 4.7639645, 4.0485157, 
4.4762869, 5.2051571, 4.2581749, 4.8629377, 0.22974796, 5.4187964, 
0.29545558, -0.75646063, -0.27701779, 6.2875578, 5.9284675, 4.3801219, 
-0.25446561, 3.8175872, 3.9170656, -0.66517482, 5.3858464, -0.055521327, 
0.53430123, 5.1830884, -0.059943138, 0.52077532, 0.4854517, 4.8919819, 
5.1525423, 5.6521646, 0.87973614, 4.2094975, -0.35234132, 3.1736291, 
5.3056325, 4.5771241, -0.25629053, 5.2499014, 5.3163445, -0.023506447, 
5.4715699, 0.78934247, 0.068616912, 5.9887855, 1.9629639, -0.58590102, 
4.750908, -0.95940989, 1.0794252, 4.8473251, 0.19985503, 4.5094195, 
6.5422191, 5.4825091, 5.0092979, 4.8010775, 5.4887694, 5.359348, 
6.3485171, 4.8118899, 5.4829102, 0.50572433, 3.3234047, 4.7509531, 
4.5171016, 0.56847535, 5.162638, 3.9322643, -2.840237, -0.87556977, 
-0.40931826, -0.84992839, 1.0666198, 4.9762384, 4.2138407, 4.7557785, 
0.45692138, 5.4985703, 0.9334915, -1.3028165, 4.7274266, 6.2755509, 
5.0102719, -0.82149498, -0.33901331, 5.2218756, 5.0732937, 4.9855674, 
4.800326, -0.29886615, 4.9837771, 4.338092, 0.19666074, -1.1275309, 
-0.32810008, 4.7401788, -1.4429487, -0.3735829, 1.9338143, 5.1190603, 
5.2269623, -1.700086, 6.1764144, 4.9679141, 0.34648823, 0.26882848, 
5.230801, 5.1120318, 5.455754, 4.7692994, 0.26550052, 3.6157584, 
4.7407581, 0.39664619, 5.0585001, 4.4074874, 2.7240827, 6.5824445, 
-0.52878315, 0.80238201, -0.046521526, 4.9995123, 1.1511718, 
-0.15248396, -0.68357455, 0.13767277, -0.59881489, -0.098164803, 
5.029337, 6.2726493, 4.6745271, 3.8260274, 5.7069404, -0.91446934, 
5.0281591, -0.30441413, 6.2541473, 4.8631993, 4.808899, 0.12721732, 
0.29227267, 1.6425273, 5.2444914, 0.23772198, -1.4698041, 0.27671246, 
4.8854746, 0.061877382, 5.2240922, 4.7593618, 5.2701381, -0.82513187, 
-0.54687686, 1.8404956, -0.31965499, 5.2713371, 5.0663455, 5.6276851, 
4.2468645, 3.8360571, 4.0105655, 0.39971869, 4.7647263, 0.12788226, 
-0.22183464, 3.6501527, 0.024789513, 5.0129854, -0.23562835, 
5.0563006, 5.7598754, 4.8672461, 3.8600245, -0.01414029, 4.3079026, 
0.12128434, 5.4252495, 0.82533771, 4.7604467, 4.5194111, 5.2990937, 
4.1590869, 4.6304541, -0.44350879, 3.7839015, 0.18998104, 3.6930731, 
6.1647407, 1.0237281, -0.63818197, -0.9787362, 5.4414135, 5.6693621, 
4.4454329, 5.9474071, -0.57229843, -0.09967412, 5.8405934, -0.1276027, 
0.22126201, -2.127135, -1.0821053, -0.77885071, 0.35778273, 3.2236222, 
5.6471313, 4.6022639, 5.311897, 0.56308143, 4.939063, 5.0373436, 
4.52174, 4.5156051, -0.42543651)), .Names = c("X1", "X2"), class = "data.frame", row.names = c(NA, 
-600L))

ex4.3 <- structure(list(X1 = c(0.7043813, -0.065496489, 0.94139795, 2.5683728, 
1.4896341, 3.2137876, 0.68248803, -0.84290359, 2.5458588, 3.1173721, 
4.2050178, 2.182016, -0.52480222, 0.63514176, 3.4507531, -0.18834257, 
-0.067375559, 0.90307244, 4.9501223, 0.93001061, 2.9536384, 0.53056973, 
2.6556515, 0.14906718, 0.83185005, 4.0166794, -0.0091351824, 
0.48520068, 3.8774946, 3.1330151, -0.66797525, -0.34800466, 3.6657577, 
3.8787367, 3.8220062, -0.40712779, 0.11659698, 4.0325593, -0.86504639, 
2.486654, 4.6078765, -0.86204431, -0.66643084, 0.89487653, 1.547553, 
4.2224395, 3.7136473, 5.2242701, 0.98766285, 0.62217684, 0.42091139, 
4.690703, 0.94049112, 0.99685358, 0.97490961, 2.6716953, 2.8108893, 
4.6996826, 5.1808723, -0.69982684, 2.7393012, 0.91695761, 0.060918098, 
-0.85182697, 2.65519, 2.5440632, -0.37635819, 3.6783462, 0.79034156, 
2.6972252, 0.66953662, -0.99530249, 4.4889485, 5.5655229, 3.0299237, 
3.1808091, 0.28041969, 0.60636515, 2.867351, 4.2853509, 1.9350988, 
-0.50973849, -0.87175554, -0.47370336, -0.79455928, -0.03256195, 
5.9466831, -0.16223107, 3.7725114, 2.497506, -0.23742198, 3.493857, 
0.77353023, 1.7083307, 2.5962024, -0.15888497, 3.6712872, -0.43230426, 
3.7599133, -0.90363771, -0.56166803, 4.4243678, 1.983569, 3.4345467, 
-0.52164797, 4.2017046, 3.6617427, 0.9679675, -0.94148303, 4.5856838, 
0.40462184, 3.1197711, 5.2344105, -0.98472889, 2.9442129, 0.22184136, 
3.3830857, 2.0769854, -0.18382093, -0.50210665, 0.30491945, 2.7649719, 
2.694266, -0.35944582, -0.79265575, 4.4947938, 3.1786002, 0.071129789, 
-0.67025952, 0.7668774, 2.2969717, 3.928584, 0.33291402, 5.3717514, 
0.69548498, 3.8862845, 5.4431549, 0.52532213, 1.768511, 0.61402755, 
0.26590489, 3.7925245, 4.1222298, 4.4437055, 3.7925697, 0.42085462, 
0.37732708, 3.8940987, 1.8821508, 1.8518566, -0.35810428, 0.063296989, 
0.74638792, -0.89092065, 0.00080155103, 3.3972968, -0.13447357, 
2.9827801, 3.3389523, 3.7495186, 2.2449025, 2.8009701, 0.80856498, 
0.2603667, 3.0610025, 3.1472817, 4.8551485, 3.396742, 5.5472147, 
5.2915826, 0.96607244, 3.0272716, 3.2255867, 2.5229682, 0.17040068, 
0.68127304, -0.062372439, 0.090444659, -0.64179176, 0.26892339, 
2.8813174, 0.92591755, 0.068027503, 2.4526091, -0.040771495, 
3.2518098, 4.306999, 2.8941375, 2.3314106, 0.58733217, -0.81457256, 
4.0594543, 4.4580491, 3.3031709, 0.76159909, -0.99225293, 4.9240944, 
1.4833565, 0.023058184, 0.35692727), X2 = c(0.13149529, -0.043082707, 
-0.35897431, -2.1319046, -0.052338312, -1.1897376, 0.2031596, 
0.82630548, 0.94727799, -0.066267722, 1.458216, 1.813295, 0.36503563, 
0.89346694, -0.28299374, -0.80182198, 0.022057848, -0.77974332, 
0.66637828, 0.090523755, -0.26404185, 0.3775718, -0.9055403, 
-0.70516602, 0.55512208, -0.0073363929, -0.20189753, -0.14954564, 
0.75311659, -0.58181599, 0.7965999, -0.38591225, -0.54891944, 
-1.9557991, 1.6011355, -0.87789771, -0.56105771, 0.55574722, 
-0.83433413, -0.53897453, -0.48257854, 0.90079067, -0.96725868, 
-0.77066313, -0.92656975, 0.041001352, 0.59724405, 0.71411888, 
1.3807154, -0.97518011, -0.56754534, -0.45390388, -0.97714494, 
0.28489853, 0.033981879, 1.0232248, -0.40240489, 0.28056112, 
-0.79967332, -0.50891571, 1.7088745, -0.61250532, -0.81825884, 
-0.26311667, -1.4224956, 0.15751986, -0.98441418, 0.17866481, 
0.20540264, -0.99340613, -0.042290512, -0.38376462, 2.3880093, 
2.3010731, 0.50283672, -0.0018890888, 0.4888889, 0.67869856, 
-0.1948222, 0.46859649, 0.27368892, -0.47513616, 0.028476123, 
-0.10645174, -0.31757771, 0.67828361, -0.053753763, 0.964985, 
-2.0800341, -0.4567932, 0.252929, 0.88952544, -0.63744966, -0.32197611, 
-0.74428651, -0.75396597, 1.4372757, 0.15993742, 0.66073818, 
-0.34292839, -0.46362725, 0.97941179, -0.023211401, 2.4081252, 
0.10047821, 0.076185148, -2.0586691, -0.37090478, -0.63896621, 
0.55704568, 0.35698374, -0.035675662, 1.305574, -0.88862302, 
-0.32768252, -0.93188563, 0.43338468, -2.7359378, -0.42696309, 
-0.84521991, 0.80114458, 2.2090046, 1.4351554, 0.69321189, -0.20860305, 
0.74314476, -0.031159978, -0.66156947, -0.13909537, -0.16756373, 
-1.0380535, 0.86780818, 0.45752697, -0.59440955, -0.18705264, 
1.5255957, -0.74604198, 0.90361491, -0.2132234, 0.82397004, 0.90282863, 
-0.32327832, -1.4142936, 0.97902203, 1.2578527, -0.30799759, 
-0.41951158, 0.45449956, -0.91990403, -1.4812527, 0.77340153, 
-0.57993841, -0.7382469, 0.041031775, 0.8109255, -0.22625885, 
-0.19493953, 0.63402862, -0.016428372, -0.52231502, -0.047829942, 
1.6274781, -0.5684775, -0.84252103, -0.96167305, 1.6830334, -1.0502255, 
0.25162707, 0.31046006, -0.11926236, 0.86611972, 1.4444549, -0.36251346, 
-0.25011256, 0.20574312, -0.24501565, 0.32986288, 0.58438053, 
-0.33301574, 0.38531773, 1.4148801, -0.59236865, 0.91742719, 
0.16613039, 0.42366491, -2.9772241, 0.88436946, -2.6191711, 0.55532344, 
-0.66618682, -0.11444565, -0.57204786, -0.3080004, -1.4060613, 
0.26598714, 0.85993434, 0.13962039, -2.789151, 0.058661939, 0.25294885
)), .Names = c("X1", "X2"), class = "data.frame", row.names = c(NA, 
-200L))

ex4.4.1 <- structure(list(X1 = c(4.1348704, -1.8746677, -1.1464714, -0.8108358, 
5.6545847, -0.18670858, 3.8233669, 4.7272082, -0.93323179, -2.0956484, 
5.5888216, -1.2856754, -2.6917757, 7.5080028, 2.1180711, -0.39988558, 
6.6312446, -0.70975025, 7.3816761, -2.0197896, 1.7918289, -1.0564729, 
3.3898192, -1.7806793, 0.65865101, 2.9787326, 6.0154816, 6.1825652, 
5.7606745, 4.9609787, 5.0000864, 1.0950037, 5.8563665, 0.73095734, 
0.040314032, 6.1378004, 4.2450621, 2.049731, -1.8815552, 1.4435082, 
6.2464677, 6.8817799, 5.4240703, 2.9844732, 7.1645899, 5.779761, 
3.7290695, 5.887307, 6.5623632, 3.3565714, 2.624446, 6.9726748, 
5.6547351, 5.0429323, -0.94714606, 2.6282276, -0.52752007, 2.5653651, 
2.7433123, 4.4777968, 5.2572889, 2.6643613, 4.4751201, 2.361126, 
-1.9887551, -1.1942712, 3.0204807, 0.28950203, 1.138028, 2.4161279, 
4.3388022, 5.9955393, 3.9070482, 4.5073269, -2.8541974, 4.7602611, 
5.9705911, 4.7006645, 4.8413396, 3.7870343, 5.9387662, 5.0717593, 
6.0707959, 4.592619, -1.8674393, 7.0368236, 4.8426762, 2.9508939, 
5.577614, 5.1116024, -0.46497337, 0.72828293, 2.2854045, 7.0756684, 
-3.3812656, 1.5532426, 8.9147695, 8.729058, -1.1397794, 7.3804899, 
6.2705483, 6.1023694, 5.1719812, 4.0138242, 4.3579906, 3.7374407, 
2.5367269, 4.773552, 6.8883995, 3.7106422, 2.9637256, 1.5210132, 
7.454896, -1.9924755, 6.1738771, 5.9602716, 4.8433576, 0.30928749, 
-0.011787324, 5.1118814, 0.48549771, -2.2762179, 1.8634006, 5.2068489, 
6.3608772, -1.0098851, 0.26166246, 4.450666, 2.4589996, 3.5928915, 
3.9175813, -0.92731373, 4.9774289, 4.5011274, -0.26401335, -1.0289751, 
-3.2565901, 3.1172556, 2.9577166, 0.17366567, -0.93588085, 1.9649217, 
5.1427457, 5.9996513, 3.9043677, -0.013176672, 9.2726168, -1.4095285, 
5.651092, 6.2407003, 3.207915, -0.13904001, -0.81628046, -1.4637813, 
3.6888812, 5.2136282, 4.4497886, -0.49147424, 1.6389144, -0.18581653, 
6.6738998, 3.557019, 4.9590717, 7.1165896, -1.7506153, 0.81148586, 
-0.68991966, -2.6729932, 0.10196449, 0.11694566, 3.6905846, 4.9045383, 
4.3392779, -0.035978608, -0.95726508, 5.8818193, 4.0045404, 6.6152992, 
3.4875828, 0.98229936, 3.0376189, 7.678959, 4.1742845, 8.2394956, 
2.837887, 8.4713527, 8.2701364, 4.572925, 5.6149984, -0.97764837, 
-0.9179081, 5.4585767, 6.4033444, 8.7249595, 2.5448686, 7.6818589, 
5.7861179, 5.4557173, 3.7264198, 4.6287587, 4.856921, 7.7465507, 
3.9159669, 6.6504303, 6.3432679, -1.1436484, -1.3750248, 8.0713408, 
1.1657283, 7.5487023, 7.761565, 3.1811415, 8.5774605, 5.0406474, 
1.9302109, 2.2510427, 4.5827149, 5.7514689, 7.9637525, 8.7409057, 
3.4347363, -2.1072001, 3.0720238, 3.3236242, -2.183834, -2.1169889, 
3.9975874, 0.50816468, 5.4582667, 4.7079148, 3.2190079, 4.5277114, 
4.2828562, 4.7129086, 6.3036082, -0.66144306, 4.2329677, 5.1107767, 
-0.040007279, 2.9838712, -2.4239571, 5.1161398, 4.5941641, -1.1263519, 
-1.6333857, 8.0748181, 1.2744667, 3.6958518, 4.5587368, 3.532676, 
-3.4440041, 2.3529941, 4.707771, 4.8467349, 8.2439438, 5.1836272, 
4.0773258, 4.2509407, 8.5025913, -1.9350107, 0.082822847, 0.23684988, 
-1.1366961, 6.1095153, 1.2593651, 4.3717247, 6.9933839, 3.9145952, 
-0.17214113, 6.0829736, -0.57025265, 4.8993087, 5.1669958, 4.3384516, 
3.4303997, -1.333345, -3.3005625, 2.022871, 4.4452914, 3.2231296, 
-0.071617644, 3.611302, 5.6592956, 5.2943508, -4.6349808, 3.2473797, 
4.3448442, -1.4199468, 4.2982302, 8.1565977, 4.9481379, 6.5016684, 
-2.5172609, -0.75337062, 4.5029594, 2.4831692, 0.69027694, 2.154394, 
2.1284542, 1.6138549, 1.1417728, 7.7672602, 0.44266274, -1.0740856, 
6.5257264, -0.95296182, 4.9873379, 7.7285436, 3.4258683, -0.16688791, 
9.1881304, 3.1254099, -0.31797201, 6.5803058, 4.6828429, 4.6104821, 
3.9467303, 4.4632247, 0.24857898, -0.041006877, 3.978447, 5.7383934, 
4.9254332, 5.6787441, 0.48518979, 4.8279382, 4.3297135, 4.2352517, 
5.4671512, 3.8429368, 6.445727, 8.0825575, -1.0337413, 0.17642596, 
4.1124696, -0.31567087, 5.0365897, 6.4046822, 4.7726208, 3.4011806, 
-2.0894632, -1.0624621, -0.71070209, 7.1308743, 1.5484547, 7.8837332, 
5.2773299, -2.7522506, 7.3015087, -1.1938421, 4.2530779, 5.5737326, 
1.8538972, 4.856036, 4.5133661, 6.8464142, 3.9565902, -0.87011745, 
-2.5106346, 6.6957966, 0.53299443, 2.8959521, -2.0367866, 4.4498023, 
2.8328504, 3.1810255, 1.5530202, -2.6004334, 5.2218219, -1.9469979, 
4.9462442, 6.7643355, 6.5105908, 5.2637603, 3.0343049, -0.013057516, 
3.2105823, 5.2190747, 5.8221583, 5.767613, 3.9784288, 3.8043498, 
5.8388855, 6.5424285, 5.5708598, -2.0081225, 6.5495765, 7.4630051, 
1.6909046, 0.68523602, -2.6067256, -1.9799511, 2.3179003, 1.732052, 
5.5875628, -1.1303407, 3.8349283, 5.4972022, 5.6270173, 6.0579794, 
6.5163852, 0.68017855, 6.7995442, 5.5694245, 3.4532487, 4.3263137, 
4.7855273, -0.47534676, 0.39859207, 6.2409023, 2.2564533, 5.6633695, 
5.5828362, 5.4899172, 5.8124627, -0.55157566, 5.410836, 4.4719528, 
0.85594767, 6.6237577, 6.5198767, 8.0740425, 1.109526, 5.7709388, 
6.6365945, 3.1479752, 3.3939406, 3.1971988, 6.1083186, -1.9382051, 
5.3980278, 0.080729757, 5.6780449, -1.3377391, 6.7755038, 6.6976429, 
7.643836, 7.6341062, 2.1407257, -0.50496756, 4.1650556, 6.4415534, 
6.7656902, 4.7089173, 5.5783217, 6.6114587, 5.2417858, 0.57173234, 
7.2685537, 2.0658666, -1.5591643, -0.69362259, 0.52524321, 4.9967662, 
2.5425464, 5.441884, 4.0938658, 4.076072, 6.5975664, 0.13789173, 
1.7067885, 3.5255383, 2.2316666, 6.2587673, 2.9733403, 5.8838246, 
3.5971666, 7.0044394, 6.4180644, -1.7711376, 3.2934495, 5.219529, 
3.6337529, 6.3095797, -0.59753903, 6.9667443, 7.8548033, 5.6536453, 
2.0004747, 4.9579264, 2.9836084, 6.1163532, 3.449037, -0.46502435, 
6.2511171, 4.372956, 7.5181206, -2.1052919, 6.1071134, 4.5866686, 
5.9875565, 5.1596553, 2.1722782, 4.0841556, 4.397552, 7.1885733, 
4.7470407, 5.4274377, 5.1298755, 8.373496, 6.4319335, 0.87051819, 
-1.8238155, 3.8936947, 2.5467864, -0.30171331, -2.5333659, 3.2148969, 
3.5083866, 6.1485392, 4.6972341, 7.6874052, 7.5858129, 5.0050429, 
6.1649008, -3.5036655, 3.178926, -0.35913825, -1.1613071, 0.29067238, 
7.6295366, 4.4497709, 3.1840471, 5.7470313, 7.5570783, 6.2256428, 
0.26632648, 0.23803882, 3.5934374, -0.050296403, 6.3176169, -3.0291182, 
2.9820032, 8.1646066, -0.99209794, 3.8261456, 3.9667017, 8.1677515, 
10.899091, 7.1001359, 4.4846943, -1.2676557, 6.1781779, 7.6959346, 
-2.1775679, 3.5291775, 5.8960606, 6.7132148, 4.1650597, 4.651354, 
8.3685894, 6.3013349, 4.3215503, 5.5879381, -0.067716779, -0.34627583, 
4.1836167, 5.4542449, 3.5605634, 1.7137292, 4.4966764, 7.46651, 
-1.7640617, 6.3175821, 3.9301091, 5.8783953, 6.7735294, 7.0706724, 
7.6839749, 5.4277487, 5.5116984, -2.0790605, 3.4069197, 4.9848028, 
2.0181967, 4.46865, 4.210727, 0.33150564, -3.8156885, -2.1421148, 
6.118528, -2.6793846, 2.3341297, 3.6727992, 1.4102633, 5.3955368, 
5.7329864, 4.9028749, 8.9158203, 6.8776199, 3.3980818, 1.0518264, 
-1.090792, 0.4634013, 3.7006855, 2.3297852, 6.7266546, 6.3200207, 
0.31457906, 0.12867004, -2.0728009, 3.5052834, -1.0116454, 7.9532871, 
6.2900792, 3.2651498, -1.7775826, -1.8899985, 0.51124172, -2.0963606, 
4.4083505, -1.8204567, 8.3553567, 6.3939285, 5.7260902, 2.9116922, 
5.9680518, -2.3780955, 1.3196058, 2.6524228, 5.3501757, 2.5182228, 
5.8537537, 3.9796276, -0.52549616, 7.1767473, 10.543579, 5.8589771, 
-2.5460186, -2.1079525, 3.6547363, 4.6904033, -0.44962486, 3.8784109, 
-0.77150889, -1.4075694, -2.065293, 5.4122939, 5.0400836, 8.7721582, 
2.1712094, 3.8608522, -0.39017065, 1.5244864, 1.9041341, 0.90771442, 
6.0395361, 7.1051701, 1.2950877, 5.2614669, -0.75926747, 6.6247992, 
-1.8336871, 6.3081502, 4.2497821, 3.4687709, 5.6775387, 2.1903551, 
3.7132559, 7.6896783, 0.74133575, 4.7143832, -2.8001315, -0.76242622, 
4.4436078, 6.2614559, 5.4592633, 6.0425683, 7.6916067, 0.24413229, 
-2.3257096, 1.5676605, 0.64641973, 0.19703832, 6.4520672, 6.2067131, 
2.7826676, -1.3528215, -1.6088252, 4.3533633, 3.9952026, 0.75480001, 
-1.3868433, -1.9112377, -2.6754698, -2.0168268, 3.1717954, 4.3651637, 
6.6579928, 1.1554131, 0.044974135, -0.30989177, -1.0523011, 2.7687894, 
7.3496883, 8.2909609, 7.0175364, 6.2040403, -1.6104258, 6.3671738, 
6.0619584, -1.6456393, 7.5759609, 2.3333102, 0.75559658, 7.7433673, 
5.2376891, 4.8596952, -1.5306922, 1.634798, -1.1927471, 7.5889922, 
5.4374102, -4.078805, 2.8270172, 6.2748111, 4.1933494, 4.1293018, 
6.7561246, -0.25836289, 3.3946124, 6.255142, 2.5807346, 7.0470523, 
3.3322312, 5.1313276, 4.8460269, -0.29739338, 5.1892377, 6.8387072, 
-1.7545604, 0.96957058, 2.1241656, 4.8505809, 3.3135202, 4.943587, 
6.4660789, 5.2982877, -0.77725033, 7.1100031, -1.6855162, 0.32734782, 
5.7975077, 1.3147838, 8.4442283, 0.56513306, -1.7798617, 6.2583032, 
-0.44700137, 5.7080909, 0.79250583, 1.4501097, 0.70187248, 3.9273497, 
7.9852062, -0.49641566, 5.0818526, 1.2307636, 7.1555422, 2.3608397, 
6.1102316, -0.7604532, -0.65936568, 5.6001589, -5.0737446, 4.1852625, 
-1.3532422, 6.0833416, 9.860831, 6.5945744, 6.0814767, -0.5900517, 
1.5170684, 5.6068421, 4.0176158, 5.7215795, 6.4986018, 7.4264511, 
4.2149594, 6.2871594, 6.8688734, 4.5010273, 3.8123511, 1.2428474, 
4.2264794, 6.6523085, 4.7914064, 5.1250873, -0.10396254, -0.38682272, 
7.7384235, 5.1374818, -1.5273673, 5.521154, 5.6339368, 0.5808736, 
-0.93807489, 0.37600586, 5.3084998, -0.51129241), X2 = c(4.1704547, 
10.287676, 1.1909155, 9.9623667, 10.611237, 0.72579055, 7.6411504, 
10.39876, 10.059281, 9.1676505, -4.6766365, 11.623562, 10.857997, 
-5.5780535, 11.999017, 0.68999738, 2.4916791, 10.668601, 5.7914001, 
9.8432827, 10.900565, 1.4151415, 11.850601, 9.0780984, 9.7928426, 
12.150621, 15.923505, -2.2525832, 6.4680957, -0.16877276, 8.8874919, 
-1.8739903, 3.1347346, 0.57785735, 0.67708919, 9.105241, 8.9643951, 
-0.81901417, 10.314809, -0.35097474, 2.7966702, -3.4723211, 10.832587, 
7.4028434, -0.46024896, 0.30795487, -1.9585066, 6.6753367, 11.991362, 
9.070376, -7.7081225, 8.1847773, 10.8192, -3.5138056, -0.3744292, 
-3.6956602, 10.055744, -0.14429497, 5.2775286, 3.3371291, 12.297636, 
-1.6121181, 5.7539678, 13.259261, 9.3548542, 10.231626, 14.68855, 
1.4789171, -0.68413859, -0.25524197, 7.0473033, 5.2097166, 7.0363464, 
2.3205845, 8.7986852, -0.22852905, -2.0842182, -1.5216318, 15.373033, 
-4.7157694, -3.1624843, 7.8036407, 11.935092, 2.8098636, 11.592941, 
-5.5314087, 7.614201, 5.6797628, -1.5025605, 8.7124425, 0.37096058, 
2.1121602, 6.4208645, 8.6357016, 10.315543, 0.70789388, 11.765898, 
-1.1893412, -0.21112348, -3.9067307, -2.1049424, 6.1505584, -7.0159716, 
11.617168, 4.3279448, 1.861761, 3.6947694, 11.327283, 2.5785066, 
7.534944, -0.63728654, -0.038438764, -2.4367168, 9.217107, -0.87922581, 
12.338543, 13.112104, 10.524639, 0.91314082, -3.8747446, -0.0050050738, 
11.276452, -0.5225593, 7.173228, 1.7239355, 10.218899, 1.2134445, 
-0.46597058, -5.8226226, 10.983082, -4.6673576, 9.2879145, -0.0028596022, 
1.3880136, -1.6640109, 0.2430947, 9.6528168, 5.889039, 8.5941664, 
-0.11611849, 9.7546137, 10.03407, 1.1078753, 14.473295, 0.9128294, 
-0.580264, -0.9016599, 1.7701009, -3.9166385, 4.4442365, 0.47311406, 
-1.1633953, 9.9845703, 9.2835714, 1.1002697, 6.4687568, 7.7439393, 
8.0549214, -2.0073695, 0.0089341157, 7.4720526, -0.7041335, 0.976115, 
2.1758565, 0.69734755, 0.63634495, 10.327098, 9.8506725, 11.6565, 
-0.59110384, -3.7823165, 1.3277059, 8.2503561, -0.17476033, 1.2925479, 
4.4832933, 6.0844918, 10.144199, 9.688048, 3.7937131, 7.5902898, 
-3.1823511, 8.2284289, 0.28315249, 6.0641877, 6.7811051, -4.3957906, 
9.3037378, 7.9968609, -0.44680941, 12.372648, 9.066819, -1.7065667, 
3.8739789, -2.3445979, 1.3582916, 4.0243325, 12.399715, 6.4908806, 
6.3108855, 10.977194, 0.62944361, 15.719667, 10.807664, -1.7782726, 
10.268503, 8.9526621, 11.52049, 11.644788, 12.234899, 4.61945, 
-8.0696177, 1.3677923, -1.4209195, 10.774806, -2.9374994, 2.6456955, 
-4.7089454, 0.11457648, -4.2314668, -2.6855448, 9.0229433, -8.3271032, 
0.90070972, 9.8323847, 10.168488, -2.4677675, -0.42092154, -3.3582396, 
2.6058831, 10.486717, -0.26410695, 2.728278, 14.876695, -1.3199675, 
0.24895798, -1.8496793, 4.38819, 2.0469964, 13.304997, -0.22383143, 
-1.4861491, 4.7042306, -0.81500216, 9.4138932, 10.49025, -1.5896758, 
10.361613, -0.97665178, -0.22586753, 10.61234, 7.6844816, 10.868297, 
6.0835949, 2.1925256, 7.1733753, 5.0791078, -1.6481893, 2.6362862, 
9.7072357, 0.76619148, 10.326887, 10.679387, 13.505706, 0.044151065, 
0.79347674, 4.255691, 13.192799, -0.33595464, 13.262389, -1.4986054, 
11.935587, 5.5213323, 12.783042, 5.5790748, 8.6073678, 9.3949778, 
1.9549004, 5.4721033, -3.4528203, -2.4145909, 5.1301385, 12.094906, 
-0.35503647, 10.028053, 9.0708289, 5.9461338, 10.239756, 13.122345, 
6.1213912, -3.887197, 1.7505846, 9.4407905, 0.92581269, -0.52442081, 
1.0941696, 10.289696, 10.86375, 10.520006, 2.5171597, 1.5519363, 
7.3466771, 0.9110979, 0.20176191, 5.4913448, 0.7781745, 11.835704, 
11.687138, 12.631997, -0.81622811, 10.280534, 12.225086, 10.593634, 
10.368388, 13.048176, 0.2641607, -2.3991953, 5.8407891, 0.10245162, 
-2.2475823, 0.87234924, 0.62718817, 4.3884155, 9.5410281, 0.5987507, 
1.1385222, 8.8714278, -3.3367983, 14.323356, 8.2446192, 0.1382447, 
-5.9536849, -0.76370764, 10.431612, 0.10498554, 0.9778457, 2.8628699, 
-0.80944698, 0.44779182, -0.83514185, 8.9767358, 8.8682807, -1.1695009, 
7.6186219, 2.8461986, 2.3529527, 6.9916313, 11.229615, -2.1280875, 
10.217133, -2.9121065, 3.6338793, 17.05483, 19.201183, 10.606468, 
9.3750645, 5.0118669, 0.80754179, 10.743514, -2.9046525, 1.0328484, 
11.267398, 8.7723644, 9.4384767, -6.8397446, -0.019525547, 4.4207704, 
7.9360752, 5.2066499, 10.161981, 10.607517, 0.63803046, 1.7781209, 
0.98036437, -3.304306, 0.35434528, 12.842389, 9.5607539, -4.5740169, 
11.748263, 0.82222717, 0.072697865, 14.168863, -9.2547767, 12.891324, 
10.858438, 14.570809, 3.3549728, 6.533614, -0.97487001, 10.686794, 
11.063801, 11.678287, -5.0493276, 9.5087257, -0.29253805, -3.137219, 
-5.2138219, -7.0877954, 1.2021481, -2.4217906, -1.072541, 2.5691766, 
-2.5666303, 10.531446, 13.397663, 13.547222, 0.068948145, 1.1163262, 
-1.0068607, 7.5994605, 6.5079736, 3.8747744, 10.577415, 14.255934, 
8.9748625, 12.061088, 8.7336123, -0.85095363, 12.450846, 4.0048178, 
-5.6344638, -1.109704, 3.3783078, 0.12967073, -0.39171533, -5.8275208, 
12.059224, -1.4531041, 10.457432, 10.901452, 7.7227635, 11.014629, 
9.4191398, 0.60154865, 13.373192, -0.22520716, 10.798061, 9.4760465, 
-1.7291415, -2.1523898, 1.1877733, 10.994858, 9.6862393, 4.076908, 
5.2552479, 9.2223773, -0.30014043, 9.3722526, 4.8837101, 10.565384, 
0.83386925, 3.8417543, -5.6510066, 0.72591603, 6.4787443, 4.8980864, 
10.114506, 3.1388553, -1.6191464, 1.5004741, 11.977241, 1.610938, 
1.3294656, -1.2153497, 4.434159, -3.7716023, 16.053182, -2.617639, 
9.7765034, 1.2096938, 6.0343637, -0.9724968, -4.3693792, -0.48181255, 
16.167422, 13.191171, 10.243665, -1.4637812, 10.799486, 7.6738224, 
5.8401028, 10.948647, 8.9477173, -2.7916913, 7.8922659, 3.0046949, 
-0.36093718, 4.5526565, -1.4894864, -3.0481766, 8.174333, 8.6549739, 
-1.0201474, 4.4399217, 4.634584, 7.4199266, 8.598148, -6.1529846, 
11.145901, 15.595268, 7.3972893, 10.527839, 1.0439795, -0.6638663, 
0.95695595, 9.0989182, 10.975508, 5.6121223, 11.122291, 11.105168, 
2.1675881, 8.6753939, 13.096243, 4.3501463, 10.573586, -5.7094707, 
-0.39761613, -1.1098382, -1.9102386, 2.3286175, -0.080575479, 
-3.6527993, 13.155363, 9.5504028, 16.847813, 9.6260414, 9.8404199, 
1.9721696, 1.1635927, 4.5746896, 0.54057819, 13.178165, 6.5731913, 
10.158491, 5.5092861, 4.2972995, 2.6886737, 14.746437, 7.3149047, 
-4.8014582, -0.8949483, 16.449202, -1.7193845, 0.23699952, 3.7720319, 
2.0342492, -0.93192132, 9.2796786, 0.76151973, 10.418349, 7.280213, 
12.555395, 7.028119, -8.3262952, -0.61093734, -4.954639, 0.72790895, 
2.6521662, -3.6988456, 5.4554578, 5.2311863, 8.595641, -8.9481472, 
21.208836, -4.0246548, 9.0081473, 8.7229275, 3.531051, -1.0474238, 
9.3321102, 10.699851, -2.8044923, 7.4561634, 3.0461709, 4.5165659, 
9.4965082, -4.7513876, 11.108422, 11.112757, 11.674294, 10.284967, 
7.4660693, 0.69455103, -4.8568538, 5.1426471, 8.4502859, 10.27198, 
9.7450323, -0.27862877, 11.082984, -1.6642112, -0.19173075, -0.92414696, 
12.180126, 3.6669109, -2.2484395, 4.5294052, 0.85957298, 0.016567865, 
9.0056902, 9.8921514, 9.4009834, 7.151696, 5.4152822, 8.3401835, 
11.871323, 9.5886591, -1.1991165, 10.445817, 9.412013, 10.421118, 
16.989321, -4.7823377, 8.0153443, 2.4399871, -0.67812834, 9.1136261, 
4.3013169, 8.5460619, 10.803017, 12.450014, 5.0918121, 9.9767017, 
0.71769807, 11.751933, 9.4389179, 3.1161389, 8.1116053, 8.6838561, 
6.8417231, 13.315348, 10.42904, 10.627565, -0.94338985, -1.9061308, 
10.672149, -0.028434605, 8.0454369, -0.7699127, 8.9401604, 9.5747682, 
-0.8442871, 8.4266792, -0.33521683, 2.369602, 1.4368378, 1.5007432, 
-0.18605268, -2.3016943, -0.59516985, 0.2433929, 1.8273628, 4.5933073, 
0.72690908, 9.6277569, 13.617115, -3.6069954, 10.597753, 6.7769557, 
0.81197958, -0.34950471, 10.493249, 11.295951, 0.75994525, -1.9199201, 
11.243589, 7.844103, 3.4122283, -3.8231163, 7.9877722, 0.23333715, 
-1.129412, 1.6968696, 2.7738403, 9.7955811, 17.504803, 0.45702135, 
12.073013, 15.138463, 10.733577, -0.94818906, 11.760503, 12.59557, 
12.786804, 10.271651, 3.1702019, 12.059167, -5.861977, -1.5283175, 
2.4166091, 0.18758304, 9.4742972, -5.5731195, 1.6980037, -1.5898162, 
7.1729119, 10.062509, 1.238752, 7.2674946, 17.470742, 10.2317, 
-0.04720921, -1.9472003, -0.91185384, 0.85953036, 11.346415, 
-2.0240832, 11.299687, -0.70280862, 8.9725488, 10.052256, 15.99616, 
10.112917, -5.454087, -1.4160166, 0.29426749, 8.030821, 7.1487254, 
0.49329929, -0.029150266, 0.54033584, -1.3062463, 12.722284, 
-2.0533216, -0.043195918, -5.455055, 9.5310155, 11.00475, 1.7854763, 
8.5994811, 1.5936977, 4.6301938, 10.285108, 8.0237594, -4.3529572, 
10.208529, 5.5854997, 1.5502774, -0.58328961, 11.419571, 0.47565301, 
-0.25469521, 0.97827942, -1.4430563, 0.73985086, 11.312807, -3.8779555, 
-0.72599273, -1.7737019, -2.3263953, -0.3298055, 8.3650611, 1.9152793, 
-1.5933514, 1.2352603, 2.6196356, 0.30490282, 12.678028, 8.2178302, 
3.1483112, -2.4438864, -0.1147793, 7.9560155, 11.551042, 14.998333, 
0.90396999, 8.3724292, 7.0716774, 0.10848729, 12.393725, -0.2610843, 
1.0072587, 7.1402182, 13.036133, 9.7187021, 3.7281114, 9.788166, 
12.133414, 3.568324, 14.300038, 7.5234609, -0.91808647, -1.5489022, 
10.962844, -3.4274754, 10.447472, 11.300684, -0.69677535, 0.016133741, 
11.459071, 1.0296557, 11.782735, 15.287547, 12.812155, 1.7785845, 
-0.91667239, 0.9097798, 9.2920757, 9.3783613)), .Names = c("X1", 
"X2"), class = "data.frame", row.names = c(NA, -800L))

ex4.4.2 <- structure(list(X1 = c(0.73710165, 0.78014076, 0.81754709, 0.80868387, 
0.45379771, 0.65685989, 0.43165117, 0.48968764, 0.80474619, 0.84071103, 
0.42283562, 0.82352732, 0.73866302, 0.53912647, 0.79004296, 0.260728, 
0.42525932, 0.70242596, 0.82258864, 0.70525144, 0.59852367, 0.53133391, 
0.81997632, 0.77520129, 0.44008514, 0.76904756, 0.34112461, 0.73842684, 
0.67901675, 0.41615859, 0.40458, 0.53034422, 0.48485333, 0.52005247, 
0.44240231, 0.7952811, 0.35922821, 0.70404743, 0.71187921, 0.44230541, 
0.49500582, 0.56055953, 0.879571, 0.81140127, 0.00052237536, 
0.47952339, 0.083482814, 0.55229134, 0.36241146, 0.75692802, 
0.44518317, 0.41702895, 0.30130606, 0.64819841, 0.17710753, 0.50542814, 
0.85041517, 0.52610247, 0.70725349, 0.55666983, 0.76848173, 0.78442789, 
0.29157032, 0.19624892, 0.70729903, 0.78301965, 0.21203084, 0.40218399, 
0.15436981, 0.42264565, 0.70874954, 0.16356991, 0.8125917, 0.51655821, 
0.8132829, 0.52504516, 0.54644944, 0.50563662, 0.08750035, 0.045051107, 
0.45163877, 0.78232494, 0.62593763, 0.41062909, 0.83632027, 0.60263822, 
0.77087528, 0.78786461, 0.099095282, 0.09908965, 0.55729516, 
0.73058536, 0.55226162, 0.89840908, 0.89696317, 0.61947156, 0.36063657, 
0.73105083, 0.40349114, 0.5449059, 0.43326056, 0.88605635, 0.50388777, 
0.80082029, 0.81095003, 0.41704745, 0.91371168, 0.57473716, 0.9509152, 
0.83187134, 0.53990509, 0.63114121, 0.57083843, 0.80108993, 0.49180625, 
0.86635956, 0.62005505, 0.88154221, 0.56205605, 0.015644693, 
0.43517555, 0.73836132, 0.5051331, 0.8280308, 0.80172654, 0.8958098, 
0.50784883, 0.42485841, 0.18917967, 0.85530069, 0.268076, 0.84328545, 
0.43632708, 0.70595075, 0.40243355, 0.44239789, 0.71514583, 0.53242648, 
0.81871444, 0.14784947, 0.82766006, 0.53228307, 0.056932885, 
0.97976522, 0.44801971, 0.061401442, 0.23693038, 0.57605346, 
0.51140894, 0.45220745, 0.71040869, 0.94810874, 0.84663658, 0.83515235, 
0.5846413, 0.32868961, 0.99548106, 0.78303732, 0.53506711, 0.30434895, 
0.71512173, 0.54055043, 0.25683535, 0.40396937, 0.81397693, 0.54010583, 
0.81017749, 0.84646577, 0.092988927, 0.5367878, 0.76210971, 0.43329898, 
0.78089581, 0.3279416, 0.44094328, 0.97898547, 0.73856042, 0.80511242, 
0.40773081, 0.82407821, 0.55699826, 0.53860144, 0.52855909, 0.051436054, 
0.54329943, 0.50220062, 0.29046249, 0.40255439, 0.88253341, 0.67586162, 
0.89962356, 0.85506618, 0.59943825, 0.57223922, 0.42930248, 0.090166002, 
0.4018834, 0.6319308, 0.70821953, 0.81178372, 0.72034321, 0.19873675, 
0.72047527, 0.51971616, 0.44433036, 0.80576437, 0.75468086, 0.9418178, 
0.44621561, 0.46566241, 0.90366453, 0.6548829, 0.053977659, 0.68147851, 
0.85187521, 0.85835276, 0.51627057, 0.12386051, 0.40683013, 0.59158353, 
0.51576565, 0.70833669, 0.57518361, 0.03477674, 0.88119617, 0.81459752, 
0.40886891, 0.55729268, 0.55856549, 0.46675681, 0.52223244, 0.42106935, 
0.85948011, 0.45038815, 0.46910052, 0.98056283, 0.48223041, 0.23109536, 
0.72499196, 0.24417289, 0.64802712, 0.098337302, 0.83793381, 
0.17090324, 0.80392164, 0.44306609, 0.60772697, 0.47657468, 0.014853856, 
0.5444177, 0.72746923, 0.47421516, 0.50274626, 0.50743538, 0.89893974, 
0.45652513, 0.50481062, 0.51004034, 0.51100815, 0.71839494, 0.98692677, 
0.75699267, 0.79163869, 0.7837081, 0.5874034, 0.56926817, 0.51754115, 
0.42040043, 0.49679942, 0.1408738, 0.56085674, 0.54800916, 0.51336399, 
0.88256083, 0.75983182, 0.79946959, 0.70584141, 0.43693278, 0.54327024, 
0.89559653, 0.2026161, 0.87353646, 0.56033331, 0.51106409, 0.70241298, 
0.55049535, 0.59602167, 0.86717373, 0.72691158, 0.4521735, 0.39043083, 
0.50141459, 0.75025692, 0.27699524, 0.95003395, 0.72132693, 0.73088691, 
0.4967222, 0.78296819, 0.56662058), X2 = c(0.72754796, 0.79394527, 
0.53151425, 0.81965064, 0.13554043, 0.5752077, 0.69533141, 0.2143526, 
0.79690846, 0.77281746, 0.66496927, 0.66338172, 0.7129968, 0.33120443, 
0.65793307, 0.42621543, 0.73130816, 0.68200721, 0.68513363, 0.67391529, 
0.089931813, 0.90877818, 0.68433245, 0.8208324, 0.23427786, 0.72584096, 
0.43961961, 0.57763929, 0.43901319, 0.93884504, 0.77132671, 0.64157036, 
0.38876219, 0.35552498, 0.13639509, 0.74153197, 0.54446538, 0.4549089, 
0.7482926, 0.33249868, 0.3300117, 0.032441995, 0.78557613, 0.79369427, 
0.41244048, 0.66023918, 0.49965027, 0.13128422, 0.49981788, 0.76080635, 
0.7414381, 0.90579437, 0.53842748, 0.46350687, 0.50242197, 0.9420451, 
0.68217891, 0.20258901, 0.5371496, 0.4070104, 0.66825169, 0.50703144, 
0.50823827, 0.40838691, 0.67227951, 0.70931442, 0.49593152, 0.44163934, 
0.56945843, 0.022263936, 0.67909904, 0.49114124, 0.78301447, 
0.70818293, 0.84753997, 0.89464761, 0.20684684, 0.77191448, 0.45862054, 
0.43410128, 0.59848756, 0.81212855, 0.55046741, 0.57116824, 0.72700181, 
0.53331264, 0.6536433, 0.7364785, 0.44687894, 0.47877409, 0.99279558, 
0.4924214, 0.90883233, 0.73870179, 0.73362829, 0.50813201, 0.53887511, 
0.54956788, 0.62057364, 0.50767429, 0.50154388, 0.75794595, 0.64935875, 
0.57659557, 0.44566402, 0.53081488, 0.51123845, 0.69543644, 0.47069664, 
0.48525074, 0.025155509, 0.43238118, 0.21447801, 0.67259684, 
0.26439892, 0.77677199, 0.45394521, 0.71582128, 0.54125697, 0.4154852, 
0.76492073, 0.74922618, 0.83397174, 0.73248469, 0.68410024, 0.83473818, 
0.91217234, 0.20307341, 0.50519307, 0.81040353, 0.56763544, 0.66292944, 
0.1069234, 0.42444159, 0.54524193, 0.35713517, 0.76618173, 0.38064798, 
0.47811281, 0.4004167, 0.83825255, 0.004124875, 0.56349551, 0.5166997, 
0.89975753, 0.53283479, 0.58939731, 0.10792619, 0.69490292, 0.63836197, 
0.50540341, 0.55599497, 0.78539285, 0.78462652, 0.62690151, 0.59856753, 
0.46485039, 0.65020181, 0.011679012, 0.59625642, 0.75073587, 
0.27179808, 0.46663868, 0.55166643, 0.49436169, 0.53879304, 0.69455796, 
0.82600349, 0.48862953, 0.64241008, 0.50077491, 0.37859389, 0.71991813, 
0.57356962, 0.21623853, 0.46497205, 0.53707643, 0.46327715, 0.91976245, 
0.42067223, 0.73789795, 0.24618851, 0.78128715, 0.44997697, 0.21063615, 
0.23814677, 0.56654788, 0.55074967, 0.84951204, 0.52430098, 0.67688253, 
0.79319711, 0.71054062, 0.083664406, 0.48778429, 0.4817723, 0.37015247, 
0.4361208, 0.76311882, 0.7899782, 0.40311686, 0.45755556, 0.6569623, 
0.64870462, 0.94733758, 0.67808596, 0.767509, 0.59878357, 0.45725528, 
0.7258431, 0.55738801, 0.46341895, 0.40248297, 0.56116788, 0.82300515, 
0.43785913, 0.86949223, 0.53516928, 0.011637058, 0.69574833, 
0.79367256, 0.79935118, 0.14347805, 0.49132007, 0.78275705, 0.76714344, 
0.39010029, 0.31932053, 0.028035339, 0.58101535, 0.41192957, 
0.62619578, 0.58040335, 0.77227363, 0.60493887, 0.45579815, 0.63543525, 
0.53607166, 0.53421614, 0.44317631, 0.54617527, 0.40914641, 0.81388492, 
0.523322, 0.72990853, 0.56852972, 0.56472152, 0.87125423, 0.55754489, 
0.67802186, 0.7170132, 0.10321609, 0.90974085, 0.36112462, 0.46058553, 
0.032970552, 0.51744931, 0.65899664, 0.87211575, 0.79110901, 
0.50416004, 0.69976892, 0.71881059, 0.79422347, 0.46004382, 0.42662273, 
0.77014681, 0.045145425, 0.27611958, 0.57410802, 0.28431372, 
0.85658933, 0.29190026, 0.69362392, 0.41824403, 0.69143201, 0.84714785, 
0.29754314, 0.14285949, 0.45941812, 0.59063428, 0.51297218, 0.65912069, 
0.56818329, 0.81085019, 0.77484911, 0.0257518, 0.80888269, 0.71553042, 
0.89407615, 0.59723326, 0.3359955, 0.67541407, 0.45871803, 0.411363, 
0.51207255, 0.72570742, 0.58114473, 0.57908663, 0.83696299), 
    X3 = c(0.9687554, 0.53349752, 0.4077948, 0.28527749, 0.42950117, 
    0.41007738, 0.55775972, 0.4560812, 0.0038930092, 0.65228439, 
    0.50363178, 0.14447564, 0.49475119, 0.50105118, 0.64065278, 
    0.40833959, 0.54887922, 0.30390344, 0.46983908, 0.23920927, 
    0.45526052, 0.40990515, 0.74915527, 0.27480731, 0.45818436, 
    0.64110017, 0.46937422, 0.43139566, 0.58552132, 0.59124505, 
    0.55721796, 0.40148108, 0.41488639, 0.54113589, 0.40595688, 
    0.82884744, 0.57809293, 0.43975533, 0.61942073, 0.47184592, 
    0.56748406, 0.57657073, 0.058248436, 0.093041043, 0.58325637, 
    0.40993901, 0.54491937, 0.57512903, 0.44951337, 0.17871013, 
    0.43513507, 0.42808864, 0.4648007, 0.44876482, 0.54593503, 
    0.53217465, 0.39808126, 0.53079904, 0.50717932, 0.43325778, 
    0.92484667, 0.42322042, 0.57143531, 0.57526067, 0.77601309, 
    0.69888426, 0.56778007, 0.5335466, 0.47279498, 0.4486889, 
    0.14730767, 0.46045824, 0.45317159, 0.56912072, 0.90596429, 
    0.52086932, 0.508216, 0.44195616, 0.5082853, 0.54299869, 
    0.58532661, 0.071062046, 0.52519408, 0.44095357, 0.85764746, 
    0.45885572, 0.0089806874, 0.20882578, 0.50375351, 0.4198779, 
    0.53035885, 0.41060786, 0.5153024, 0.18977978, 0.13277668, 
    0.51368493, 0.44190418, 0.5556217, 0.55713081, 0.51644718, 
    0.54075907, 0.24449736, 0.46091306, 0.52869023, 0.43857609, 
    0.41220411, 0.52623598, 0.43702656, 0.5422269, 0.57457875, 
    0.47253075, 0.4875601, 0.48430184, 0.81125231, 0.44289587, 
    0.73527382, 0.46793754, 0.8721348, 0.59290384, 0.45889449, 
    0.44389362, 0.60243339, 0.58043329, 0.19557604, 0.13187249, 
    0.18389173, 0.47253108, 0.46034176, 0.46667697, 0.96388005, 
    0.41595856, 0.87396461, 0.5666398, 0.43673143, 0.52928256, 
    0.47931942, 0.72375541, 0.47087742, 0.43207321, 0.45230924, 
    0.22387019, 0.4135182, 0.52372459, 0.45446907, 0.42107132, 
    0.49748689, 0.4428355, 0.47122826, 0.50932666, 0.52275342, 
    0.54163885, 0.4743879, 0.73227296, 0.75500799, 0.42391451, 
    0.59876806, 0.58861147, 0.4859613, 0.47221007, 0.5289374, 
    0.47024144, 0.47225241, 0.51763945, 0.44816256, 0.50582308, 
    0.51721107, 0.38426341, 0.031890744, 0.59545577, 0.54661976, 
    0.57144747, 0.50784557, 0.79676211, 0.55663372, 0.57962452, 
    0.4883773, 0.56777943, 0.51223707, 0.53246936, 0.58556431, 
    0.53707473, 0.52205423, 0.58018231, 0.4929296, 0.40224391, 
    0.45998987, 0.43928084, 0.53787628, 0.030700147, 0.49913479, 
    0.034983055, 0.77274135, 0.48669375, 0.59673114, 0.40143618, 
    0.50114361, 0.44107788, 0.46702573, 0.33984408, 0.20792029, 
    0.44914231, 0.58435135, 0.022712262, 0.45382445, 0.57463179, 
    0.0489804, 0.54838515, 0.47288598, 0.40545789, 0.55953806, 
    0.46717307, 0.43115323, 0.43387021, 0.47927642, 0.39271566, 
    0.47991604, 0.54712213, 0.56671637, 0.45313043, 0.52440146, 
    0.51961807, 0.25400062, 0.55488348, 0.41108614, 0.41866031, 
    0.48253984, 0.43221039, 0.57505071, 0.5404045, 0.45934143, 
    0.44962343, 0.40981954, 0.45686493, 0.44604745, 0.54872645, 
    0.45536778, 0.42073633, 0.54967034, 0.45562505, 0.46671584, 
    0.4878832, 0.49175967, 0.38204993, 0.5942964, 0.75289076, 
    0.49797849, 0.53441855, 0.53442412, 0.51868024, 0.43328524, 
    0.35684305, 0.41749771, 0.59661206, 0.56692966, 0.502469, 
    0.47599376, 0.56683711, 0.45664221, 0.55885833, 0.87117811, 
    0.50275838, 0.40498543, 0.64946886, 0.98687633, 0.56463145, 
    0.46906875, 0.50036772, 0.54257193, 0.55618213, 0.41829261, 
    0.54984584, 0.57529319, 0.57167138, 0.6338991, 0.55986868, 
    0.19865445, 0.9210335, 0.46846345, 0.55699737, 0.45321538, 
    0.44156584, 0.56713719, 0.44018579, 0.55854068, 0.18225112, 
    0.40366269, 0.56283781, 0.10305657, 0.80405728, 0.41774203, 
    0.54388967, 0.43095237, 0.10871094, 0.48619122, 0.45729246, 
    0.41573114, 0.3745227, 0.41879856, 0.47598278, 0.47773476
    )), .Names = c("X1", "X2", "X3"), class = "data.frame", row.names = c(NA, 
-300L))

Test1D <- structure(list(X1 = c(41.03031,20.87566,10.43191,11.52422,14.20413,40.21455,14.61737,22.76185,0.7293823,42.79045,14.85337,13.74813,13.80885,18.87144,30.27277,0.8410542,14.26617,39.28134,29.85714,32.80511,29.59275,5.393895,41.59335,11.0653,39.57001,19.10729,0.2526954,34.49492,23.16941,31.90491,30.13866,22.38442,40.4031,39.04372,12.83523,40.72178,41.0132,39.75102,39.69834,41.55194,5.077465,13.77343,5.778881,28.68913,0.970711,40.88784,4.052732,19.08397,10.98529,32.79286,29.82985,13.61437,15.40075,41.55266,39.75678,19.11755,30.96638,15.10425,27.69187,29.59051,10.53893,14.88824,0.9672874,19.43442,22.76942,31.58893,5.716779,40.91752,21.67839,3.927566,19.54646,20.01004,1.040394,11.606,9.173213,41.39632,14.54889,30.11055,39.97177,5.014664,-0.06129388,-1.010624,39.48331,21.15264,19.25247,1.337404,-0.4146932,21.48621,14.58104,-0.987299,4.082217,14.58421,8.888448,22.26289,29.76225,8.517302,5.411108,40.97157,19.43828,29.4363,29.91938,40.27994,31.37119,0.7794722,-1.712822,14.72111,14.22424,10.92179,0.06483235,42.59218,39.62677,32.04889,1.114738,39.52764,31.79469,10.01382,11.2633,40.0971,30.46067,10.32371,23.18369,29.77245,15.17003,40.01774,5.382995,30.98157,30.27637,41.80396,23.41244,41.97769,14.59845,12.3485,40.90201,41.47392,22.97435,14.25714,9.633791,14.11344,29.7195,15.74416,0.0857838,5.479947,30.24767,38.80231,23.15503,25.06866,4.59775,14.59601,31.20922,9.339267,-0.07765168,23.45887,9.72531,13.76492,-0.8374697,-0.6041171,31.16166,28.13469,22.28926,14.09602,0.8390977,29.25091,28.99929,-1.079761,19.66072,31.49478,30.09754,16.16733,14.22362,31.62192,19.27728,29.98888,-0.1224303,15.04487,31.29585,19.89795,5.526179,32.13579,18.48618,11.45025,4.671881,20.30119,30.33059,30.21309,24.36409,28.44172,19.58372,4.657753,39.64205,13.44311,32.29663,-0.938151,0.1416607,30.33877,39.34395,40.0645,22.1418,1.998953,10.22564,31.62205)), .Names = c("X1"), class = "data.frame", row.names = c(NA, -200L))