/* JMP 13.0.0 01 */ ListBox(vertical,near,sub( TextEditBox("Simulate Responses: Revamped in JMP® 13",), TextEditBox("Ryan Lekivetz, Senior Research Statistician Developer",), OutlineBox( open(0),title("What's New?"),closeOrient(1),sub( TextEditBox("Distribution: Normal, Poisson, binomial",bullet,), TextEditBox("Relaunchable from data table",bullet,), TextEditBox("Formula creation*",bullet,))), OutlineBox( open(0),title("Simple Examples"),closeOrient(1),sub( ButtonBox(title("Normal"),scriptText("DOE(\!r\!n\!tCustom Design,\!r\!n\!t{Add Response( Maximize, \!"Y\!", ., ., . ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X1\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X2\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X3\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X4\!", 0 ), Set Random Seed( 22429408 ),\!r\!n\!tNumber of Starts( 1 ), Add Term( {1, 0} ), Add Term( {1, 1} ),\!r\!n\!tAdd Term( {2, 1} ), Add Term( {3, 1} ), Add Term( {4, 1} ),\!r\!n\!tAdd Alias Term( {1, 1}, {2, 1} ), Add Alias Term( {1, 1}, {3, 1} ),\!r\!n\!tAdd Alias Term( {1, 1}, {4, 1} ), Add Alias Term( {2, 1}, {3, 1} ),\!r\!n\!tAdd Alias Term( {2, 1}, {4, 1} ), Add Alias Term( {3, 1}, {4, 1} ),\!r\!n\!tSet Sample Size( 12 )}\!r\!n);\!r\!n"),underlineStyle(true),), ButtonBox(title("Binomial"),scriptText("DOE(\!r\!n\!tCustom Design,\!r\!n\!t{Add Response( Maximize, \!"Y\!", ., ., . ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X1\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X2\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X3\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X4\!", 0 ), Set Random Seed( 22429408 ),\!r\!n\!tNumber of Starts( 1 ), Add Term( {1, 0} ), Add Term( {1, 1} ),\!r\!n\!tAdd Term( {2, 1} ), Add Term( {3, 1} ), Add Term( {4, 1} ),\!r\!n\!tAdd Alias Term( {1, 1}, {2, 1} ), Add Alias Term( {1, 1}, {3, 1} ),\!r\!n\!tAdd Alias Term( {1, 1}, {4, 1} ), Add Alias Term( {2, 1}, {3, 1} ),\!r\!n\!tAdd Alias Term( {2, 1}, {4, 1} ), Add Alias Term( {3, 1}, {4, 1} ),\!r\!n\!tSet Sample Size( 12 ), Simulate Responses( 1, 12345, Random Binomial(5) ),\!r\!n\!tMake Design, Make Table}\!r\!n);\!r\!n"),underlineStyle(true),), ButtonBox(title("Poisson"),scriptText("\!r\!nDOE(\!r\!n\!tCustom Design,\!r\!n\!t{Add Response( Maximize, \!"Y\!", ., ., . ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X1\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X2\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X3\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X4\!", 0 ), Set Random Seed( 22429408 ),\!r\!n\!tNumber of Starts( 1 ), Add Term( {1, 0} ), Add Term( {1, 1} ),\!r\!n\!tAdd Term( {2, 1} ), Add Term( {3, 1} ), Add Term( {4, 1} ),\!r\!n\!tAdd Alias Term( {1, 1}, {2, 1} ), Add Alias Term( {1, 1}, {3, 1} ),\!r\!n\!tAdd Alias Term( {1, 1}, {4, 1} ), Add Alias Term( {2, 1}, {3, 1} ),\!r\!n\!tAdd Alias Term( {2, 1}, {4, 1} ), Add Alias Term( {3, 1}, {4, 1} ),\!r\!n\!tSet Sample Size( 12 ), Simulate Responses( 1, 12345, Random Poisson() ),\!r\!n\!tMake Design, Make Table}\!r\!n);\!r\!n"),underlineStyle(true),), ButtonBox(title("Close all"),scriptText("Close All( Data Tables, NoSave );\!r\!nClose All( Reports, NoSave );"),underlineStyle(true),))), OutlineBox( open(0),title("Definitive Screening Designs"),closeOrient(1),sub( ListBox(vertical,near,sub( TextEditBox("DSD Simulate has additional functionality",bullet,), TextEditBox("Model controls to add terms",wrapWidth(163),bullet,), TextEditBox("Can perform \!"what if?\!" scenarios",wrapWidth(184),bullet,), TextEditBox("Examine different fitting techniques",bullet,))), ButtonBox(title("6 factor DSD"),scriptText("DOE(\!r\!n\!tDefinitive Screening Design,\!r\!n\!t{Add Response( Maximize, \!"Y\!", ., ., . ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X1\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X2\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X3\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X4\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X5\!", 0 ),\!r\!n\!tAdd Factor( Continuous, -1, 1, \!"X6\!", 0 ), Show Blocking Options( 0, 0 ),\!r\!n\!tNumber of Extra Runs( 4 ), Set Random Seed( 908373131 ), Make Design}\!r\!n)"),underlineStyle(true),), OutlineBox( open(0),title("Compare Fitting Techniques"),closeOrient(1),sub( OutlineBox( open(1),title("Simple Model"),closeOrient(1),sub( TextEditBox("Model:\!r\!n1 + 2X1 + 3X2 + 4X5 + 2*X1*X2 + 3*X1*X5 + 4*X5*X5",), ButtonBox(title("data table - simple model"),scriptText("New Table( \!"Definitive Screening Design response for simulation Model1\!",\!r\!n\!tAdd Rows( 17 ),\!r\!n\!tNew Table Variable( \!"Design\!", \!"Definitive Screening Design\!" ),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Fit Definitive Screening\!",\!r\!n\!t\!tFit Definitive Screening( X( :X1, :X2, :X3, :X4, :X5, :X6 ), Y( :Y ) )\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Evaluate Design\!",\!r\!n\!t\!tDOE( Evaluate Design, X( :X1, :X2, :X3, :X4, :X5, :X6 ) )\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"DOE Dialog\!",\!r\!n\!t\!tDOE(\!r\!n\!t\!t\!tDefinitive Screening Design,\!r\!n\!t\!t\!t{Add Response( Maximize, \!"Y\!", ., ., . ),\!r\!n\!t\!t\!tAdd Factor( Continuous, -1, 1, \!"X1\!", 0 ),\!r\!n\!t\!t\!tAdd Factor( Continuous, -1, 1, \!"X2\!", 0 ),\!r\!n\!t\!t\!tAdd Factor( Continuous, -1, 1, \!"X3\!", 0 ),\!r\!n\!t\!t\!tAdd Factor( Continuous, -1, 1, \!"X4\!", 0 ),\!r\!n\!t\!t\!tAdd Factor( Continuous, -1, 1, \!"X5\!", 0 ),\!r\!n\!t\!t\!tAdd Factor( Continuous, -1, 1, \!"X6\!", 0 ), Show Blocking Options( 0, 0 ),\!r\!n\!t\!t\!tNumber of Extra Runs( 4 ), Set Random Seed( 908373131 ), Make Design,\!r\!n\!t\!t\!tSimulate Responses( 1, Random Seed( -1 ) )}\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"DOE Simulate\!",\!r\!n\!t\!tNames Default To Here( 1 );\!r\!n\!t\!t_mvratio = [1, 1];\!r\!n\!t\!t_antsigma = 1;\!r\!n\!t\!t_antcoeff = [1, 1, 1, 1, 1, 1, 1];\!r\!n\!t\!trbcallback = Function( {t},\!r\!n\!t\!t\!t{idx = t << get, ref = t << parent},\!r\!n\!t\!t\!tMatch( idx,\!r\!n\!t\!t\!t\!t3,\!r\!n\!t\!t\!t\!t\!tref[If Box( 1 )] << set( 0 );\!r\!n\!t\!t\!t\!t\!tref[If Box( 2 )] << set( 0 );\!r\!n\!t\!t\!t\!t\!tref[If Box( 3 )] << set( 0 );\!r\!n\!t\!t\!t\!t\!tref[If Box( 4 )] << set( 0 );,\!r\!n\!t\!t\!t\!t2,\!r\!n\!t\!t\!t\!t\!tref[If Box( 1 )] << set( 0 );\!r\!n\!t\!t\!t\!t\!tref[If Box( 2 )] << set( 0 );\!r\!n\!t\!t\!t\!t\!tref[If Box( 3 )] << set( 1 );\!r\!n\!t\!t\!t\!t\!tref[If Box( 4 )] << set( 1 );,\!r\!n\!t\!t\!t\!tref[If Box( 1 )] << set( 1 );\!r\!n\!t\!t\!t\!tref[If Box( 2 )] << set( 1 );\!r\!n\!t\!t\!t\!tref[If Box( 3 )] << set( 0 );\!r\!n\!t\!t\!t\!tref[If Box( 4 )] << set( 0 );\!r\!n\!t\!t\!t)\!r\!n\!t\!t);\!r\!n\!t\!t_nw = New Window( \!"Model\!",\!r\!n\!t\!t\!t< 1,\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tIf( k <= lvl / alllvl[1],\!r\!n\!t\!t\!t\!t\!t\!t\!t\!t\!t1,\!r\!n\!t\!t\!t\!t\!t\!t\!t\!t\!t-1\!r\!n\!t\!t\!t\!t\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tIf( Mod( k, 2 ), 1, -1 )\!r\!n\!t\!t\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t\!t,\!r\!n\!t\!t\!t\!t\!t\!teffstrlst[1] = tmpstr;\!r\!n\!t\!t\!t\!t\!t\!tcoeff |/= 1;\!r\!n\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t,\!r\!n\!t\!t\!t\!t\!teffstrlst[1] = Substitute(\!r\!n\!t\!t\!t\!t\!t\!t\!tLeft( effstr, Contains( effstr, \!"&\!" ) - 1 ),\!r\!n\!t\!t\!t\!t\!t\!t\!":\!", \!"\!",\!r\!n\!t\!t\!t\!t\!t\!t\!" \!", \!"\!"\!r\!n\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t\!tcoeff |/= 1;\!r\!n\!t\!t\!t\!t)\!r\!n\!t\!t\!t);\!r\!n\!t\!t\!tFor( k = 1, k <= N Items( effstrlst ), k++,\!r\!n\!t\!t\!t\!tInsert Into( colnm, Name Expr( X ) )\!r\!n\!t\!t\!t);\!r\!n\!t\!t\!tEval List( {effstrlst, coeff, colnm} );\!r\!n\!t\!t);\!r\!n\!t\!ttmp = dt << getproperty( \!"Fit Definitive Screening\!" );\!r\!n\!t\!tefflist = Extract Expr( tmp, X( Wild List() ) );\!r\!n\!t\!tneweff = {};\!r\!n\!t\!tnewcoeff = [];\!r\!n\!t\!teffAA = Associative Array();\!r\!n\!t\!trndEff = {};\!r\!n\!t\!tFor( i = 1, i <= N Arg( efflist ), i++,\!r\!n\!t\!t\!tIf( Char( Arg( Arg( efflist, i ), 2 ) ) == \!"Random\!",\!r\!n\!t\!t\!t\!tInsert Into( rndEff, Char( Arg( Arg( efflist, i ) ) ) ),\!r\!n\!t\!t\!t\!t{tmpeff, tmpcoeff, coeffnm} = setupCoeff( Arg( efflist, i ), dt );\!r\!n\!t\!t\!t\!teffAA << Insert( Substitute( Char( coeffnm[1] ), \!" \!", \!"\!" ), tmpeff );\!r\!n\!t\!t\!t\!tInsert Into( neweff, tmpeff );\!r\!n\!t\!t\!t\!tnewcoeff |/= tmpcoeff;\!r\!n\!t\!t\!t)\!r\!n\!t\!t);\!r\!n\!t\!tintex = Extract Expr( tmp, NoIntercept( Wild List() ) );\!r\!n\!t\!tIf( Is Empty( intex ),\!r\!n\!t\!t\!tintex = Extract Expr( tmp, NoIntercept );\!r\!n\!t\!t\!tIf( Is Empty( intex ),\!r\!n\!t\!t\!t\!tInsert Into( neweff, \!"Intercept\!", 1 )\!r\!n\!t\!t\!t);\!r\!n\!t\!t,\!r\!n\!t\!t\!tIf( N Arg( intex ) & Arg( intex ) == 0,\!r\!n\!t\!t\!t\!tInsert Into( neweff, \!"Intercept\!", 1 )\!r\!n\!t\!t\!t)\!r\!n\!t\!t);\!r\!n\!t\!tnewcoeff = If(\!r\!n\!t\!t\!tTry(\!r\!n\!t\!t\!t\!t_antcoeff;\!r\!n\!t\!t\!t\!t1;\!r\!n\!t\!t\!t,\!r\!n\!t\!t\!t\!t0\!r\!n\!t\!t\!t) & N Row( _antcoeff ) == N Items( neweff )\!r\!n\!t\!t,\!r\!n\!t\!t\!t_antcoeff,\!r\!n\!t\!t\!tIf( neweff[1] == \!"Intercept\!", [1], [] ) |/ newcoeff\!r\!n\!t\!t);\!r\!n\!t\!t_nw[Table Box( 1 )] << append( String Col Box( \!"Effects\!", neweff ) );\!r\!n\!t\!trespvec = getResponse( dt );\!r\!n\!t\!tIf( N Row( respvec ),\!r\!n\!t\!t\!tFor( i = 1, i <= N Row( respvec ), i++,\!r\!n\!t\!t\!t\!t_nw[Table Box( 1 )] << append(\!r\!n\!t\!t\!t\!t\!tNumber Col Edit Box(\!r\!n\!t\!t\!t\!t\!t\!tColumn( dt, respvec[i] ) << getname,\!r\!n\!t\!t\!t\!t\!t\!tnewcoeff\!r\!n\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t_nw[Lineup Box( 4 )][1] << append(\!r\!n\!t\!t\!t\!t\!tNumber Edit Box( Try( _antsigma, 1 ), 5, <= 2,\!r\!n\!t\!t\!t\!t\!t\!tnck = NChooseK Matrix(\!r\!n\!t\!t\!t\!t\!t\!t\!tN Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!tIf( st + 1 > N Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tN Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tst + 1\!r\!n\!t\!t\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t\!t\!t_bbxUtil( lst, nck, tbref, nbx );\!r\!n\!t\!t\!t\!t\!t);,\!r\!n\!t\!t\!t\!tN Items( idx ) > 1 & (st = t << getmenuchoice ; st),\!r\!n\!t\!t\!t\!t\!tlst = checkDesRole( (ref << getitems)[idx] );\!r\!n\!t\!t\!t\!t\!tIf( N Items( lst ) > 1,\!r\!n\!t\!t\!t\!t\!t\!tnck = NChooseK Matrix(\!r\!n\!t\!t\!t\!t\!t\!t\!tN Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!tIf( st + 1 > N Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tN Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tst + 1\!r\!n\!t\!t\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t\!t\!t_bbxUtil( lst, nck, tbref, nbx );\!r\!n\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t)\!r\!n\!t\!t) ; _bbxRSMFunct = Function( {t},\!r\!n\!t\!t\!t{nck, ref = (t << topparent)[listboxbox( 1 )], lst = ref << getitems,\!r\!n\!t\!t\!ttbref = (t << topparent)[Table Box( 1 )][String Col Box( 1 )], nbx = (\!r\!n\!t\!t\!ttbref << parent) << xpath( \!"//NumberColEditBox\!" )},\!r\!n\!t\!t\!tlst = checkDesRole( lst );\!r\!n\!t\!t\!tIf( N Items( lst ) > 1,\!r\!n\!t\!t\!t\!tnck = NChooseK Matrix( N Items( lst ), 2 );\!r\!n\!t\!t\!t\!tnck |/= Repeat( Index( 1, N Items( lst ) ), 2 )`;\!r\!n\!t\!t\!t\!t_bbxUtil( lst, nck, tbref, nbx );\!r\!n\!t\!t\!t);\!r\!n\!t\!t) ; _bbxPowFunct = Function( {t},\!r\!n\!t\!t\!t{lst, pow, st = t << getmenuchoice, ref = (t << topparent)[\!r\!n\!t\!t\!tlistboxbox( 1 )], idx = ref << getselectedindices, tbref = (t <<\!r\!n\!t\!t\!ttopparent)[Table Box( 1 )][String Col Box( 1 )], nbx = (tbref << parent)\!r\!n\!t\!t\!t << xpath( \!"//NumberColEditBox\!" )},\!r\!n\!t\!t\!tIf( st,\!r\!n\!t\!t\!t\!tlst = If( N Items( idx ),\!r\!n\!t\!t\!t\!t\!t(ref << getitems)[idx],\!r\!n\!t\!t\!t\!t\!tref << getitems\!r\!n\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!tlst = checkDesRole( lst );\!r\!n\!t\!t\!t\!tIf( N Items( lst ),\!r\!n\!t\!t\!t\!t\!tpow = Repeat( Index( 1, N Items( lst ) ), st + 1 )`;\!r\!n\!t\!t\!t\!t\!t_bbxUtil( lst, pow, tbref, nbx );\!r\!n\!t\!t\!t\!t);\!r\!n\!t\!t\!t,\!r\!n\!t\!t\!t\!tDialog( \!"Remember to select power.\!" )\!r\!n\!t\!t\!t)\!r\!n\!t\!t) ; _bbxRemove = Function( {t},\!r\!n\!t\!t\!t{i, k, delEff, _ky, rstrt, strt = 1, vec = [], idx =\!r\!n\!t\!t\!tLoc( Is Missing( dsdneweff ), 1 ), ref = (t << topparent)[Table Box( 1 )\!r\!n\!t\!t\!t], ridx = ref << getselectedrows},\!r\!n\!t\!t\!tIf( Any( idx ),\!r\!n\!t\!t\!t\!tvec |/= 0;\!r\!n\!t\!t\!t\!tstrt++;\!r\!n\!t\!t\!t);\!r\!n\!t\!t\!tFor( i = strt, i <= N Items( dsdneweff ), i++,\!r\!n\!t\!t\!t\!tvec |/= J( 1, N Col( vec ), 0 );\!r\!n\!t\!t\!t\!tvec ||= J( N Row( vec ) - 1, N Items( effAA[dsdneweff[i]] ), 0 ) |/\!r\!n\!t\!t\!t\!tJ( 1, N Items( effAA[dsdneweff[i]] ), If( i <= _termCount, 0, 1 ) );\!r\!n\!t\!t\!t);\!r\!n\!t\!t\!tIf( All( !vec[0, ridx] ),\!r\!n\!t\!t\!t\!tDialog( \!"Main effects cannot be removed.\!" ),\!r\!n\!t\!t\!t\!tstrt = Ceiling( Loc( vec[0, ridx] ) / N Row( ridx ) );\!r\!n\!t\!t\!t\!t_ky = Associative Array( strt ) << getkeys;\!r\!n\!t\!t\!t\!tdelEff = Remove From( dsdneweff, _ky );\!r\!n\!t\!t\!t\!teffAA << Remove( Associative Array( delEff ) );\!r\!n\!t\!t\!t\!trstrt = Mod( Loc( vec[strt, 0] ), N Col( vec ) );\!r\!n\!t\!t\!t\!trstrt[Loc( rstrt == 0 )] = N Col( vec );\!r\!n\!t\!t\!t\!trstrt = Associative Array( rstrt ) << getkeys;\!r\!n\!t\!t\!t\!tFor( k = N Items( rstrt ), k >= 1, k--,\!r\!n\!t\!t\!t\!t\!tref << deleterow( rstrt[k] )\!r\!n\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!tref << setselectedrows( [] );\!r\!n\!t\!t\!t);\!r\!n\!t\!t) ; _nw[Lineup Box( 1 )] << prepend(\!r\!n\!t\!t\!tOutline Box( \!"Factors\!",\!r\!n\!t\!t\!t\!t< 1,\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tIf( k <= lvl / alllvl[1],\!r\!n\!t\!t\!t\!t\!t\!t\!t\!t\!t1,\!r\!n\!t\!t\!t\!t\!t\!t\!t\!t\!t-1\!r\!n\!t\!t\!t\!t\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tIf( Mod( k, 2 ), 1, -1 )\!r\!n\!t\!t\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t\!t,\!r\!n\!t\!t\!t\!t\!t\!teffstrlst[1] = tmpstr;\!r\!n\!t\!t\!t\!t\!t\!tcoeff |/= 1;\!r\!n\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t,\!r\!n\!t\!t\!t\!t\!teffstrlst[1] = Substitute(\!r\!n\!t\!t\!t\!t\!t\!t\!tLeft( effstr, Contains( effstr, \!"&\!" ) - 1 ),\!r\!n\!t\!t\!t\!t\!t\!t\!":\!", \!"\!",\!r\!n\!t\!t\!t\!t\!t\!t\!" \!", \!"\!"\!r\!n\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t\!tcoeff |/= 1;\!r\!n\!t\!t\!t\!t)\!r\!n\!t\!t\!t);\!r\!n\!t\!t\!tFor( k = 1, k <= N Items( effstrlst ), k++,\!r\!n\!t\!t\!t\!tInsert Into( colnm, Name Expr( X ) )\!r\!n\!t\!t\!t);\!r\!n\!t\!t\!tEval List( {effstrlst, coeff, colnm} );\!r\!n\!t\!t);\!r\!n\!t\!ttmp = dt << getproperty( \!"Fit Definitive Screening\!" );\!r\!n\!t\!tefflist = Extract Expr( tmp, X( Wild List() ) );\!r\!n\!t\!tneweff = {};\!r\!n\!t\!tnewcoeff = [];\!r\!n\!t\!teffAA = Associative Array();\!r\!n\!t\!trndEff = {};\!r\!n\!t\!tFor( i = 1, i <= N Arg( efflist ), i++,\!r\!n\!t\!t\!tIf( Char( Arg( Arg( efflist, i ), 2 ) ) == \!"Random\!",\!r\!n\!t\!t\!t\!tInsert Into( rndEff, Char( Arg( Arg( efflist, i ) ) ) ),\!r\!n\!t\!t\!t\!t{tmpeff, tmpcoeff, coeffnm} = setupCoeff( Arg( efflist, i ), dt );\!r\!n\!t\!t\!t\!teffAA << Insert( Substitute( Char( coeffnm[1] ), \!" \!", \!"\!" ), tmpeff );\!r\!n\!t\!t\!t\!tInsert Into( neweff, tmpeff );\!r\!n\!t\!t\!t\!tnewcoeff |/= tmpcoeff;\!r\!n\!t\!t\!t)\!r\!n\!t\!t);\!r\!n\!t\!tintex = Extract Expr( tmp, NoIntercept( Wild List() ) );\!r\!n\!t\!tIf( Is Empty( intex ),\!r\!n\!t\!t\!tintex = Extract Expr( tmp, NoIntercept );\!r\!n\!t\!t\!tIf( Is Empty( intex ),\!r\!n\!t\!t\!t\!tInsert Into( neweff, \!"Intercept\!", 1 )\!r\!n\!t\!t\!t);\!r\!n\!t\!t,\!r\!n\!t\!t\!tIf( N Arg( intex ) & Arg( intex ) == 0,\!r\!n\!t\!t\!t\!tInsert Into( neweff, \!"Intercept\!", 1 )\!r\!n\!t\!t\!t)\!r\!n\!t\!t);\!r\!n\!t\!tnewcoeff = If(\!r\!n\!t\!t\!tTry(\!r\!n\!t\!t\!t\!t_antcoeff;\!r\!n\!t\!t\!t\!t1;\!r\!n\!t\!t\!t,\!r\!n\!t\!t\!t\!t0\!r\!n\!t\!t\!t) & N Row( _antcoeff ) == N Items( neweff )\!r\!n\!t\!t,\!r\!n\!t\!t\!t_antcoeff,\!r\!n\!t\!t\!tIf( neweff[1] == \!"Intercept\!", [1], [] ) |/ newcoeff\!r\!n\!t\!t);\!r\!n\!t\!t_nw[Table Box( 1 )] << append( String Col Box( \!"Effects\!", neweff ) );\!r\!n\!t\!trespvec = getResponse( dt );\!r\!n\!t\!tIf( N Row( respvec ),\!r\!n\!t\!t\!tFor( i = 1, i <= N Row( respvec ), i++,\!r\!n\!t\!t\!t\!t_nw[Table Box( 1 )] << append(\!r\!n\!t\!t\!t\!t\!tNumber Col Edit Box(\!r\!n\!t\!t\!t\!t\!t\!tColumn( dt, respvec[i] ) << getname,\!r\!n\!t\!t\!t\!t\!t\!tnewcoeff\!r\!n\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t_nw[Lineup Box( 4 )][1] << append(\!r\!n\!t\!t\!t\!t\!tNumber Edit Box( Try( _antsigma, 1 ), 5, <= 2,\!r\!n\!t\!t\!t\!t\!t\!tnck = NChooseK Matrix(\!r\!n\!t\!t\!t\!t\!t\!t\!tN Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!tIf( st + 1 > N Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tN Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tst + 1\!r\!n\!t\!t\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t\!t\!t_bbxUtil( lst, nck, tbref, nbx );\!r\!n\!t\!t\!t\!t\!t);,\!r\!n\!t\!t\!t\!tN Items( idx ) > 1 & (st = t << getmenuchoice ; st),\!r\!n\!t\!t\!t\!t\!tlst = checkDesRole( (ref << getitems)[idx] );\!r\!n\!t\!t\!t\!t\!tIf( N Items( lst ) > 1,\!r\!n\!t\!t\!t\!t\!t\!tnck = NChooseK Matrix(\!r\!n\!t\!t\!t\!t\!t\!t\!tN Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!tIf( st + 1 > N Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tN Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tst + 1\!r\!n\!t\!t\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t\!t\!t_bbxUtil( lst, nck, tbref, nbx );\!r\!n\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t)\!r\!n\!t\!t) ; _bbxRSMFunct = Function( {t},\!r\!n\!t\!t\!t{nck, ref = (t << topparent)[listboxbox( 1 )], lst = ref << getitems,\!r\!n\!t\!t\!ttbref = (t << topparent)[Table Box( 1 )][String Col Box( 1 )], nbx = (\!r\!n\!t\!t\!ttbref << parent) << xpath( \!"//NumberColEditBox\!" )},\!r\!n\!t\!t\!tlst = checkDesRole( lst );\!r\!n\!t\!t\!tIf( N Items( lst ) > 1,\!r\!n\!t\!t\!t\!tnck = NChooseK Matrix( N Items( lst ), 2 );\!r\!n\!t\!t\!t\!tnck |/= Repeat( Index( 1, N Items( lst ) ), 2 )`;\!r\!n\!t\!t\!t\!t_bbxUtil( lst, nck, tbref, nbx );\!r\!n\!t\!t\!t);\!r\!n\!t\!t) ; _bbxPowFunct = Function( {t},\!r\!n\!t\!t\!t{lst, pow, st = t << getmenuchoice, ref = (t << topparent)[\!r\!n\!t\!t\!tlistboxbox( 1 )], idx = ref << getselectedindices, tbref = (t <<\!r\!n\!t\!t\!ttopparent)[Table Box( 1 )][String Col Box( 1 )], nbx = (tbref << parent)\!r\!n\!t\!t\!t << xpath( \!"//NumberColEditBox\!" )},\!r\!n\!t\!t\!tIf( st,\!r\!n\!t\!t\!t\!tlst = If( N Items( idx ),\!r\!n\!t\!t\!t\!t\!t(ref << getitems)[idx],\!r\!n\!t\!t\!t\!t\!tref << getitems\!r\!n\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!tlst = checkDesRole( lst );\!r\!n\!t\!t\!t\!tIf( N Items( lst ),\!r\!n\!t\!t\!t\!t\!tpow = Repeat( Index( 1, N Items( lst ) ), st + 1 )`;\!r\!n\!t\!t\!t\!t\!t_bbxUtil( lst, pow, tbref, nbx );\!r\!n\!t\!t\!t\!t);\!r\!n\!t\!t\!t,\!r\!n\!t\!t\!t\!tDialog( \!"Remember to select power.\!" )\!r\!n\!t\!t\!t)\!r\!n\!t\!t) ; _bbxRemove = Function( {t},\!r\!n\!t\!t\!t{i, k, delEff, _ky, rstrt, strt = 1, vec = [], idx =\!r\!n\!t\!t\!tLoc( Is Missing( dsdneweff ), 1 ), ref = (t << topparent)[Table Box( 1 )\!r\!n\!t\!t\!t], ridx = ref << getselectedrows},\!r\!n\!t\!t\!tIf( Any( idx ),\!r\!n\!t\!t\!t\!tvec |/= 0;\!r\!n\!t\!t\!t\!tstrt++;\!r\!n\!t\!t\!t);\!r\!n\!t\!t\!tFor( i = strt, i <= N Items( dsdneweff ), i++,\!r\!n\!t\!t\!t\!tvec |/= J( 1, N Col( vec ), 0 );\!r\!n\!t\!t\!t\!tvec ||= J( N Row( vec ) - 1, N Items( effAA[dsdneweff[i]] ), 0 ) |/\!r\!n\!t\!t\!t\!tJ( 1, N Items( effAA[dsdneweff[i]] ), If( i <= _termCount, 0, 1 ) );\!r\!n\!t\!t\!t);\!r\!n\!t\!t\!tIf( All( !vec[0, ridx] ),\!r\!n\!t\!t\!t\!tDialog( \!"Main effects cannot be removed.\!" ),\!r\!n\!t\!t\!t\!tstrt = Ceiling( Loc( vec[0, ridx] ) / N Row( ridx ) );\!r\!n\!t\!t\!t\!t_ky = Associative Array( strt ) << getkeys;\!r\!n\!t\!t\!t\!tdelEff = Remove From( dsdneweff, _ky );\!r\!n\!t\!t\!t\!teffAA << Remove( Associative Array( delEff ) );\!r\!n\!t\!t\!t\!trstrt = Mod( Loc( vec[strt, 0] ), N Col( vec ) );\!r\!n\!t\!t\!t\!trstrt[Loc( rstrt == 0 )] = N Col( vec );\!r\!n\!t\!t\!t\!trstrt = Associative Array( rstrt ) << getkeys;\!r\!n\!t\!t\!t\!tFor( k = N Items( rstrt ), k >= 1, k--,\!r\!n\!t\!t\!t\!t\!tref << deleterow( rstrt[k] )\!r\!n\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!tref << setselectedrows( [] );\!r\!n\!t\!t\!t);\!r\!n\!t\!t) ; _nw[Lineup Box( 1 )] << prepend(\!r\!n\!t\!t\!tOutline Box( \!"Factors\!",\!r\!n\!t\!t\!t\!t< 1,\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tIf( k <= lvl / alllvl[1],\!r\!n\!t\!t\!t\!t\!t\!t\!t\!t\!t1,\!r\!n\!t\!t\!t\!t\!t\!t\!t\!t\!t-1\!r\!n\!t\!t\!t\!t\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tIf( Mod( k, 2 ), 1, -1 )\!r\!n\!t\!t\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t\!t,\!r\!n\!t\!t\!t\!t\!t\!teffstrlst[1] = tmpstr;\!r\!n\!t\!t\!t\!t\!t\!tcoeff |/= 1;\!r\!n\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t,\!r\!n\!t\!t\!t\!t\!teffstrlst[1] = Substitute(\!r\!n\!t\!t\!t\!t\!t\!t\!tLeft( effstr, Contains( effstr, \!"&\!" ) - 1 ),\!r\!n\!t\!t\!t\!t\!t\!t\!":\!", \!"\!",\!r\!n\!t\!t\!t\!t\!t\!t\!" \!", \!"\!"\!r\!n\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t\!tcoeff |/= 1;\!r\!n\!t\!t\!t\!t)\!r\!n\!t\!t\!t);\!r\!n\!t\!t\!tFor( k = 1, k <= N Items( effstrlst ), k++,\!r\!n\!t\!t\!t\!tInsert Into( colnm, Name Expr( X ) )\!r\!n\!t\!t\!t);\!r\!n\!t\!t\!tEval List( {effstrlst, coeff, colnm} );\!r\!n\!t\!t);\!r\!n\!t\!ttmp = dt << getproperty( \!"Fit Definitive Screening\!" );\!r\!n\!t\!tefflist = Extract Expr( tmp, X( Wild List() ) );\!r\!n\!t\!tneweff = {};\!r\!n\!t\!tnewcoeff = [];\!r\!n\!t\!teffAA = Associative Array();\!r\!n\!t\!trndEff = {};\!r\!n\!t\!tFor( i = 1, i <= N Arg( efflist ), i++,\!r\!n\!t\!t\!tIf( Char( Arg( Arg( efflist, i ), 2 ) ) == \!"Random\!",\!r\!n\!t\!t\!t\!tInsert Into( rndEff, Char( Arg( Arg( efflist, i ) ) ) ),\!r\!n\!t\!t\!t\!t{tmpeff, tmpcoeff, coeffnm} = setupCoeff( Arg( efflist, i ), dt );\!r\!n\!t\!t\!t\!teffAA << Insert( Substitute( Char( coeffnm[1] ), \!" \!", \!"\!" ), tmpeff );\!r\!n\!t\!t\!t\!tInsert Into( neweff, tmpeff );\!r\!n\!t\!t\!t\!tnewcoeff |/= tmpcoeff;\!r\!n\!t\!t\!t)\!r\!n\!t\!t);\!r\!n\!t\!tintex = Extract Expr( tmp, NoIntercept( Wild List() ) );\!r\!n\!t\!tIf( Is Empty( intex ),\!r\!n\!t\!t\!tintex = Extract Expr( tmp, NoIntercept );\!r\!n\!t\!t\!tIf( Is Empty( intex ),\!r\!n\!t\!t\!t\!tInsert Into( neweff, \!"Intercept\!", 1 )\!r\!n\!t\!t\!t);\!r\!n\!t\!t,\!r\!n\!t\!t\!tIf( N Arg( intex ) & Arg( intex ) == 0,\!r\!n\!t\!t\!t\!tInsert Into( neweff, \!"Intercept\!", 1 )\!r\!n\!t\!t\!t)\!r\!n\!t\!t);\!r\!n\!t\!tnewcoeff = If(\!r\!n\!t\!t\!tTry(\!r\!n\!t\!t\!t\!t_antcoeff;\!r\!n\!t\!t\!t\!t1;\!r\!n\!t\!t\!t,\!r\!n\!t\!t\!t\!t0\!r\!n\!t\!t\!t) & N Row( _antcoeff ) == N Items( neweff )\!r\!n\!t\!t,\!r\!n\!t\!t\!t_antcoeff,\!r\!n\!t\!t\!tIf( neweff[1] == \!"Intercept\!", [1], [] ) |/ newcoeff\!r\!n\!t\!t);\!r\!n\!t\!t_nw[Table Box( 1 )] << append( String Col Box( \!"Effects\!", neweff ) );\!r\!n\!t\!trespvec = getResponse( dt );\!r\!n\!t\!tIf( N Row( respvec ),\!r\!n\!t\!t\!tFor( i = 1, i <= N Row( respvec ), i++,\!r\!n\!t\!t\!t\!t_nw[Table Box( 1 )] << append(\!r\!n\!t\!t\!t\!t\!tNumber Col Edit Box(\!r\!n\!t\!t\!t\!t\!t\!tColumn( dt, respvec[i] ) << getname,\!r\!n\!t\!t\!t\!t\!t\!tnewcoeff\!r\!n\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t_nw[Lineup Box( 4 )][1] << append(\!r\!n\!t\!t\!t\!t\!tNumber Edit Box( Try( _antsigma, 1 ), 5, <= 2,\!r\!n\!t\!t\!t\!t\!t\!tnck = NChooseK Matrix(\!r\!n\!t\!t\!t\!t\!t\!t\!tN Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!tIf( st + 1 > N Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tN Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tst + 1\!r\!n\!t\!t\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t\!t\!t_bbxUtil( lst, nck, tbref, nbx );\!r\!n\!t\!t\!t\!t\!t);,\!r\!n\!t\!t\!t\!tN Items( idx ) > 1 & (st = t << getmenuchoice ; st),\!r\!n\!t\!t\!t\!t\!tlst = checkDesRole( (ref << getitems)[idx] );\!r\!n\!t\!t\!t\!t\!tIf( N Items( lst ) > 1,\!r\!n\!t\!t\!t\!t\!t\!tnck = NChooseK Matrix(\!r\!n\!t\!t\!t\!t\!t\!t\!tN Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!tIf( st + 1 > N Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tN Items( lst ),\!r\!n\!t\!t\!t\!t\!t\!t\!t\!tst + 1\!r\!n\!t\!t\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!t\!t\!t_bbxUtil( lst, nck, tbref, nbx );\!r\!n\!t\!t\!t\!t\!t);\!r\!n\!t\!t\!t)\!r\!n\!t\!t) ; _bbxRSMFunct = Function( {t},\!r\!n\!t\!t\!t{nck, ref = (t << topparent)[listboxbox( 1 )], lst = ref << getitems,\!r\!n\!t\!t\!ttbref = (t << topparent)[Table Box( 1 )][String Col Box( 1 )], nbx = (\!r\!n\!t\!t\!ttbref << parent) << xpath( \!"//NumberColEditBox\!" )},\!r\!n\!t\!t\!tlst = checkDesRole( lst );\!r\!n\!t\!t\!tIf( N Items( lst ) > 1,\!r\!n\!t\!t\!t\!tnck = NChooseK Matrix( N Items( lst ), 2 );\!r\!n\!t\!t\!t\!tnck |/= Repeat( Index( 1, N Items( lst ) ), 2 )`;\!r\!n\!t\!t\!t\!t_bbxUtil( lst, nck, tbref, nbx );\!r\!n\!t\!t\!t);\!r\!n\!t\!t) ; _bbxPowFunct = Function( {t},\!r\!n\!t\!t\!t{lst, pow, st = t << getmenuchoice, ref = (t << topparent)[\!r\!n\!t\!t\!tlistboxbox( 1 )], idx = ref << getselectedindices, tbref = (t <<\!r\!n\!t\!t\!ttopparent)[Table Box( 1 )][String Col Box( 1 )], nbx = (tbref << parent)\!r\!n\!t\!t\!t << xpath( \!"//NumberColEditBox\!" )},\!r\!n\!t\!t\!tIf( st,\!r\!n\!t\!t\!t\!tlst = If( N Items( idx ),\!r\!n\!t\!t\!t\!t\!t(ref << getitems)[idx],\!r\!n\!t\!t\!t\!t\!tref << getitems\!r\!n\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!tlst = checkDesRole( lst );\!r\!n\!t\!t\!t\!tIf( N Items( lst ),\!r\!n\!t\!t\!t\!t\!tpow = Repeat( Index( 1, N Items( lst ) ), st + 1 )`;\!r\!n\!t\!t\!t\!t\!t_bbxUtil( lst, pow, tbref, nbx );\!r\!n\!t\!t\!t\!t);\!r\!n\!t\!t\!t,\!r\!n\!t\!t\!t\!tDialog( \!"Remember to select power.\!" )\!r\!n\!t\!t\!t)\!r\!n\!t\!t) ; _bbxRemove = Function( {t},\!r\!n\!t\!t\!t{i, k, delEff, _ky, rstrt, strt = 1, vec = [], idx =\!r\!n\!t\!t\!tLoc( Is Missing( dsdneweff ), 1 ), ref = (t << topparent)[Table Box( 1 )\!r\!n\!t\!t\!t], ridx = ref << getselectedrows},\!r\!n\!t\!t\!tIf( Any( idx ),\!r\!n\!t\!t\!t\!tvec |/= 0;\!r\!n\!t\!t\!t\!tstrt++;\!r\!n\!t\!t\!t);\!r\!n\!t\!t\!tFor( i = strt, i <= N Items( dsdneweff ), i++,\!r\!n\!t\!t\!t\!tvec |/= J( 1, N Col( vec ), 0 );\!r\!n\!t\!t\!t\!tvec ||= J( N Row( vec ) - 1, N Items( effAA[dsdneweff[i]] ), 0 ) |/\!r\!n\!t\!t\!t\!tJ( 1, N Items( effAA[dsdneweff[i]] ), If( i <= _termCount, 0, 1 ) );\!r\!n\!t\!t\!t);\!r\!n\!t\!t\!tIf( All( !vec[0, ridx] ),\!r\!n\!t\!t\!t\!tDialog( \!"Main effects cannot be removed.\!" ),\!r\!n\!t\!t\!t\!tstrt = Ceiling( Loc( vec[0, ridx] ) / N Row( ridx ) );\!r\!n\!t\!t\!t\!t_ky = Associative Array( strt ) << getkeys;\!r\!n\!t\!t\!t\!tdelEff = Remove From( dsdneweff, _ky );\!r\!n\!t\!t\!t\!teffAA << Remove( Associative Array( delEff ) );\!r\!n\!t\!t\!t\!trstrt = Mod( Loc( vec[strt, 0] ), N Col( vec ) );\!r\!n\!t\!t\!t\!trstrt[Loc( rstrt == 0 )] = N Col( vec );\!r\!n\!t\!t\!t\!trstrt = Associative Array( rstrt ) << getkeys;\!r\!n\!t\!t\!t\!tFor( k = N Items( rstrt ), k >= 1, k--,\!r\!n\!t\!t\!t\!t\!tref << deleterow( rstrt[k] )\!r\!n\!t\!t\!t\!t);\!r\!n\!t\!t\!t\!tref << setselectedrows( [] );\!r\!n\!t\!t\!t);\!r\!n\!t\!t) ; _nw[Lineup Box( 1 )] << prepend(\!r\!n\!t\!t\!tOutline Box( \!"Factors\!",\!r\!n\!t\!t\!t\!t<1,\!r\!n\!t\!tfor(i=1,i<=nitems(lst[lidx]),i++,\!r\!n\!t\!t\!tinsertinto(cex,lst[lidx][i]);\!r\!n\!t\!t\!tinsertinto(cex,expr(_x));\!r\!n\!t\!t\!tsubstituteinto(cex,expr(_x),recurse(insert(insert({},lvl),lst[lidx][i]),dt,nest-1,nameexpr(ex),lst))\!r\!n\!t\!t),\!r\!n\!t\!tfor(i=1,i<=nitems(lst[lidx]),i++,\!r\!n\!t\!t\!toldlst={};newlst={};k=1;\!r\!n\!t\!t\!toldlst[1]=substitute(nameexpr(ex),head(ex),{});\!r\!n\!t\!t\!toldlst[2]=insert(insert({},lvl),lst[lidx][i]);\!r\!n\!t\!t\!tnewlst[1::nitems(oldlst[1])]=expr(equal(expr(oldlst[1][k]),expr(oldlst[2][k++])));\!r\!n\!t\!t\!ttmpex=if(nitems(oldlst[1])>1,\!r\!n\!t\!t\!t\!tsubstitute(expr(dt<1,substitute(evalexpr(newlst),{},expr(and)),evalexpr(newlst[1]))));\!r\!n\!t\!ttmp=probvals[probvec];\!r\!n\!t\!t//\!r\!n\!t\!tchoiceprobability = tmp[1];\!r\!n\!t\!tfor( k = 2, k <= nrow( tmp ), k++, choiceprobability |/= sum( tmp[1::k] ) );\!r\!n\!t\!tchoicesimulation = j( nrow( choiceprobability ), 1, 0 );\!r\!n\!t\!texky=substitute(evallist(exl),{},expr(key));\!r\!n\!t\!tuniformvec = _ChoiceSet[choicesetvals[nameexpr(exky)]];\!r\!n\!t\!tchoicesimulation[loc(choiceprobability > uniformvec[1])[1]] = 1;\!r\!n\!t\!tif(0,\!r\!n\!t\!t\!ttmp[loc( choicesimulation )] = .;\!r\!n\!t\!t\!tsump = sum( tmp[loc( !choicesimulation )] );\!r\!n\!t\!t\!ttmp = 1 - tmp / sump;\!r\!n\!t\!t\!tchoiceprobability = tmp[1];\!r\!n\!t\!t\!tfor( k = 2, k <= nrow( tmp ), k++, choiceprobability |/= sum( tmp[1::k] ) );\!r\!n\!t\!t\!tchoicesimulation[loc( choiceprobability > uniformvec[2] )[1]] = -1;\!r\!n\!t\!t);\!r\!n\!t\!tchoicesimulation[loc(probvec == r)]\!r\!n\!t)\!t\!r\!n);\!r\!n// Constructs formulas for Probability and Simulated column and returns it as a list of two expressions\!r\!nfoo=function({dt,lst,utillst,tmplt,profgrpex},\!r\!n\!t{v,ky,aa,i,k,ex,probex,proflst,chsetutilex,aaky,\!r\!n\!t utilex=expr(add()),\!r\!n\!t simex=expr(local({_f},If( Row() == 1,_if);Choice Value( Row(), _ChoiceSet, _vals, _ex, _dt ))),\!r\!n\!t ifexpr=expr(glue(_ChoiceSet = {}))\!r\!n\!t},\!r\!n\!tfor(i=1,i<=nitems(lst),i++,\!r\!n\!t\!taa=associativearray(column(lst[i]));ex=expr(match(_c[r]));\!r\!n\!t\!tfor(ky=aa<1,-0.5|/j(lvl-2,1,-0.5+1/(lvl-1)*i++)|/0.5,.)\!r\!n);\!r\!n// end utility functions\!r\!n\!r\!n// GUI section\!r\!n// Note: This section will be the only part of the script streamed to the datatable when the platform simulate option is checked\!r\!n//\!r\!n// list of strings for GUI\!r\!nstrnms = {\!"Choice\!",\!"Simulate Choice\!",\!"Apply\!",\!"Marginal Utility\!",\!"Error\!",\!"\!\!\!"Choice\!\!\!" property misssing.\!",\!"Either \!\!\!"Profile Effects\!\!\!" or \!\!\!"Profile Grouping\!\!\!" argument misssing from \!\!\!"Choice\!\!\!" property.\!"};\!r\!n\!r\!n// get datatable ref, Choice property, extract profile effects(...) & profile grouping(...)\!r\!ndt = currentdatatable();\!r\!nchoiceex=dt< \!"Choice\!",\!r\!n\!t\!t\!"ja\!" => \!"選択モデル\!",\!r\!n\!t\!t\!"x-id\!" => \!"S_Choice_Scp\!",\!r\!n\!t\!t\!"zh-CN\!" => \!"选择\!"],\!r\!n\!t\!tChoice(\!r\!n\!t\!t\!tProfile DataTable( Pizza Combined Simulate ),\!r\!n\!t\!t\!tProfile ID( :Indicator ),\!r\!n\!t\!t\!tProfile Grouping( :Subject, :Trial ),\!r\!n\!t\!t\!tProfile Effects( :Crust, :Cheese, :Topping ),\!r\!n\!t\!t\!tLikelihood Ratio Tests( 1 )\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column(\!r\!n\!t\!t[\!"en\!" => \!"Gender\!", \!"ja\!" => \!"性別\!", \!"x-id\!" => \!"S_Gender_Col\!", \!"zh-CN\!" => \!"性别\!"],\!r\!n\!t\!tCharacter( 1 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"M\!", \!"F\!"} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tFormula( If( Modulo( :Subject, 2 ) == 0, \!"F\!", \!"M\!" ) )\!r\!n\!t),\!r\!n\!tNew Column(\!r\!n\!t\!t[\!"en\!" => \!"Subject\!",\!r\!n\!t\!t\!"ja\!" => \!"被験者\!",\!r\!n\!t\!t\!"x-id\!" => \!"S_Subject_Col\!",\!r\!n\!t\!t\!"zh-CN\!" => \!"试尝者\!"],\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tFormat( \!"Best\!", 10 ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3,\!r\!n\!t\!t\!t4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6,\!r\!n\!t\!t\!t7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9,\!r\!n\!t\!t\!t10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12,\!r\!n\!t\!t\!t12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14,\!r\!n\!t\!t\!t14, 14, 14, 14, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16,\!r\!n\!t\!t\!t16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 18,\!r\!n\!t\!t\!t19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 21, 21,\!r\!n\!t\!t\!t21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23,\!r\!n\!t\!t\!t23, 23, 23, 23, 24, 24, 24, 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 25,\!r\!n\!t\!t\!t25, 25, 26, 26, 26, 26, 26, 26, 26, 26, 27, 27, 27, 27, 27, 27, 27, 27,\!r\!n\!t\!t\!t28, 28, 28, 28, 28, 28, 28, 28, 29, 29, 29, 29, 29, 29, 29, 29, 30, 30,\!r\!n\!t\!t\!t30, 30, 30, 30, 30, 30, 31, 31, 31, 31, 31, 31, 31, 31, 32, 32, 32, 32,\!r\!n\!t\!t\!t32, 32, 32, 32]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column(\!r\!n\!t\!t[\!"en\!" => \!"Trial\!", \!"ja\!" => \!"テスト\!", \!"x-id\!" => \!"S_Trial_Col\!", \!"zh-CN\!" => \!"试尝\!"],\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tFormat( \!"Best\!", 10 ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4,\!r\!n\!t\!t\!t1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4,\!r\!n\!t\!t\!t1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4,\!r\!n\!t\!t\!t1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4,\!r\!n\!t\!t\!t1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4,\!r\!n\!t\!t\!t1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4,\!r\!n\!t\!t\!t1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4,\!r\!n\!t\!t\!t1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4,\!r\!n\!t\!t\!t1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4,\!r\!n\!t\!t\!t1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4,\!r\!n\!t\!t\!t1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column(\!r\!n\!t\!t[\!"en\!" => \!"Profile Name\!",\!r\!n\!t\!t\!"ja\!" => \!"プロファイル名\!",\!r\!n\!t\!t\!"x-id\!" => \!"S_Profile_Name_Col\!",\!r\!n\!t\!t\!"zh-CN\!" => \!"配方名称\!"],\!r\!n\!t\!tCharacter,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"ThickJack\!", \!"TrimPepperjack\!", \!"TrimPepperjack\!", \!"ThickElla\!", \!"TrimOni\!",\!r\!n\!t\!t\!t\!"Trimella\!", \!"ThickElla\!", \!"ThickJack\!", \!"Trimella\!", \!"ThickJackoni\!",\!r\!n\!t\!t\!t\!"TrimJack\!", \!"ThickElla\!", \!"Trimella\!", \!"TrimPepperjack\!", \!"TrimPepperjack\!",\!r\!n\!t\!t\!t\!"TrimOni\!", \!"TrimOni\!", \!"ThickJackoni\!", \!"TrimPepperjack\!", \!"ThickElla\!",\!r\!n\!t\!t\!t\!"ThickJackoni\!", \!"TrimPepperjack\!", \!"ThickOni\!", \!"Trimella\!", \!"ThickElla\!",\!r\!n\!t\!t\!t\!"ThickOni\!", \!"TrimPepperjack\!", \!"ThickJack\!", \!"Trimella\!", \!"ThickJack\!",\!r\!n\!t\!t\!t\!"TrimJack\!", \!"ThickJack\!", \!"ThickJack\!", \!"Trimella\!", \!"ThickOni\!",\!r\!n\!t\!t\!t\!"ThickElla\!", \!"TrimOni\!", \!"ThickOni\!", \!"ThickJackoni\!", \!"TrimJack\!",\!r\!n\!t\!t\!t\!"TrimOni\!", \!"ThickElla\!", \!"ThickOni\!", \!"ThickElla\!", \!"ThickElla\!",\!r\!n\!t\!t\!t\!"TrimPepperjack\!", \!"Trimella\!", \!"ThickJackoni\!", \!"Trimella\!",\!r\!n\!t\!t\!t\!"TrimPepperjack\!", \!"Trimella\!", \!"TrimJack\!", \!"Trimella\!", \!"TrimJack\!",\!r\!n\!t\!t\!t\!"ThickJackoni\!", \!"TrimPepperjack\!", \!"ThickJack\!", \!"ThickOni\!", \!"ThickElla\!",\!r\!n\!t\!t\!t\!"ThickJack\!", \!"TrimPepperjack\!", \!"TrimJack\!", \!"TrimJack\!", \!"ThickOni\!",\!r\!n\!t\!t\!t\!"ThickOni\!", \!"TrimJack\!", \!"ThickOni\!", \!"TrimPepperjack\!", \!"TrimJack\!",\!r\!n\!t\!t\!t\!"TrimOni\!", \!"ThickJack\!", \!"TrimOni\!", \!"TrimPepperjack\!", \!"ThickElla\!",\!r\!n\!t\!t\!t\!"ThickJack\!", \!"ThickOni\!", \!"TrimJack\!", \!"ThickJack\!", \!"Trimella\!", \!"TrimOni\!",\!r\!n\!t\!t\!t\!"ThickJack\!", \!"TrimJack\!", \!"TrimJack\!", \!"ThickElla\!", \!"TrimPepperjack\!",\!r\!n\!t\!t\!t\!"Trimella\!", \!"ThickOni\!", \!"ThickJackoni\!", \!"TrimJack\!", \!"TrimPepperjack\!",\!r\!n\!t\!t\!t\!"ThickElla\!", \!"ThickJackoni\!", \!"TrimOni\!", \!"Trimella\!", \!"ThickElla\!",\!r\!n\!t\!t\!t\!"TrimJack\!", \!"ThickElla\!", \!"ThickJackoni\!", \!"ThickOni\!", \!"Trimella\!",\!r\!n\!t\!t\!t\!"ThickJackoni\!", \!"TrimJack\!", \!"ThickOni\!", \!"ThickJackoni\!", \!"TrimPepperjack\!",\!r\!n\!t\!t\!t\!"ThickOni\!", \!"TrimOni\!", \!"TrimPepperjack\!", \!"ThickOni\!", \!"TrimOni\!",\!r\!n\!t\!t\!t\!"ThickJack\!", \!"Trimella\!", \!"TrimOni\!", \!"TrimJack\!", \!"Trimella\!", \!"TrimJack\!",\!r\!n\!t\!t\!t\!"TrimJack\!", \!"TrimOni\!", \!"TrimPepperjack\!", \!"ThickJack\!", \!"Trimella\!",\!r\!n\!t\!t\!t\!"ThickJack\!", \!"ThickElla\!", \!"TrimJack\!", \!"TrimPepperjack\!", \!"ThickJackoni\!",\!r\!n\!t\!t\!t\!"ThickOni\!", \!"TrimPepperjack\!", \!"TrimOni\!", \!"ThickJackoni\!", \!"ThickElla\!",\!r\!n\!t\!t\!t\!"Trimella\!", \!"ThickJack\!", \!"ThickJackoni\!", \!"ThickJackoni\!", \!"ThickElla\!",\!r\!n\!t\!t\!t\!"ThickElla\!", \!"TrimOni\!", \!"Trimella\!", \!"ThickElla\!", \!"ThickJack\!",\!r\!n\!t\!t\!t\!"ThickElla\!", \!"ThickElla\!", \!"TrimPepperjack\!", \!"TrimPepperjack\!", \!"TrimOni\!",\!r\!n\!t\!t\!t\!"ThickJack\!", \!"TrimOni\!", \!"ThickOni\!", \!"TrimOni\!", \!"ThickJack\!", \!"TrimJack\!",\!r\!n\!t\!t\!t\!"TrimJack\!", \!"TrimPepperjack\!", \!"TrimOni\!", \!"ThickJack\!", \!"Trimella\!",\!r\!n\!t\!t\!t\!"ThickOni\!", \!"TrimOni\!", \!"ThickOni\!", \!"ThickJackoni\!", \!"ThickOni\!", \!"TrimOni\!",\!r\!n\!t\!t\!t\!"TrimPepperjack\!", \!"TrimJack\!", \!"TrimPepperjack\!", \!"TrimJack\!",\!r\!n\!t\!t\!t\!"ThickJackoni\!", \!"ThickOni\!", \!"ThickJack\!", \!"ThickOni\!", \!"ThickJack\!",\!r\!n\!t\!t\!t\!"ThickElla\!", \!"TrimOni\!", \!"Trimella\!", \!"TrimOni\!", \!"TrimOni\!",\!r\!n\!t\!t\!t\!"TrimPepperjack\!", \!"ThickElla\!", \!"ThickOni\!", \!"ThickJackoni\!", \!"Trimella\!",\!r\!n\!t\!t\!t\!"ThickOni\!", \!"TrimJack\!", \!"ThickJack\!", \!"TrimOni\!", \!"ThickElla\!",\!r\!n\!t\!t\!t\!"ThickJackoni\!", \!"ThickJack\!", \!"TrimOni\!", \!"Trimella\!", \!"ThickElla\!",\!r\!n\!t\!t\!t\!"ThickJack\!", \!"TrimPepperjack\!", \!"TrimPepperjack\!", \!"Trimella\!", \!"ThickOni\!",\!r\!n\!t\!t\!t\!"Trimella\!", \!"ThickJackoni\!", \!"ThickJack\!", \!"TrimJack\!", \!"ThickJackoni\!",\!r\!n\!t\!t\!t\!"TrimOni\!", \!"ThickJackoni\!", \!"Trimella\!", \!"ThickOni\!", \!"TrimOni\!",\!r\!n\!t\!t\!t\!"ThickJack\!", \!"TrimJack\!", \!"Trimella\!", \!"TrimJack\!", \!"Trimella\!",\!r\!n\!t\!t\!t\!"TrimPepperjack\!", \!"ThickOni\!", \!"ThickJackoni\!", \!"ThickElla\!", \!"TrimOni\!",\!r\!n\!t\!t\!t\!"ThickElla\!", \!"TrimJack\!", \!"TrimOni\!", \!"ThickElla\!", \!"Trimella\!",\!r\!n\!t\!t\!t\!"ThickJackoni\!", \!"ThickJack\!", \!"TrimPepperjack\!", \!"ThickJackoni\!",\!r\!n\!t\!t\!t\!"TrimJack\!", \!"ThickOni\!", \!"ThickJackoni\!", \!"TrimOni\!", \!"ThickJackoni\!",\!r\!n\!t\!t\!t\!"TrimOni\!", \!"TrimPepperjack\!", \!"TrimJack\!", \!"TrimOni\!", \!"TrimJack\!",\!r\!n\!t\!t\!t\!"ThickElla\!", \!"TrimPepperjack\!", \!"ThickJackoni\!", \!"ThickOni\!", \!"ThickElla\!",\!r\!n\!t\!t\!t\!"ThickOni\!", \!"ThickJackoni\!", \!"Trimella\!", \!"Trimella\!", \!"ThickJack\!",\!r\!n\!t\!t\!t\!"ThickJack\!", \!"ThickElla\!", \!"ThickJackoni\!", \!"Trimella\!", \!"ThickJack\!",\!r\!n\!t\!t\!t\!"ThickJackoni\!", \!"TrimJack\!", \!"ThickJack\!", \!"ThickJackoni\!", \!"ThickJack\!"}\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column(\!r\!n\!t\!t[\!"en\!" => \!"Indicator\!",\!r\!n\!t\!t\!"ja\!" => \!"選択\!",\!r\!n\!t\!t\!"x-id\!" => \!"S_Indicator_Col\!",\!r\!n\!t\!t\!"zh-CN\!" => \!"指示符\!"],\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 10 ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0,\!r\!n\!t\!t\!t1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0,\!r\!n\!t\!t\!t1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1,\!r\!n\!t\!t\!t1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0,\!r\!n\!t\!t\!t0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1,\!r\!n\!t\!t\!t1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0,\!r\!n\!t\!t\!t0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1,\!r\!n\!t\!t\!t1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1,\!r\!n\!t\!t\!t1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1,\!r\!n\!t\!t\!t0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1,\!r\!n\!t\!t\!t0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column(\!r\!n\!t\!t[\!"en\!" => \!"Crust\!", \!"ja\!" => \!"生地\!", \!"x-id\!" => \!"S_Crust_Col\!", \!"zh-CN\!" => \!"馅饼皮\!"],\!r\!n\!t\!tCharacter( 5 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"Thick\!", \!"Thin\!"} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thick\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thin\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thick\!", \!"Thin\!",\!r\!n\!t\!t\!t\!"Thick\!", \!"Thick\!", \!"Thin\!", \!"Thick\!", \!"Thick\!", \!"Thick\!"}\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column(\!r\!n\!t\!t[\!"en\!" => \!"Cheese\!", \!"ja\!" => \!"チーズ\!", \!"x-id\!" => \!"S_Cheese_Col\!", \!"zh-CN\!" => \!"奶酪\!"],\!r\!n\!t\!tCharacter,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"Mozarella\!", \!"Jack\!"} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"Jack\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Jack\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Mozzarella\!",\!r\!n\!t\!t\!t\!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Mozzarella\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Mozzarella\!", \!"Jack\!", \!"Jack\!", \!"Jack\!",\!r\!n\!t\!t\!t\!"Jack\!", \!"Jack\!", \!"Jack\!"}\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column(\!r\!n\!t\!t[\!"en\!" => \!"Topping\!",\!r\!n\!t\!t\!"ja\!" => \!"トッピング\!",\!r\!n\!t\!t\!"x-id\!" => \!"S_Topping_Col\!",\!r\!n\!t\!t\!"zh-CN\!" => \!"馅料\!"],\!r\!n\!t\!tCharacter,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"Pepperoni\!", \!"None\!"} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"None\!",\!r\!n\!t\!t\!t\!"None\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"None\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"None\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"None\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"None\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"None\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"None\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"None\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"None\!", \!"None\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"None\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"None\!", \!"Pepperoni\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!", \!"None\!",\!r\!n\!t\!t\!t\!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!", \!"None\!", \!"None\!", \!"Pepperoni\!",\!r\!n\!t\!t\!t\!"None\!"}\!r\!n\!t\!t)\!r\!n\!t)\!r\!n)"),underlineStyle(true),))))))) /* preview image PNG (v=1,x=281,y=147,b=2801,c=96,d=126,e=42,f=92,g=59,h=34,i=39,j=47,k=44,m=ADADDDD7D7F64BFF7662B6B5B94F5D40) =v}uA%:{>vs>!!&+I!!)vNhz_)n!0h%N>]XWVMb<{{&MfD^&evewb0d?-[)U(KO:@j{)=f0y7bUBxJE+_roe5Afd1fPKr<%YANcI.cd.sG#M{$i.jT#>n#Y%@}z%I=QpR7i!x1]ZKjc1Vlk-eGbxWUhH.z1N#yzM?j8ghsDuz.H8nRrTH8j#1fx7->Nf@iF({-|q0xUAa&%cN]<7vkgpE0Hbl J}Tu5JVuajba!R2=C#QP6S>]R%Qzs5>?p-av%xYXKl_5l0dbfF>+NqH&y_{Q^{2W?x?4h]C4Bg8E8Ke5hx|z-qE]LXhp-)TN 04f2oY3}}K@8IP?>xh!zk%>X#K??5.jpFMEC{&%Av$q4$miTUFV9B7jV?EJi@6@OcUg60#dh^sFI{GXmbP_1Lo2}v^C})DvGJCaLJJxG8EmI[rvMNo<^6D4yCit^[s.jvib55acmX{ga>tyT&yjmr7Bw_a9LP59TY$Z}#WqyLn(R%aewNw&vqFYCj1cN}b#b^8VdGF-ni+m.cztj9y:f#5^rANV<)3h4-}$uF[qEt[IfB[ryg--j3667r.pU)eDjWs(|AwV[8m[>LQx#I$>hk}>Dvp)g$H8-_[9tW&jtpyUmvoY}5wzY[Ut2?c$Edv7dE5${7t$}|!qT3=Cd.QS%3@AJf2qQk!VUWuM?-78q+T:p^Dx@]r?.<=ltC0=}JhO>{Nxml4sI+UEij>v+:&byQO)v}!]xQxW[K%_^EsmK_5Iu=A5koR^_L^+oCOVEYAXu9gkz{xf3p@+BK|Lt?Vr.Hc9VeM-^4rcaL&83chCJjyia_qU6+RVihJ0F55bichvZdTnWN=ei98=Zjb0Ug.u^wzr4=C0NoP=mQ8R#AK2iQD@j)R4MhGjPS@(iEMc1PW{yll<:YjsgeuV=n)zdJoOL9CT!B!A.p0-P_PH0>D+H>{sjC!MlLloH@V:J]4=s2-&x d{t?Y&?pXUmK{U%$:V$Xlw8OZR]$AQ1JlRvK6qfsC]yVoXRA+eYfbSa3n)76mHwi.WXG[tdfSDTGebtl$x|BfcVt7gOR0zKDz|GKwnvuJRb5je%v$+$I6y{mn)w>(Y:gZ1?%{o=2S-s(IZ4I1C@aT0awb7|w{+}[5p7cfr<$SfoSEZ?gb|Shn|7.SD9UX]m%pQs.YWPHaLLD2kR.E(t&f%kjo(APxR857pRkPMya#X].zZJcT]K54.[Fkag9Qnv<=h&O#>gJ@Mmd%|q82ZVv)j?2y01}tZD=t{2U%_Ge-6?91tF^H&SXmk#Zffk%<0R$ )Q<#&2}Q$-@|}&6Z{|-G3{7bUBxJE+_roe5Afd1fPKJ}moqp}[aefeZ6IP2W:m!#QDZ!$}d8!(}HK!1|kq!>{Wd!Vy2H#0t?k$3{7bUBxJE+_roe5Afd1fPKJ}moqp}[aefeZ6IP2W:m!#QDZ!$}d8!(}HK!1|kq!>{Wd!Vy2H#0t?k$3{7bUBxJE+_roe5Afd1fPKJ}moqp}[aefeZ6IP2W:m!#QDZ!$}d8!(}HK!1|kq!>{Wd!Vy2H#0t?k$3{7bUBxJE+_roe5Afd1fPKJ}moqp}[aefeZ6IP2W:m!#QDZ!$}d8!(}HK{-2]fEIyk4>2Ytl!!!!M@3=gYExg#i!!!#T */