N_observed <-
515L
N_censored <-
485
y <-
c(-2.5213622911332, -0.899246297093259, -0.882051733136973, -1.6333894770517, 
-0.9913301110478, -0.85021249095951, -1.33969667572574, -0.767077260496756, 
-0.286816003696289, -0.238950561506902, -0.687521588939969, -0.567683075455062, 
-0.0695096567823009, -0.696429114145116, -0.789656739543432, 
-1.11589336416997, -0.669899736358311, -1.21772415293134, -0.794927553448715, 
-0.404749298168329, -0.145161737456044, -0.713907077939067, -0.85501615409786, 
-0.791187660501534, -0.466879155517009, -0.566600280583786, -1.11890958732034, 
-0.298341806407799, -0.152001621772761, -2.04611235856038, -2.62943214942905, 
-1.24582428430058, -0.110070396765688, -0.407186013628106, -0.161445574734168, 
-0.24017549216479, -0.270898311569049, -1.89447056604405, -0.591368480225021, 
-2.01176469962105, -1.89424529197058, -0.889131890977608, -0.420711640667968, 
-0.0554037054294691, -0.316427001072135, -0.311030573288475, 
-1.28922059651653, -0.404789983640807, -0.633959487183652, -0.581169219430318, 
-0.726691601008866, -1.48801414878075, -1.38150245795571, -0.377821302517249, 
-0.705220821082266, -1.5647264782019, -0.553138477851498, -1.09748730400113, 
-0.376939943766686, -0.342162321883926, -1.39574386242152, -0.407523767954635, 
-0.421024117446299, -1.44985136261128, -0.0893197657619852, -0.188107128985747, 
-0.253626674326427, -0.453879265335256, -0.229514618012487, -0.783931434292465, 
-0.75430267100992, -0.566623083597214, -0.352881964229506, -0.236900181893869, 
-1.7564969151999, -1.68457089702172, -0.662821953382485, -0.063916995409586, 
-0.897050197900835, -0.127530188477407, -1.62923354168161, -0.451597774801736, 
-0.37183592359921, -0.545708443696504, -0.611104968654953, -0.548987275446619, 
-0.0314071545660637, -1.51756700490578, -1.91992764620263, -0.0198852503256151, 
-0.98394880151975, -1.40633153671257, -0.180090039151208, -0.559105195119053, 
-1.70844457762089, -0.261012635886671, -0.691927696278597, -0.861785784304935, 
-0.11843849770679, -0.26218274114005, -0.220358024899687, -0.770123869511762, 
-1.27966615538497, -0.452968953425709, -0.449546753183815, -2.03285961966126, 
-0.307013132575202, -0.0785240820617872, -0.172076542924704, 
-0.761151615061559, -1.59910743745928, -0.811029049321994, -1.45835946806492, 
-1.07138132653616, -0.948834997781745, -0.267825289340478, -0.256813360119261, 
-0.533508956063549, -0.261598953707096, -1.22380434448755, -0.4930676053479, 
-0.172634783513983, -0.645775452251347, -0.314170944491534, -0.200310327962293, 
-0.268018790199299, -0.0680224911425887, -0.473856338421498, 
-0.0301501746921319, -0.18956323501505, -0.556509116624639, -0.149336160571647, 
-0.187384267851229, -1.46076611033404, -0.996740692010017, -0.250310935461445, 
-0.785061839449613, -0.605615946587145, -0.299989186479679, -0.457217339150664, 
-0.310234412064731, -0.711773910022648, -1.44864313790934, -0.367586292816771, 
-0.537622778302923, -0.152862501957633, -0.632576996142804, -0.26347792007874, 
-1.60505052119909, -0.899959443068978, -0.723898153582329, -0.937649051000101, 
-1.25919694306654, -2.38591047524539, -0.0798761636450612, -1.34257043139673, 
-0.0197449233757219, -0.655362417017375, -1.52821822567124, -0.151218928365373, 
-0.698231071318985, -0.398598242760153, -0.443762326887694, -1.47944211363226, 
-0.720715791384891, -2.14193043261064, -0.54193017812721, -1.92409087895167, 
-0.784831156648336, -1.93442132910831, -0.0766135415249974, -1.18210455820609, 
-1.69756287095228, -1.55294964160212, -0.226086311231448, -1.3339909741005, 
-0.594564113407693, -0.375557417940831, -0.311267569871023, -2.2633004126945, 
-1.72057911230948, -0.453605969079187, -0.00619349766361273, 
-0.176250252909573, -0.953410016923982, -0.0392827156524911, 
-2.00937406082634, -0.697103214650186, -0.693642827159341, -0.31852713325885, 
-0.259922769104466, -0.321583676178783, -0.382922235068906, -0.282794114148984, 
-0.802388118650068, -0.142778918645436, -0.43861718430917, -1.3868484290966, 
-0.860801185826865, -1.1179121039966, -0.907780000727827, -0.778483162352623, 
-1.785234127481, -0.44152282645742, -0.971792352538109, -1.48510060420394, 
-0.22820816521194, -1.57904661877767, -0.0160359628275431, -0.135889316281278, 
-0.724712000401773, -0.161278683128095, -0.929796220655551, -0.761430633663824, 
-0.483239017290575, -0.224804186837787, -1.55752214675223, -0.578148964835721, 
-0.703689829911598, -0.935464899447633, -0.589091889288838, -2.13631948912468, 
-0.325593566582834, -0.971452416955267, -0.655320925531718, -0.411820961108646, 
-0.340710282088032, -1.24088406113565, -0.706754431152131, -0.0540446928292269, 
-2.19241492642161, -0.0899415574489374, -0.2334256680349, -0.142533508945306, 
-0.000364428148345185, -0.601018768686331, -1.76002054649716, 
-0.62181710850493, -1.0783179521808, -1.13872132843228, -1.1759779185026, 
-0.50494734012892, -2.63629603130044, -1.00153553592343, -0.535239564115659, 
-0.295955157273124, -1.57855812204145, -0.355518929076873, -0.0864720408042372, 
-1.49098491694408, -0.677406976010158, -0.398782081333026, -1.63681852040036, 
-1.02216671356548, -0.250174395837281, -0.893769160197479, -0.395458742564661, 
-1.69538012676438, -0.511375563107823, -1.20320243039919, -0.731102281274004, 
-0.10324159593236, -1.22051936260263, -1.04357398913798, -0.793827611603279, 
-1.36899950729944, -0.173283154186555, -0.613753894733586, -0.169771583473222, 
-0.175291314791335, -1.90856915380058, -1.39060601957479, -0.199823169100183, 
-0.925287392287433, -0.928098921462977, -1.10981755715546, -2.07412682397577, 
-0.38059384984768, -0.752924677792951, -1.44566694307102, -0.784929914981676, 
-0.269907281743464, -0.507838243291885, -1.26940527617452, -0.186749473890139, 
-0.0271878103467845, -0.259010214471293, -0.56501079781009, -0.125907041984602, 
-0.655594168379808, -0.607778295540398, -1.37392688209781, -0.558233561585546, 
-0.020780560142763, -0.206622200021693, -0.910867623165781, -1.02972571243686, 
-1.20868188707964, -0.89863134893547, -1.16519896809507, -0.084070032107309, 
-0.0414135639019214, -0.639287435468622, -1.48780313529405, -0.323887854105496, 
-1.39164780394493, -0.492935801908078, -0.697110073743194, -0.629992716576231, 
-0.0364762680805732, -0.0529766055391918, -2.50390473472424, 
-0.428485558595033, -1.53631944706076, -1.20580792673719, -0.327236486259197, 
-1.2344904084526, -0.481274745522863, -1.70881196836834, -0.141322541128504, 
-1.47501871561569, -0.734138913560272, -1.33010582075399, -0.554835919988078, 
-0.797675707859464, -1.57456900500558, -0.60542094880716, -0.855204044923541, 
-1.47460350824119, -1.30804568872134, -0.112389540441192, -0.00281771334282515, 
-0.755930971342975, -0.416342165679198, -0.118683954734822, -0.592125663291092, 
-0.345193933001365, -1.36364856218031, -1.18939404478333, -0.117837853679428, 
-0.132560584010236, -1.06225186808157, -0.0271373175780366, -0.693451213499693, 
-1.25074206256488, -0.919367726335166, -1.04530139949888, -0.297729684564987, 
-0.32702455426974, -0.956926520370725, -0.20188667981006, -0.912798116790333, 
-1.04095484941515, -0.427030860256762, -0.863301069842576, -0.54578423232133, 
-0.436489208515193, -2.76203381038342, -0.47744572726183, -0.461841102517827, 
-0.671198101855824, -0.0896567971641, -1.23068061898002, -0.78778933940307, 
-0.182473756948219, -1.8352195623109, -2.12263582800899, -0.158196497860951, 
-1.02168838228974, -0.064163968878886, -0.805337082067898, -0.372578617179106, 
-0.327163850448036, -0.813960640563396, -1.13432725490623, -0.730450890629548, 
-0.203659922396876, -0.918289721245688, -1.6996331883745, -1.34477697775772, 
-0.472360146831078, -1.0774103822079, -0.0913021756041061, -0.324388458746732, 
-1.22501780314284, -0.95640776301203, -1.08667045989618, -0.059615094917108, 
-0.22132538720072, -0.144268262649732, -0.491768629632079, -1.56360236446255, 
-2.73424119917959, -0.261836848725471, -0.415722385301503, -1.19002940009208, 
-0.367825430895104, -0.291047845721905, -1.09179780488929, -0.997384583734359, 
-0.777900877150122, -0.988119516914025, -0.0706194067121435, 
-1.20217157307386, -0.0392514089796242, -1.10728702249976, -0.625972171230493, 
-0.356161890321403, -0.31077503934555, -0.168348014417039, -0.554926423742981, 
-0.156491436006563, -1.29074234275586, -0.114172592182753, -0.33582370120819, 
-0.563474534298538, -0.437053490134027, -1.19309082972739, -0.39614572674882, 
-1.29838890657776, -1.16477215699168, -0.267315807131865, -1.11298929242394, 
-2.09917487061127, -1.71092068328348, -0.847310803235354, -0.930529960544369, 
-1.33356038596785, -1.08406858806066, -0.488248261597051, -0.949705998504022, 
-0.188118487329051, -0.702374434768907, -0.880125245907041, -0.127941380034682, 
-2.15842949972804, -0.797608615515652, -1.58223562652204, -0.39000073778477, 
-1.50053936547475, -0.81299645182657, -0.89127505161979, -0.279053733152072, 
-0.0627930368818193, -0.975528865349835, -0.471895375338038, 
-0.109064581571348, -1.50737379713839, -1.19018257508874, -1.19180729243642, 
-1.68467847061983, -1.23671743056317, -0.800192527040849, -0.587515542361884, 
-0.199456920988043, -2.04728041908985, -1.12409325709067, -0.395956852716182, 
-0.668665543311082, -1.25888476050492, -2.05690851797747, -0.632516694182306, 
-0.108287803204226, -1.12782898668054, -0.461612568762784, -0.101332313436885, 
-0.47453453898379, -0.361431431242864, -1.95421246578659, -1.33337802987884, 
-1.30199369187037, -0.660100248457506, -0.164470024221267, -1.94378959977603, 
-0.241602113367073, -0.100459055312367, -0.986709669751183, -1.80316506738291, 
-0.801633676804218, -1.19543395873131, -0.876667093664642, -0.185321716135258, 
-1.97889651482249, -2.45141056308869, -0.573205456914614, -1.52117846621079, 
-0.3241871615127, -2.31331259168335, -2.10944335542178, -0.415374572622635, 
-0.510357812357354, -1.45832183274576, -0.478235681997796, -1.04742455486851, 
-0.245384415982107, -0.272038977632491, -1.20196883895185, -0.0685025973743204, 
-0.61575998122718, -1.43892401613397, -2.64299230492555, -0.788020719063269, 
-1.27555406609946, -0.0576460511787843, -0.529384823870818, -0.101381804421883, 
-0.598384955378293, -2.8543284381846, -0.702729716856781, -1.87140181087756, 
-0.0727476723821817, -0.879630883867016, -0.899196389332242, 
-0.5051230743181, -1.08862211692291)
U <-
0