develop/refs/soft-k-means-data.R

N <-
  137
D <-
  8
K <-
  5
y <-
  structure(c(0.201299862948504, -0.201547030912402, -0.307722736221928, 
              -0.113909121429762, -0.317385076246514, 0.486887253813445, 0.216396070510692, 
              -0.522504962507574, 0.0999884487329546, -0.374560249344118, 1.25230228963982, 
              1.32117236839097, -1.78912278548354, -1.12320907618655, 0.298757334386702, 
              -0.643018973086524, -0.970193822958063, 1.8359248505943, -1.08397171023892, 
              -0.681463669080701, 1.37841166199148, 0.250145455841524, 1.55188888550783, 
              -0.94837059139759, -0.0785677710615314, 0.630262017843849, 0.0177509756762819, 
              0.0587175513653272, 1.5253088832499, 2.02971210407677, 1.48153547159389, 
              1.32561539997964, 1.61868319591135, 2.57511950976033, 1.90533033463626, 
              -0.0392859071131051, 0.982223977047954, 0.224932037330876, 3.96756623395838, 
              0.56961898141743, 1.19038971367083, 1.46030520624806, -0.988041068794612, 
              -0.13710499660733, -0.516173823435649, 1.73514001999303, 1.42450213310636, 
              2.42588178197086, 1.36078286104211, 2.00757973002483, 2.38142457257356, 
              1.9219710523873, 2.08190781987337, 0.385829858429519, 1.26125524130875, 
              -0.133405525984022, 1.38778980737774, 1.08058596458552, 0.574498349889681, 
              3.32234174024842, 0.0497299209801201, 2.9224726963958, 1.77478377276629, 
              1.86667338790026, 0.926994133015224, 2.88792811797693, 0.77455586366817, 
              -0.113502944729109, 3.03022684464381, 2.41360211089075, -0.286314710512999, 
              0.33626664500527, -0.949983239516864, 0.601482350292746, 0.731212313372704, 
              -0.203496038340392, -0.11075627749627, 0.449160875122631, -2.01370769271222, 
              -1.87291161344744, -1.17886113657795, -1.4965120578889, -0.161628522682308, 
              -0.274340276559541, -0.865522537953758, -0.415682006424134, 1.74089559055984, 
              -1.73086729463254, 0.959102863168718, -1.82543152975414, -1.73311360385246, 
              0.277895505004592, 0.322716824151707, 0.958831607188846, -1.82246144160452, 
              -1.3856494364345, -1.43767763293258, -1.95725526348104, -0.323872128256108, 
              0.168365654554819, 0.0653577305743147, 1.13459730723875, -1.05588059233339, 
              -0.166610354723875, -0.227861460549885, -1.68086248420894, -1.66418260768474, 
              0.55521904219406, -0.919199856391735, -1.02899802526843, 0.573291825085553, 
              -1.5987648089838, -0.713218126231151, -0.93867355243655, 0.699596211287747, 
              1.24005285481326, -1.70278506382425, -1.5371642929791, 1.09299610959414, 
              -0.766039878260787, -0.774488655673828, -0.136741223340354, 0.224975353828913, 
              0.27074803847607, -0.9895769495655, -0.529729993012401, 0.239043929634017, 
              -0.51958950218171, -0.0504673086161069, -2.30714283786994, -1.0365067821817, 
              -1.5644798453921, -2.22341194589593, -1.41954544399363, -1.02604125568453, 
              -0.5189789042699, -0.711218515645184, -0.640510216378615, 0.772051853964989, 
              -1.28173472733886, 1.25575262721737, 1.0887234556409, 0.106539109400793, 
              -0.254368156327286, -0.936263093443322, -0.0535511727362021, 
              0.171335151033581, 0.0985998695896357, 0.841050006769341, 0.200555782596813, 
              -0.61719961146679, -0.810235172431016, -0.887903325870901, -0.057319601772176, 
              0.693587708919367, 1.32196924650493, -1.49813916298101, 0.676132070746195, 
              0.651941266973029, -0.637857005311003, -1.85071916026469, -0.243057533348384, 
              0.265726470673781, -0.445072894053343, -0.325785520486707, 2.9474266641902, 
              2.19828811142645, 0.889859802813409, 2.85156138350197, 1.1124439166277, 
              1.68217046661018, 1.55162208344267, 0.705146884231116, 1.74021165645498, 
              1.06763677056123, 4.01356864473495, 0.448902109974779, 3.48720336798746, 
              0.653621273229676, 1.72000044468348, 0.928965205620227, 1.75709071263483, 
              1.12060259790976, 0.946780722954273, 3.49541826401551, -0.205537127744484, 
              0.432777514415291, -0.204435815076872, 0.219148058954498, 1.51533033653189, 
              -0.0512718043924422, 0.0693416302461004, -0.974002493500806, 
              0.336508184378951, -0.930081245274979, 0.477522998796373, -0.374665204275304, 
              0.168058537064609, 0.260576848244496, 0.928278322133829, -1.25048873620216, 
              -1.85101856938695, 1.51926016704333, 0.50754383438883, -1.18200125466621, 
              0.228241988956941, -0.473263031254994, -0.855951321136577, 0.587538241781708, 
              0.521188567169461, 0.488587674289779, 0.468283551644659, 1.67921121639419, 
              0.331813219210327, -0.200975221727015, 1.22508619773828, 3.02861202792585, 
              1.32872187096874, -0.346500406623429, -1.18323709334443, 1.00297918604363, 
              -0.14956952355555, -1.17647625001655, -0.0596056181132659, 1.56549850851323, 
              -0.00672761578323205, 0.395508693513716, -0.270332711140741, 
              1.42887604805056, 1.21607911302308, 2.99338892230454, 0.474453997118495, 
              -0.519431847419155, -0.18230697233498, -0.549531910927785, -1.50981969078169, 
              -1.73199547920623, -0.575748072778001, -0.166676861999458, 1.94503804339291, 
              0.113361174785961, 0.375721029206822, 2.15857785285187, -0.0301522529852254, 
              -0.503555927579238, -0.907095970598434, -0.160714087484345, -0.811080841316352, 
              1.08597337822379, 0.432179267147888, -0.00515725154482881, 0.166027053438733, 
              -1.16375237950069, 0.903154172575669, 0.972281893167726, 0.438071444206833, 
              0.217353389893173, 0.0977138960452277, -1.32314891372478, -0.771301251385473, 
              0.827121706417291, 0.589995700019216, 1.16123728535118, -0.397890568477983, 
              0.543198498516187, -0.457231516958312, 1.11909229998701, -2.17050735580216, 
              -1.2059967636846, 0.150433265304429, 1.03193843802738, 0.585519662730986, 
              1.89418918606723, 0.41003090257194, -0.571693687824225, -0.449914288956075, 
              -0.368710595970102, 0.199982860694428, -0.384157580007004, -0.54715157623973, 
              -0.171625090028049, -1.71196992768403, 0.321790608356431, -0.141142820288934, 
              0.0716526019802736, -0.197503814426265, -0.938800962444335, -0.507409402307761, 
              -0.752012876539631, 1.127755440916, -0.0760735274589855, 0.329541080100051, 
              -0.684240503869486, -1.45276824497682, -1.60537485205876, -0.91838963326141, 
              1.11157867355935, -2.32091238805086, -0.711254981176626, -1.52716107285486, 
              -1.33588313158015, -1.94032869207174, 1.01700984309323, 1.95845639903572, 
              0.996159797285033, 0.968230605781786, 0.0497519541403465, 1.74755097466731, 
              -0.138657727305885, 0.884175666425031, 1.25999037850022, 0.114530462760042, 
              0.551282006990454, -0.370662365568497, 2.34732950297765, 0.979560385476457, 
              -0.456068165959337, 1.60500669241959, -0.519455676438635, 1.44824108322055, 
              2.04783447350798, 0.789452964168841, -0.193171408045897, -0.340721024827345, 
              1.27108006269382, 1.47917583727833, 2.10798013555863, 0.256941137648204, 
              2.34160938754232, 0.144357268776111, -0.120433954217974, 2.11631069816541, 
              0.152165411303994, -1.5268182305, -0.300670594164803, 0.320466843051857, 
              0.0990273769052707, 2.4764249279124, 0.796104700458018, 1.36378838378531, 
              0.12625268197903, 1.12704891247645, -0.579321983755877, 0.235954141084286, 
              1.71006428042443, 0.0592140068685795, 1.60135344863075, -0.183688847744138, 
              -0.0668062294140541, -0.362518909584895, -0.824822578261254, 
              1.04008361647108, 0.514637527416333, -0.477870996333181, -0.975256770979196, 
              -0.148084273189914, -0.577744477311455, 3.21074761801412, 2.45645642138177, 
              0.763263375425001, -0.546074667129472, 1.32868724095188, 1.07618997397541, 
              -0.334442188202284, -0.371430865233635, 0.449740097543338, 0.215631218451942, 
              2.778272812169, 3.10501802865877, 1.39035974755263, 0.562015791496981, 
              1.75344352881549, 2.34977859198499, 1.43150351725414, 6.00341931872771, 
              2.40259949331552, 1.58513930606042, 2.40748174874445, 0.0403923720031176, 
              2.16321695957164, 1.96227135667472, 2.90496188694863, 2.95401830006027, 
              3.79093971435589, 0.849106002008249, 0.379760927981248, 1.75660664086787, 
              2.79843512103421, 3.92771761405484, 2.61861455640026, 2.11351068827134, 
              0.898265546962351, 1.01932180217552, 2.58049337166536, 2.87335944573, 
              0.820351901610261, 0.0732520383857738, 1.4190379516843, 1.72341035939349, 
              0.976104425975509, 1.40405570100851, 2.07228119250057, 2.65695291094737, 
              3.00424874618387, 2.05908270596371, 3.16425039964432, 1.79631245736542, 
              0.871727638950381, 1.93669768427937, 2.61208668858054, 1.37531331148351, 
              0.46362343227763, -0.158969222696506, 0.594719744267596, 1.02645063890494, 
              0.722518799552152, -1.93120396287173, 0.206383122936124, 2.08032187296485, 
              -0.60090355904688, 0.504451692619552, 0.340818974085913, -0.345679181171054, 
              0.797164645703691, 1.0807880398541, -0.297096949654315, 0.645643030913612, 
              -0.436352182272759, 0.97769307297186, 0.441202248184156, 0.914523487564679, 
              0.249692131320675, 0.664454232803202, -0.851971974583979, -0.262515143329978, 
              -0.257122934707848, -0.765938023807338, -1.24237692751876, 0.878917844583754, 
              -0.723162985320935, 2.9669371392431, 1.65043087347092, -0.940857259036313, 
              1.05249647077993, 1.84488670110841, 1.82106811732878, -0.449037119303404, 
              0.928740003135392, 1.35262915209372, 0.876823182598741, 0.690420804918585, 
              0.274061238162762, 1.67360839007782, 1.19020081121974, 0.95991767930517, 
              0.893607147793871, -0.275891525891734, 0.998851594118958, 0.985637546565936, 
              1.09744583458952, 0.120233445037843, 0.962480330175953, 2.17622493204769, 
              1.14658007332141, 1.88826649269648, 1.0664024587103, 1.80345038312811, 
              1.16274735083453, 1.11280416064721, 1.5132793729966, 0.251830942170243, 
              1.97196851472589, 2.29733879953374, 1.14282315889782, 0.137296695723598, 
              0.995956633228276, 0.705403614541113, 0.536849569192963, 1.55449075066819, 
              0.771207404448444, 1.78733005034123, 0.320279177995823, -0.0719552091467992, 
              -1.02394563794372, 0.132626549127304, -0.0424647298243236, 0.633611397312201, 
              -3.3451532019135, -0.80441882008445, -0.461542836870934, 0.0305847483850742, 
              0.225692585971996, 0.95385896555826, -0.893041029942149, 0.709282826820868, 
              0.137889898797227, 0.372293147890445, 0.971372990969972, -0.772887394983119, 
              -1.52746395084721, -0.0709207687129148, -1.50670690626304, 0.620261206014985, 
              -1.52384694565044, -1.34816481604657, -0.311790143626898, -2.48664056965637, 
              -1.23865455011194, -1.50216032834911, -1.76770747678075, -1.45316518662399, 
              -0.985358619127602, -2.18976146927759, -0.971074542305849, -0.842757625187456, 
              -1.90264340628646, -2.00779117548318, -1.21163233925918, -1.64522214735618, 
              -3.47690099605527, -0.330556094256578, -3.00531874570636, -1.17287368922807, 
              -1.47154891360696, -1.96730096028332, -2.38779508524445, -1.63262995846691, 
              -1.07458484866633, -0.812632781641591, -1.68761930677748, -2.15805416832397, 
              -1.54249344299378, -1.63891913415421, 0.829500627782312, -1.10197515980638, 
              -1.02124722740366, -0.159590360732548, -0.965924162039211, -2.38564078267049, 
              -3.51342625120959, 1.14150229108981, -2.20326264848161, -0.886897098836687, 
              -1.38705105010073, -0.797113377149576, 0.0950943653642062, -1.24417698223604, 
              -1.77770228694509, 0.178985025040681, -0.683200701512481, -0.985600221589093, 
              -1.18582696053808, -0.57413193139863, 0.0281343669275876, -0.0329612861936391, 
              -0.140151745842393, -0.400161823647493, -1.28021954529879, -1.32369248496074, 
              -0.075278639406092, 0.158970711794784, -1.24101915471731, -0.868953169331338, 
              -0.864809969089327, -2.45013094612708, -1.32521187254236, -1.79016958158241, 
              -2.25905842498602, 1.14552374240115, -0.0216953076507457, -0.210643984952048, 
              -0.0467089761691257, 1.13216636206254, -1.25715561057991, 0.0495005153107007, 
              -1.15700540050137, -0.0274005820570488, -0.288469227585097, -2.13610865042063, 
              -0.807638163965064, -0.839169287237374, -1.86925041208645, -0.984539631245828, 
              0.204468188992246, -0.483950115603298, -0.454911349126443, -0.760957250787035, 
              0.888349330768556, 1.32182787172084, -0.0655784701795001, -0.528039306707315, 
              -1.44619046265123, -1.113217064808, -0.842935796360675, -0.4799139632562, 
              -0.0795958810390638, 0.831026711861452, 0.848389287245025, 2.50446619960724, 
              1.05898480590835, 1.55437010223391, 2.43858443738872, 2.00379035992765, 
              1.39754023344086, 3.50906312784236, 1.71745206667361, 3.13052921602796, 
              1.73762156041033, 0.196211663720735, 1.35709282803801, 1.96357572991801, 
              0.742924503440893, 1.0732504986671, 1.33911964932874, 3.23062857207482, 
              2.05738826636116, 4.41944310592037, 0.151760999563576, 2.1814221461105, 
              2.17098621753927, 2.34555583341787, 1.0714831574256, 2.21874128169429, 
              2.03310449577724, 0.708957031629082, 3.25671752026933, -0.455557893651813, 
              1.72146854933516, 3.52705319970629, -0.0599655500367593, 2.94650304542974, 
              2.86738908765189, 1.26160882894382, 3.36778890140004, 1.86525686436022, 
              1.77783220874338, 2.1025992678893, 2.86953578582423, 1.23708637041311, 
              1.69946576597705, 2.12569630646574, 0.601214138269253, 0.894465837879071, 
              -0.209740458819459, -0.223664830956114, 0.677039804107662, 0.0361668240397429, 
              0.471989980746243, 0.0374087605118656, 1.1866916000318, -0.755238299454486, 
              -1.52085395432016, -1.08721055256389, 1.43927842179401, -0.48753074547527, 
              -0.364780480931876, -0.232670501067127, 0.409204925350658, -1.3894731745818, 
              -0.390294941863631, -0.88792902690067, 0.40342639325197, 0.079530803960054, 
              -0.997377969511273, -0.392205781253496, 1.10082470992752, -0.190516851282403, 
              -0.0612811351331551, -0.549859169106708, 0.292199111168739, -0.952523812653016, 
              -1.45221449472585, -0.734648138683345, -0.844238385771638, -0.688820494298506, 
              0.0429404764292097, 0.419057746041216, -0.495557153377425, -0.676719033082602, 
              -0.221461530787064, -0.819758025179845, -1.08359317568383, 0.876126197462722, 
              -0.691223767241192, -1.35152317944282, -2.00162996591629, -3.00838677522836, 
              -3.51566574595646, -2.49948700277864, -1.53384514064877, -2.89812800763232, 
              -2.37619701007144, -1.4939248580859, -2.65680374586977, -3.21673890095207, 
              -1.07333686485399, -1.46129632819796, -4.36010389159551, -3.0215483734198, 
              -2.7131407974234, -3.11239075424772, -2.60373355486006, -3.14565413625058, 
              -2.48780756682131, -3.6268719225109, -2.30638123576609, -2.48187148791654, 
              -3.82209287451215, -1.87730777840756, -0.653061368716728, -3.13869179389883, 
              -1.53482684257761, -2.80954840377348, -2.68528907005491, 0.417668443776715, 
              -0.478698028229991, -1.848275034454, -4.01249364339929, -1.48262840824826, 
              -0.716004193118395, -0.771065304008974, -0.405389490398155, -2.6896433615817, 
              -1.3664242723203, -1.67621991520047, -0.333416595828274, -2.8298904634486, 
              -0.384314325795079, -3.48548219096789, -1.58697166595785, -1.9620423295306, 
              -1.83990721626441, -0.662929907063736, 0.166413256048453, 2.44876942692005, 
              0.177295167973122, 0.774707334212899, 0.677115105836166, -0.251934916275996, 
              0.726529787292646, 2.50499813557772, -0.762588932638803, 0.43397493786238, 
              0.244884312584192, -0.729499857531351, 0.943300509078214, -0.269660003496078, 
              0.818441024551931, -0.680577554736601, -0.21370042247636, 1.36171888751746, 
              -0.649036053366442, 0.185344029092525, -0.751506617590235, 0.367814499555777, 
              -0.942261236476687, -0.590178853136724, -1.06390313766837, -0.892518125233382, 
              1.21531765808277, -0.213488302559998, 0.325616751510879, 0.378695432051025, 
              -0.941265492810959, 1.22150422294787, -0.525496660784155, 0.227632871306918, 
              1.54796640711197, -0.58981556541544, -0.572482699884963, -0.428872793417439, 
              0.829352552291311, -1.2071395258557, -0.424477426955408, -0.231165473745745, 
              0.275604827744503, 1.25532458183296, -1.61202897206233, -0.304701899368181, 
              1.33281949308416, -0.510464653710919, 0.198111319003585, -0.843364162670721, 
              -0.756321837856005, -1.1392700809792, -0.131961034941459, 1.7743378442744, 
              0.242325674462044, 0.128293573226913, -2.17578351664893, -1.40416172877839, 
              -1.90093710302195, 0.661229133619565, -0.320558129706888, -0.472137685370422, 
              0.367258405394536, -0.577577622532338, -0.48791491636074, -0.76794042680375, 
              -1.01026908279509, -1.85332923059836, -1.14982639900578, 1.7101670579037, 
              0.55417591428815, -0.156459274499021, -2.41179471901502, -0.587152532077427, 
              -1.5056889971988, -0.725993282169834, -0.00191579601562691, -0.126228194597038, 
              -1.54017393499449, 0.471071677765965, 0.138406308674314, -0.788979864165498, 
              -0.427530130002357, -0.888051367717288, 2.22855759487003, -0.715014173906497, 
              0.898290783677172, -0.0804162162486914, -1.2867722268873, -0.243172695499044, 
              2.05228727611747, 0.829697813009737, 1.42531189275836, -0.0917570012344349, 
              2.57925427628811, 1.44731089725349, 0.0287234236014775, 0.617211279857962, 
              -0.288025910215933, 0.175499655533322, 1.11669288274143, 1.04441648590407, 
              -0.0831880884726678, 0.711166691177088, 0.199374145395125, -0.397825177274695, 
              0.271886056463491, -1.18863508339312, 1.63773352642868, 0.617688767578227, 
              2.05535890394303, 0.139107072415206, 3.01147586246928, -0.587896772992661, 
              0.2274296901009, -0.733196819116871, 1.07901755221284, -1.22158648643784, 
              -0.417120177572807, 0.61812111527699, -0.461748891985129, 0.775465902944493, 
              0.407387465320853, -1.29122337057205, -0.476082831458428, -0.394441130065321, 
              1.50377640304075, -1.4831188284657, 0.838861705927639, -0.0867435385349706, 
              -1.01620670365949, 1.37957511337127, -0.90907945975024, -1.58954602685577, 
              0.665582187676562, 0.354137945591301, -0.530805867609347, 0.55583255925516, 
              0.789034805049238, -0.460807843115008, 0.0130696411335014, 0.726692596005126, 
              0.634230845578759, 1.76272644044229, -1.21314086498084, 0.886806137320155, 
              -0.819489204135832, 2.06748046816542, 1.52744329150748, 0.0737202047155154, 
              1.54199730861674, 2.94272319802646, 2.51647327922139, 1.49198656584683, 
              1.26071806809668, 2.09081531627381, 2.34690967510879, 0.2551393418546, 
              1.9028093104644, 0.349142700931394, -0.755578965238302, 0.0712225963648514, 
              1.01978841046284, -0.0264602377419012, 1.60290281285413, 0.161219437242462, 
              -1.31819524441149, 2.16197775172627, 1.35856994577358, -0.415420981212335, 
              3.10329589790289, -0.236143282526613, 1.30080620209022, 1.22290266673472, 
              -1.55027019796035, 0.43504694030409, 0.587281849078337, 0.546840816894851, 
              0.266269276690646, -0.189078669059665, 1.66772978574301, -1.22066422805296, 
              0.472917237827846, -0.110921121797705, 1.52962037607472, 0.276900962068184, 
              -0.756568256595817, -0.0967432351034176, 0.128157738429879, -0.378704156744568, 
              -1.09254254417137, -0.433767622222093, -0.0981791728261365, 1.2932929083319, 
              -1.82195270770148, -1.07862050093228, -0.870274568293579, 0.0993528829546328, 
              0.236929759079697, -0.434765321445817, -0.125890112534503, 0.49262219550715, 
              -0.620568227740922, 2.40168202817856, 0.661303976109065, -0.401405640332954, 
              0.888240270348817, -0.793401182520624, -1.44308487750832, -2.14201113557576, 
              -1.03875204400823, -0.700793336720911, -0.324321732021291, -0.516645420403475, 
              0.761027718810591, -0.661001730086962, -0.505879371003088, 1.07967997256403, 
              1.10023341926826, -0.686368911387721, 1.22806337184031, 0.341534870198009, 
              0.786035267719627, -0.040676865935931, -0.237637971899989, -0.686553356776805, 
              -1.6313482854735, 0.081935759903332, -0.536470216155686, -0.281616308411924, 
              -0.0390315805718262, -0.0823199922712442, -0.695579279127812, 
              -1.19383713324607, -0.351969897219707, -0.392848888767037, -1.19786741516891, 
              1.09510073401286, 1.29284430797221, -0.34434620061978, 0.677821244332609, 
              0.874680487817625, -1.52153940741947, 0.302995811051573, 0.943613304250797, 
              0.707813138000841, -0.812049818782568, -1.00615714252932, -1.20581626170861, 
              -0.500759615214477, 0.59532262994697, 2.9021795803892, 0.579367443624693, 
              -0.202710377730917, 1.63273471789721, -1.1946437684384, 2.01892354963014, 
              -0.289815058200179, -0.894219394952967, 0.149671973463865, -0.364907878360841, 
              1.06152528811791, -0.126690502377733, 0.480455074030634, 1.91328599916179, 
              0.951003962223582, -1.72326898260085, 3.22745967327178, 2.07331718790898, 
              -0.417046592117233, 0.430401109720296, -1.9056391625271, 1.82492063599459, 
              -0.999162682226509, 0.802489288238152, 0.966810122814604, 0.0040622675857396, 
              -0.640738483724594, -2.18935198082984, -0.132138889547448, -1.58943629386229, 
              -0.0900974205442366, 0.687699523616723, -0.585826112440834, 1.31649939026071, 
              -0.676643625721038, -0.680127134725243, -0.74837442954627, 0.067475284169344, 
              -0.0853616685597559, 0.963600506944043, -1.05650603268649, 0.0748555090797492, 
              1.26666104857381, 1.02110966401636, 1.79707207953448, -1.76790755189099, 
              -0.73123400107567, 1.23667485227924, 0.544212135375231, 0.622806637937041, 
              0.109460812473657, 0.0115381587460214, 0.987294886466863, 1.78070587201764, 
              0.182186136468295, -1.04375896284704, 1.37544768637092, 0.337808561857641, 
              0.497987230315214, 0.287191347347041, 1.27308081666899, 0.37654717019071, 
              1.2559924688052, -0.280316152566596, 0.603178856808507, -0.151412496680003, 
              0.948912418151989, 0.92735658368188, -0.288535611226294, -0.032384144779585, 
              2.25859619675692, 2.08784121787195, 0.0155222483743075, -0.520238993689725, 
              0.725876839534137, 0.617582972277651, 2.24353190880873, -0.343366363246844, 
              0.741283376811598, -0.561959352439227, 0.772362665144772, 0.946557951194171, 
              0.368023321408073, 0.973416422222448, 1.50408817446142, 0.936326291730018, 
              1.3582832460701, -0.0123166576388462, 0.587238850106505, -1.3856301578996, 
              1.37180777801833, 0.745260654999926, -0.197771608388272, -0.149828113787058, 
              -0.209693711033053, 0.998093645934103, 2.0330703817686, 1.26963008702761, 
              -0.572021697739703, 1.79174229823167, 1.51652835516022, 0.19563059928412, 
              -0.644890869613072, -0.538278371282091, 1.22911240110875, 0.0366339088972517, 
              1.04559925286211, 1.18164218928374, -1.22816394575698, 0.699741845496784, 
              0.807617435370164, 2.72362482870252), .Dim = c(137L, 8L))
library(rstan)
rstan_options(auto_write = TRUE)
options(mc.cores = parallel::detectCores())
stanmodel <- stan_model("soft-k-means.stan",model_name="soft-K-means")
mcmc <- sampling(stanmodel,data=list(N=N,K=K,D=D,y=y))
library(shinystan)
launch_shinystan(mcmc)

mcmc.pars <- 
library(label.switching)
ls <- label.switching(method="PRA",
                      z=N,
                      K=K,
                      mcmc=mcmc,
                      data=y)
kosugitti/bmds documentation built on May 20, 2019, 1:08 p.m.