CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDesc$Documents.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc$ $TextViews.StdViewDescTextViews.ViewDesc#TextModels.StdModelDescTextModels.ModelDesc!!WTextModels.AttributesDesc'*PSL ,CMTT10PS ,CMMI10PS @CMSY10PS;  *PSb9model{ for (i in 1:n){ X[i,1] <- 1 for (j in 1:p){ X[i,j+1]<-x[i,j]} } for (j in 1:(p+1)){ for (k in 1:(p+1) ) { XTX[j,k] <- inprod( X[1:n,j], X[1:n,k] ) }} for (j in 1:(p+1)){ gb[j] <- B[j]*g[j] } for (i in 1:n){ y[i] ~ dnorm( mu[i], tau ) mu[i] <- inprod( X[i,], gb[] ) } # # priors for (j in 1:(p+1)){ g[j]~dbern(prior.pgamma[j]) } B[1:(p+1)] ~ dmnorm( mean.beta[1:(p+1)], T[ 1:(p+1), 1:(p+1)] ) tau~dgamma( 0.01, 0.01) for (j in 1:(p+1) ){ mean.beta[j] <- (1-g[j])*prop.mean.beta[j] } for (j in 1:(p+1) ){ for (k in 1:(p+1) ){ T[j,k] < - g[j]*g[k]*tau*XTX[j,k]/n + ( 1- g[j]*g[k])*equals(j,k)*pow(prop.sd.beta[k],-2) }} gamma0<-g[1] beta0 <-B[1] for (j in 1:p){ beta[j] <- B[j+1] gamma[j] <- g[j+1] } model <- gamma[4]*1 + gamma[5]*2 + gamma[12]*4 + gamma[15]*8 for (m in 1:16){ pmodel[m] <- equals( model+1, m) } } INITS list( B=c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), tau=1, g=c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) ) DATA list( prior.pgamma=c(0,0,0,0,0.5,0.5,0,0,0,0,0,0,0.5,0,0,0.5), n=50, p=15, prop.mean.beta=c(0.25690,-0.131, -0.2928, -0.00222, 1.384, 1.805, 0.4622, 0.07317, 0.5033, -0.5573, -0.4004, -0.4351, -1.234, -0.2499, 0.1184, -0.6131), prop.sd.beta=c(0.46600,0.4191, 0.4735, 0.4359, 0.3905, 0.3503, 0.4525, 0.4274, 0.5179, 0.4416, 0.5128, 0.4427, 0.6002, 0.486, 0.5677, 0.3765), y = c(-2.4386, -0.7768, -2.3082, -2.364, -5.415, 2.5454, 5.6997, -1.5727, 1.7478, 2.7069, 3.3031, -1.8023, 3.4703, 0.2567, 2.672, 5.1258, -0.291, 1.4621, 4.5879, -3.6333, 1.8433, -0.0457, 1.5518, -9.2514, -4.2667, 1.7334, -4.2685, 4.8231, -0.8476, 2.0168, 3.4958, 1.9169, 3.829, -0.5453, 4.9755, -2.4626, 1.534, -2.3165, -3.4395, 0.1536, 4.4862, 5.4609, -5.2323, 1.5587, 4.3393, 1.131, 1.8364, 3.7274, -2.2956, 1.5475), x=structure( .Data=c(0.2532, 1.8156, -0.483, -0.356, -1.8555, 0.9481, -1.3358, 0.1841, -0.4689, 0.6804, -0.7008, -0.2409, -0.8453, 0.9144, 0.1809, -1.2131, 0.7096, -0.0402, 0.1953, 0.1385, 0.0058, 1.2085, 0.2564, 1.4045, 0.9116, -0.6775, -1.675, 0.6242, -0.5213, 0.8702, -0.4847, -0.1016, -0.6435, 0.1701, -0.3215, -0.2552, -2.5718, 0.2579, -1.4463, 0.1115, 0.3261, -0.798, 0.0923, 0.5127, 1.4399, -0.8514, 1.5888, 1.3791, 0.1251, -0.8537, -1.3595, -0.1091, -0.5922, -0.9882, 0.4722, -0.0096, -0.715, 0.5835, 0.0069, 0.9861, -1.273, -0.6017, -0.7611, -0.8256, -0.7499, -0.5043, 0.9635, -1.0414, -0.4521, 1.0405, 1.1622, 0.7947, -2.0972, 0.2569, 0.7769, 0.0538, -1.6878, 0.1542, 0.0936, 1.5204, 0.5577, -1.0942, -0.7661, 0.1763, -1.0316, -1.313, 0.3309, 0.2222, -0.0018, 0.3009, -0.0371, 0.5701, 0.056, 0.7502, 1.9702, 0.0177, 0.7203, 0.183, -0.5191, 0.5726, 0.2503, -0.6135, -1.0759, -0.4996, 0.5746, 0.0343, -0.2322, -0.0152, 1.2714, -1.866, -0.1385, -1.6321, -0.2823, 0.9156, -0.8727, -0.3439, 0.3202, 0.4665, -1.3111, -0.9537, -0.1755, 0.7747, -1.4362, -0.7059, -0.1968, 0.8168, 0.3267, 1.2173, -1.5339, -0.0478, -0.0735, 0.3729, 1.1634, 0.7871, 0.638, 0.8531, 0.0236, 1.1302, 0.0606, 0.1544, 0.2727, -0.8014, 1.1449, -0.3672, 0.1691, 2.1495, -0.5756, 1.2238, -0.0029, -0.7291, -0.1384, 0.4197, -1.977, 0.1509, 0.2772, -0.8394, 0.58, -1.0992, -1.0541, 0.155, -0.233, -1.0515, -1.6162, 0.8783, 1.1748, 0.8032, -0.5469, -0.2908, -0.8209, 0.8454, -0.929, 0.608, -0.0652, -1.2, -0.2657, 0.4385, 0.604, 0.3884, -1.1925, -0.8979, -1.0286, 1.8212, -0.449, 1.0174, 1.2026, 0.3204, -1.2126, -0.734, 0.0475, -1.1168, 0.2648, 0.0406, -0.3929, -0.3909, 0.9785, 0.51, 1.0901, 1.0467, 0.2824, -0.7458, -1.337, -0.8706, -0.7959, 0.4132, -0.8158, -0.7637, 0.1194, -1.1479, 0.1261, 1.5405, -1.5259, 0.1946, -1.0717, 0.5397, 1.5064, -0.3946, -0.0142, 1.2302, -0.062, 1.0966, 1.1683, 0.3913, 0.7166, 0.3662, 0.8638, -0.3847, 0.8638, -0.0125, 1.5583, 0.2215, 0.5831, -0.7839, 0.6375, 1.9644, 1.2588, -1.4622, -0.3077, -1.1078, 1.6221, -2.3519, 1.4495, 1.4793, 0.7444, 1.7181, -2.28, -0.975, 1.494, 0.3758, 1.4219, 1.6146, 0.5361, -1.4991, 0.4427, -0.9266, -2.877, 0.715, 0.3277, -0.3406, 1.9136, -0.3782, 1.7287, -1.0935, -0.17, 1.0203, 0.9198, 0.8625, -0.188, -0.8651, 1.0775, -0.2109, -0.8634, -0.2092, -0.6246, 0.3993, 1.7807, 0.7549, 1.2155, -1.9109, -0.6407, 1.53, 0.0005, -0.1075, 2.0485, -1.936, -0.8069, 0.144, -0.2597, -0.9671, 0.6101, -1.228, -0.569, 0.7296, -2.1917, -1.2761, 1.4552, -2.0649, 1.1535, 0.316, 0.909, -0.1409, 0.6253, 0.7797, 0.4458, 0.7951, 0.2297, -0.9498, 0.0302, -0.7715, -0.7871, 0.6819, 0.5402, 0.327, 0.7586, 0.2633, -2.1068, -0.1977, -0.7025, -0.9499, 0.2206, -0.8347, -0.8338, 0.4483, -0.1515, -0.0043, -0.8642, -0.0132, 0.7021, -0.8466, -0.5904, -0.1068, 1.8521, -0.7045, -0.9314, 0.2761, 1.0288, -0.614, 1.7761, 1.6665, 1.4052, 0.0477, 2.1756, 0.3955, 1.2472, -0.1659, 0.8752, 1.8678, 1.2847, 0.4967, -0.3451, -2.194, 0.0322, -1.7619, 0.0413, 0.1795, 0.0882, 0.0741, 0.2199, -0.2527, 0.7575, -0.5475, -0.2652, -0.1864, -1.8443, -0.6213, -2.2861, 0.2397, 0.7165, -0.5088, 0.0723, 0.6554, 0.1944, 0.0627, -1.2333, -0.6668, -0.3643, 2.1336, -0.2696, 0.8352, -0.0905, 0.6053, 0.1278, -0.9659, -0.3242, 1.8595, -0.401, -0.5056, 0.9797, -0.3522, 1.5781, -0.6649, -0.0661, -0.0632, -1.0288, -0.3651, 1.0089, 1.0371, -1.2665, 0.062, -0.2491, 1.3932, -0.0286, 0.6036, 1.4613, 0.1986, -0.1378, 1.5776, 0.1716, 0.2851, 2.2335, 0.7554, -0.7355, -0.7447, 0.1274, 0.4182, -0.1174, 0.7349, -0.5518, -1.7765, -0.4166, -2.0655, 1.3805, 0.5255, -0.3012, -0.0047, -1.5563, 1.6014, -0.0095, 0.8014, -0.8466, 0.1172, -0.0097, -1.1792, -0.1674, 1.3232, 0.4011, 0.698, -0.0565, 1.2923, 0.6455, 0.8473, -0.4388, -0.0258, 0.6191, -0.4862, -0.3779, -2.221, -0.0139, -1.8425, 0.7279, 0.2261, -1.7503, -0.5339, -0.8615, 3.2967, 0.1566, -0.6211, 0.7122, 0.3329, 2.0307, 0.9708, 1.0827, 0.8803, 0.4843, 0.57, -1.0104, -1.6622, -0.9716, 0.3685, 1.1403, -0.4929, -1.8076, -1.0744, 1.4807, -1.2724, 0.358, 1.4126, 0.5296, 1.0928, -0.0743, 0.1657, 0.0948, -0.3091, -1.965, -0.3689, 1.6937, 0.4195, 0.4989, -1.6845, 0.1085, -0.3983, 1.0028, -0.8749, 0.3552, -0.8551, -0.7824, 0.0405, 1.7659, -1.1563, 1.7609, -0.1989, -0.3088, 0.9441, 0.2926, -0.549, -1.4652, 1.2621, 0.9841, 0.0035, -0.1114, -0.5988, 0.6284, -0.0279, 1.307, 0.8911, -0.0647, -0.4558, -0.2504, 0.8804, -0.1044, 0.3824, -0.0161, 0.0065, 0.5124, -1.5275, 0.6063, -0.0442, -0.3649, -0.1654, -1.1256, 2.0752, -2.0174, 1.9353, 2.0064, 1.6742, 0.1361, 0.4025, 0.0397, 0.1102, 0.3306, -0.1074, -1.3069, 1.9539, 0.9281, 0.2854, 0.1434, -1.9649, -1.1645, 1.7452, 0.6721, 0.8254, -0.0543, -0.3777, 0.2849, 1.8963, 0.0158, 2.1345, -0.4826, 1.7665, -0.1036, -0.3988, 0.2894, 0.9394, -0.2685, -0.068, 0.3147, -1.0013, 0.5726, 0.6401, -1.5506, -0.179, 2.5959, -1.2389, -1.0428, 0.0766, -0.7697, -0.3437, -0.0523, 0.4095, 2.4212, -0.5301, -1.0354, 0.8516, -1.484, 0.8148, 1.4214, -0.7104, 0.9131, -0.663, -0.2181, -0.2669, 1.6292, -0.1279, -0.5301, -1.0295, 0.0432, -0.6161, 0.8508, 0.2106, 1.2939, -0.5594, -0.5563, 1.0688, -1.3793, 1.3487, 0.7632, -1.9978, -1.8987, -0.2607, -0.5655, 0.1404, -0.1473, -1.1201, -0.3694, -0.7877, -1.2406, 0.0301, -1.4742, -0.0289, 1.5659, 1.1968, -0.5718, -1.1851, 0.7766, 0.1369, -0.3001, -0.2303, -0.1515, -0.1896, 0.942, 1.1239, -0.0113, -0.6285, -1.3864, 0.2737, -2.0212, -0.0423, -0.5297, 0.7101, -0.5613, -0.3932, 1.9499, -0.691, 0.7919, -0.5318, -0.5213, -0.6517, 0.5551, 0.6835, 0.6419, 0.0681, 1.4074, 0.3109, -0.3881, 0.8534, 0.3377, 0.6069, -1.0757, 1.1765, 0.9395, 1.1052, 1.2934, -0.3334, -1.201, 1.8051, -0.4944, 0.6722, -0.3811, 0.3006, -0.3241, 0.5145, 0.8625, -0.571, 0.8386, 0.14, 1.4898, -0.2371, -1.4977, 0.6917, -2.0052, -1.0114, 0.5536, 0.1943, -0.0383, -0.1806, -0.4167, -1.636, -0.6545, 0.7911, -0.4712, -1.7515, 0.4295, 0.2707, 1.8788, 0.4132, -0.431, -0.0985, -0.6662, 0.4337, 1.5325, -1.0914, 0.8049, -0.1756, -1.2483, 1.1944, -0.9778, 0.7469, 0.3923, -1.3149, -0.2081, -0.7817, 0.2014, 0.0257, 0.2161, -0.4244, 1.6736, -0.1795, -0.0329, -0.4735, 0.9362, -1.3239, -0.4339, 0.3462, 0.4204, 2.0448, -0.112, 0.9716, 0.4501, 0.2191, 0.5259, 1.5869, 1.4232, -0.6287, 0.9264, 0.0883, 0.5609, 0.3011, 0.0659, -1.4427, -1.8872, 1.4274, 2.1341, -0.2701, 0.5767, 0.0712, 1.5841, 2.1634, -0.1232, 0.4988, -0.2374, 0.5291), .Dim = c(50,15) ) )TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc TextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$ ZGo * ,[ @Documents.ControllerDesc Ks ' Oh*