/* JMP 14.0.0 01 */ ListBox(vertical,near,sub( ListBox(vertical,near,sub( ListBox(vertical,near,sub( PictureBox(sub( BorderBox(top(25),left(25),bottom(25),right(25),sides(0),options(0),xmin(0),ymin(0),))), PictureBox(sub( PictureBox(sub( PictureBox(sub( PictureBox(sub( PictureBox(sub( PictureBox(sub( PictureBox(sub( PictBox(picture(size(97,64), png(2545,"eJwB8QkO9olQTkcNChoKAAAADUlIRFIAAABhAAAAQAgGAAAACvYZMAAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnEAABJxAfPceo4AAAmTSURBVHhe7ZsJkFxFGcfHKCjgQZbsvJlEIoqW8ZZDUctSFBTvqxBvUTSUCGgpGlTAqICKkto5NpdBgQQjAY9SiCieFUQptSDBAAIKHkAwCjszu0lINuzz/5vM2+p89s6bmdp9m5T9r/pVMm", "+63/R73f19/X3dmwsKCgoKCgoKCgoKCgr6/9TjxFniJ+J74q0iKGOVRezwsHiVGNdBgyNRVNpyZOtj0CTr8WKzcDsBviHGlR8Y+nBUqv84d3b8iNaloEnUE0RN2E64WIxLnbA6X6rfkFsYP7J1KWgSNUNUhdsBD4nXiab6zttcUAc8EJXr60InTJ32FeeL9eKX4ngxLs2CSnFFHEel2neDOZp60Rm7qX/R0Mej6sjOwrKdcb7c+FzrclAW", "OmBRbWa+Mny+OiCOBrdpFtS391eGj5lbvmPfueWxJq2iQd1q3uc37pMvDx19cHVL8X9My5p4RlQZOiSqDJ+uDthYWP5w3OyEch1TNJov129WZ9ykz+v1eYNmxlVRpX5usdJ4aesOQZ2IkSwnuzhfGsLRrs+Xa1fnS7ULdO1yvdjrxVBh6WgMUbmxqwNaFJZsjzFLxYviuHhJHM9eqX8vjVV2h0xVbd2sxfUXt34mKFVxLGf74BsjvThe9u", "zVeqGrdr3Y4jf1UpePxVFl9w7Y1Qk7mp2jDrtbny8rVhsL9PLnF0q1UwrV2jmFSiNE2r2oUN1yhEb/mfnq8Jr8gGbFQO1Hmhlrda0x3hH6F9NUqIzcFVVGTipW632t6kFTpf4La8fmK41t8g3qgOGmCZI/WNM/sOlJrSJBkySSdscIckTHileKF4mcHO7FmB58AvZeznfVYcviR/GdIyLtN4lPiwUtzhRniHY5Jn73OPEpkdQD7pPm4B8j", "DjLsLxIRePLbp4rzxHfE5eJS8RnxNlEQe4zeIkjUuZHytTMXbJgj87OJVVHLOV8z74p4H32X6IniXHG7cOu6bBc/F0eIRP2CF3GH8NWBneJX4mjh0yrxgMODIonsTxHXCX7bd++ETWKR4DmmXV8QtoHVworR49QJOwuDW1nxbO6rNJ6u64neLe4Utt5EDIn3i9eIdp1maYg3C1fMoL8KtxzplQ+Ktc61TmEwNGf+dOoyYRt2YmHl2PsKix", "9qzoJZ5fpCXUt0trDlO2GrGDXXOoGOeIlI9AwxItwydAKzwb3WDfeJ54tp0aPFH4XboB3iqGjp6EIcsYKy+/oI6HYJM+KWzYprBHYevV34yvggNf9b8QdBZ/rKJPxaTEv0f7D4j3AbQ8NnFqpbVxCMaZmKM0M4UTrILZtwv7hafF9gEurCV87CCPyhoN5PxUT1+N3EyTMrfWUStoklgvbmBdlefNmhAkfdzhfhsDMXqyGcoNuQ34lcvjJy", "FjFB/5JtH9JH0hobhFsOMDFfEXSmK6b2zcKWT8AssWqZK1xR73rhq8MLRAwK3/dwq3iFaKcnixuEr/6VIvPsMMtD2xB8BMvT+c34YPXYC/XRZwJ4ke8SE4nViu1g4NrJYiIdJnymgyUvmqhzMTlzRCfCr1gLAKyYDhCZapmwDcHu5/pLCtTK9c3R1zcdoo8/a33nstuOm0es5W8Rth72vZ3wU38Rth6dQDzg6yBeKJ3XjS4S9j44/GeJzE", "TQxVrcbQSj9LUiV6ze0xcNbl2735En0Kh/CbccsyBt2j9W2JdJPJJmdxmJvnrvFPymb3Z9UnQr7mfjI3wPgWtmIu9jpySBDyO/qTkrxg6dsf+BdIpdWlJupmgnRqYNmHC8TxHt9DRBXOHWYwn6VPEJ51rCbYJDCt2KABIn7t6L9r5cZKajhH1Jfxb7CVcfE24ZwHna9IXVB4St9ydh729FCsSO0H8I6mEC3etwjuhFhwvbCcwE0jaZ6b3C", "PiwHvqw48uKWgeUiTRcKW48cTpp8wSDLX3JDNzrXgNVZt74gEUte2wlbRKZB29eE2wD4knBF8EKwY8udLtqJZR6n+Gw9TveliWWirfdlMUtgBt3rNwk3n9WNSL3YQUi804tp61msUtwG0KB3CFdkGq3fwD+8TLQTmdW/C7ce9ydZ2E6M9o3CrQe0i5Frg8XmcrpHXSDcewELlcyO8hwo7hJuA3B+dmqTxbROmdGSlgbG3mIq3HpM9TSnzP", "fDwq2HyZgniC3c61ASvQh/RlBq78cx0Mz0bMFLcRvwT8EIdnWacMsATjnNBJwobD2i2bTcjM8p/02w3B10riV8RPQi7D6Dzt7PZmynVOwB24cld5MkyRL5grlOnLLP3/TqlDGbdPo651pCJz7GJ58pIjZJW3ZPqljW2UawweEK2+jLsbBkbSecsi+vzwtOE7tfth65KXyFL82wUnQr4pB/C3uvr4pMtUbYRpwkXJG+to3FMaYFM5i0u4Vb", "D9KcMukKn1MmsvU5ZaA86ZFuRNbW3oeD0CT2MhOjiqDMbQTO124l8tk+OEvESLQT9tYGgThbRmA74ZTtqXCcMjt6vsAPMKl0UqditPvu80WRqdhTtSsQ34qH1LFbBjBPaZEy25i2HiPW3Yj3Cads80L3Cpw5Jsm97oLjZjXWTmyJYm599YmD0qL4SderhX3Y3wjrlHHAbhkg85gmn9O7QqQJJ2vr4ZTxTb7Az4VBxCkNZhudjWnjX47mMC", "h+L3z1mNnPFZmLlLBtzFLhitWIb3MlzSkjn1N296gnEqsnW48O5WUy2u13Pkj8scphz4EdNJ8DTuA78mfTom8J2yCbCsY02fQ1s2eiIyiJmPa+SDktfY058O3cvUcQqNkcDyslu9nfDcQsJ7RIToE8R5AJmPKdNUwOO1Bug3i543+N0xIrILcMMHXTdq5ID1tnzgvsxCnbCJvOYy+DlIV7HS4Rrxc25d0JzDjMFLN9seAME2aPDahrxZSn", "LXhY23By/PYA1EcFESUvMOE6kRbxkhSz9firH2x0O/FC3TqQpNV9Pgb7j14giC1s9G/hOAyHCexG1BvEfPFtQblfiCntBGaB/RNZIGllp+BsgcNiigL/t5v5PnG6ztazm/k+EVskdRJYt9Mum2gEa96eJ8jsDghmyQ8Ez0rkzv74RDkrnoklML6BDuH45aSbI9bQOMqrBCPZtzVIfmhPFTkj62NYXj9T7DXy5eZdMBWZ5s+7FL7EmhqOUW", "Z+IqJXEc6z6eE+gAsHr5IDVXuq+OtRm2gk7bDXiBNn9gESME2cJ9rT5XPKFbHXCGeELyBFDSy/iHhxVL1uCWatzwranTwDkXPzSE5QUFBQUFBQUFBQUFBQUEu53H8BwH2ktNcKBQgAAAAASUVORK5CYIKgb94l" )),))))))))))))))), OutlineBox( open(1),title("Balanced Incomplete Block Designs (BIBD): New in JMP 14"),sub( OutlineBox( open(0),title("Tire Example"),closeOrient(1),sub( ButtonBox(title("Tire BIBD"),scriptText("DOE(\!r\!n\!tBalanced Incomplete Block Design,\!r\!n\!t{Treatments(\!r\!n\!t\!t\!"Tire\!",\!r\!n\!t\!t7,\!r\!n\!t\!t{\!"Bridgestone\!", \!"Firestone\!", \!"Goodyear\!", \!"General Tire\!", \!"Pirelli\!",\!r\!n\!t\!t\!"Michelin\!", \!"Uniroyal\!"}\!r\!n\!t), Blocks( \!"Car\!", 4 )}\!r\!n);\!r\!n"),underlineStyle(true),style("underline"),))), OutlineBox( open(0),title("Custom Design vs BIBD"),closeOrient(1),sub( ButtonBox(title("Custom Design"),scriptText("New Table( \!"Custom Design\!",\!r\!n\!tAdd Rows( 105 ),\!r\!n\!tNew Table Variable( \!"Design\!", \!"Custom Design\!" ),\!r\!n\!tNew Table Variable( \!"Criterion\!", \!"D Optimal\!" ),\!r\!n\!tNew Script( \!"Model\!", Fit Model( Effects( :Treatment, :Block ), Y( :Y ) ) ),\!r\!n\!tNew Script( \!"Evaluate Design\!", DOE( Evaluate Design, X( :Treatment, :Block ) ) ),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"DOE Dialog\!",\!r\!n\!t\!tDOE(\!r\!n\!t\!t\!tCustom Design,\!r\!n\!t\!t\!t{Add Response( Maximize, \!"Y\!", ., ., . ),\!r\!n\!t\!t\!tAdd Factor(\!r\!n\!t\!t\!t\!tCategorical,\!r\!n\!t\!t\!t\!t{\!"L1\!", \!"L2\!", \!"L3\!", \!"L4\!", \!"L5\!", \!"L6\!", \!"L7\!", \!"L8\!", \!"L9\!", \!"L10\!", \!"L11\!",\!r\!n\!t\!t\!t\!t\!"L12\!", \!"L13\!", \!"L14\!", \!"L15\!", \!"L16\!", \!"L17\!", \!"L18\!", \!"L19\!", \!"L20\!", \!"L21\!"\!r\!n\!t\!t\!t\!t},\!r\!n\!t\!t\!t\!t\!"X1\!",\!r\!n\!t\!t\!t\!t0\!r\!n\!t\!t\!t), Add Factor( Blocking, 5, \!"X2\!" ), Set Random Seed( 46675739 ),\!r\!n\!t\!t\!tNumber of Starts( 2694 ), Add Term( {1, 0} ), Add Term( {1, 1} ),\!r\!n\!t\!t\!tAdd Term( {2, 1} ), Set Sample Size( 105 ), Simulate Responses( 0 ),\!r\!n\!t\!t\!tSave X Matrix( 0 ), Make Design}\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Treatment\!",\!r\!n\!t\!tCharacter,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property(\!r\!n\!t\!t\!t\!"Value Ordering\!",\!r\!n\!t\!t\!t{\!"L1\!", \!"L2\!", \!"L3\!", \!"L4\!", \!"L5\!", \!"L6\!", \!"L7\!", \!"L8\!", \!"L9\!", \!"L10\!", \!"L11\!",\!r\!n\!t\!t\!t\!"L12\!", \!"L13\!", \!"L14\!", \!"L15\!", \!"L16\!", \!"L17\!", \!"L18\!", \!"L19\!", \!"L20\!", \!"L21\!"}\!r\!n\!t\!t),\!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{\!"L10\!", \!"L8\!", \!"L18\!", \!"L2\!", \!"L16\!", \!"L20\!", \!"L18\!", \!"L15\!", \!"L4\!", \!"L8\!", \!"L17\!",\!r\!n\!t\!t\!t\!"L21\!", \!"L11\!", \!"L14\!", \!"L18\!", \!"L16\!", \!"L7\!", \!"L10\!", \!"L3\!", \!"L5\!", \!"L7\!", \!"L21\!",\!r\!n\!t\!t\!t\!"L4\!", \!"L17\!", \!"L8\!", \!"L21\!", \!"L5\!", \!"L12\!", \!"L19\!", \!"L10\!", \!"L13\!", \!"L14\!", \!"L6\!",\!r\!n\!t\!t\!t\!"L3\!", \!"L15\!", \!"L7\!", \!"L19\!", \!"L2\!", \!"L15\!", \!"L1\!", \!"L8\!", \!"L11\!", \!"L3\!", \!"L19\!",\!r\!n\!t\!t\!t\!"L16\!", \!"L21\!", \!"L20\!", \!"L1\!", \!"L16\!", \!"L14\!", \!"L7\!", \!"L4\!", \!"L9\!", \!"L11\!", \!"L13\!",\!r\!n\!t\!t\!t\!"L20\!", \!"L12\!", \!"L18\!", \!"L3\!", \!"L1\!", \!"L13\!", \!"L2\!", \!"L5\!", \!"L9\!", \!"L1\!", \!"L16\!",\!r\!n\!t\!t\!t\!"L4\!", \!"L15\!", \!"L12\!", \!"L17\!", \!"L19\!", \!"L6\!", \!"L12\!", \!"L7\!", \!"L20\!", \!"L9\!", \!"L12\!",\!r\!n\!t\!t\!t\!"L18\!", \!"L14\!", \!"L5\!", \!"L11\!", \!"L14\!", \!"L10\!", \!"L6\!", \!"L2\!", \!"L5\!", \!"L15\!", \!"L11\!",\!r\!n\!t\!t\!t\!"L17\!", \!"L9\!", \!"L20\!", \!"L19\!", \!"L4\!", \!"L10\!", \!"L13\!", \!"L1\!", \!"L8\!", \!"L6\!", \!"L17\!",\!r\!n\!t\!t\!t\!"L13\!", \!"L2\!", \!"L6\!", \!"L21\!", \!"L9\!", \!"L3\!"}\!r\!n\!t\!t),\!r\!n\!t\!tSet Display Width( 72 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Block\!",\!r\!n\!t\!tCharacter,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property(\!r\!n\!t\!t\!t\!"Value Ordering\!",\!r\!n\!t\!t\!t{\!"1\!", \!"2\!", \!"3\!", \!"4\!", \!"5\!", \!"6\!", \!"7\!", \!"8\!", \!"9\!", \!"10\!", \!"11\!", \!"12\!", \!"13\!",\!r\!n\!t\!t\!t\!"14\!", \!"15\!", \!"16\!", \!"17\!", \!"18\!", \!"19\!", \!"20\!", \!"21\!"}\!r\!n\!t\!t),\!r\!n\!t\!tSet Property( \!"RunsPerBlock\!", 5 ),\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Blocking ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"1\!", \!"1\!", \!"1\!", \!"1\!", \!"1\!", \!"10\!", \!"10\!", \!"10\!", \!"10\!", \!"10\!", \!"11\!", \!"11\!", \!"11\!",\!r\!n\!t\!t\!t\!"11\!", \!"11\!", \!"12\!", \!"12\!", \!"12\!", \!"12\!", \!"12\!", \!"13\!", \!"13\!", \!"13\!", \!"13\!", \!"13\!",\!r\!n\!t\!t\!t\!"14\!", \!"14\!", \!"14\!", \!"14\!", \!"14\!", \!"15\!", \!"15\!", \!"15\!", \!"15\!", \!"15\!", \!"16\!", \!"16\!",\!r\!n\!t\!t\!t\!"16\!", \!"16\!", \!"16\!", \!"17\!", \!"17\!", \!"17\!", \!"17\!", \!"17\!", \!"18\!", \!"18\!", \!"18\!", \!"18\!",\!r\!n\!t\!t\!t\!"18\!", \!"19\!", \!"19\!", \!"19\!", \!"19\!", \!"19\!", \!"2\!", \!"2\!", \!"2\!", \!"2\!", \!"2\!", \!"20\!", \!"20\!",\!r\!n\!t\!t\!t\!"20\!", \!"20\!", \!"20\!", \!"21\!", \!"21\!", \!"21\!", \!"21\!", \!"21\!", \!"3\!", \!"3\!", \!"3\!", \!"3\!", \!"3\!",\!r\!n\!t\!t\!t\!"4\!", \!"4\!", \!"4\!", \!"4\!", \!"4\!", \!"5\!", \!"5\!", \!"5\!", \!"5\!", \!"5\!", \!"6\!", \!"6\!", \!"6\!", \!"6\!",\!r\!n\!t\!t\!t\!"6\!", \!"7\!", \!"7\!", \!"7\!", \!"7\!", \!"7\!", \!"8\!", \!"8\!", \!"8\!", \!"8\!", \!"8\!", \!"9\!", \!"9\!", \!"9\!",\!r\!n\!t\!t\!t\!"9\!", \!"9\!"}\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Y\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Property(\!r\!n\!t\!t\!t\!"Response Limits\!",\!r\!n\!t\!t\!t{Goal( Maximize ), Lower( . ), Upper( . ), Importance( . )}\!r\!n\!t\!t),\!r\!n\!t\!tSet Selected,\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .,\!r\!n\!t\!t\!t., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .,\!r\!n\!t\!t\!t., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .,\!r\!n\!t\!t\!t., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .,\!r\!n\!t\!t\!t., ., ., ., ., ., ., ., .]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tSet Row States(\!r\!n\!t\!t[0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,\!r\!n\!t\!t0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,\!r\!n\!t\!t0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,\!r\!n\!t\!t0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,\!r\!n\!t\!t0, 0]\!r\!n\!t)\!r\!n)"),underlineStyle(true),style("underline"),), ButtonBox(title("BIBD (21 Treatments in 21 blocks of 5 runs)"),scriptText("New Table( \!"BIBD Design\!",\!r\!n\!tAdd Rows( 105 ),\!r\!n\!tNew Table Variable( \!"Design\!", \!"Balanced Incomplete Block Design\!" ),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"DOE Dialog\!",\!r\!n\!t\!tDOE(\!r\!n\!t\!t\!tBalanced Incomplete Block Design,\!r\!n\!t\!t\!t{Treatments(\!r\!n\!t\!t\!t\!t21,\!r\!n\!t\!t\!t\!t{\!"L1\!", \!"L2\!", \!"L3\!", \!"L4\!", \!"L5\!", \!"L6\!", \!"L7\!", \!"L8\!", \!"L9\!", \!"L10\!", \!"L11\!",\!r\!n\!t\!t\!t\!t\!"L12\!", \!"L13\!", \!"L14\!", \!"L15\!", \!"L16\!", \!"L17\!", \!"L18\!", \!"L19\!", \!"L20\!", \!"L21\!"\!r\!n\!t\!t\!t\!t}\!r\!n\!t\!t\!t), Blocks( \!"Block\!", 5 ), Make Design}\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Block\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Blocking ),\!r\!n\!t\!tSet Property( \!"RunsPerBlock\!", 5 ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5,\!r\!n\!t\!t\!t5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 10, 10,\!r\!n\!t\!t\!t10, 10, 10, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13,\!r\!n\!t\!t\!t14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 17, 17, 17,\!r\!n\!t\!t\!t17, 17, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 21,\!r\!n\!t\!t\!t21, 21, 21, 21]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Treatment\!",\!r\!n\!t\!tCharacter,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"L11\!", \!"L10\!", \!"L14\!", \!"L7\!", \!"L15\!", \!"L7\!", \!"L19\!", \!"L1\!", \!"L9\!", \!"L21\!", \!"L9\!",\!r\!n\!t\!t\!t\!"L8\!", \!"L13\!", \!"L10\!", \!"L17\!", \!"L14\!", \!"L17\!", \!"L16\!", \!"L5\!", \!"L1\!", \!"L10\!", \!"L4\!",\!r\!n\!t\!t\!t\!"L18\!", \!"L21\!", \!"L16\!", \!"L13\!", \!"L6\!", \!"L5\!", \!"L4\!", \!"L7\!", \!"L21\!", \!"L13\!", \!"L12\!",\!r\!n\!t\!t\!t\!"L14\!", \!"L2\!", \!"L20\!", \!"L7\!", \!"L8\!", \!"L16\!", \!"L12\!", \!"L8\!", \!"L3\!", \!"L21\!", \!"L15\!",\!r\!n\!t\!t\!t\!"L5\!", \!"L12\!", \!"L15\!", \!"L17\!", \!"L19\!", \!"L4\!", \!"L3\!", \!"L1\!", \!"L10\!", \!"L12\!", \!"L6\!",\!r\!n\!t\!t\!t\!"L18\!", \!"L20\!", \!"L15\!", \!"L1\!", \!"L13\!", \!"L6\!", \!"L14\!", \!"L19\!", \!"L18\!", \!"L8\!", \!"L2\!",\!r\!n\!t\!t\!t\!"L18\!", \!"L7\!", \!"L17\!", \!"L3\!", \!"L19\!", \!"L5\!", \!"L2\!", \!"L20\!", \!"L10\!", \!"L17\!", \!"L21\!",\!r\!n\!t\!t\!t\!"L11\!", \!"L6\!", \!"L20\!", \!"L15\!", \!"L16\!", \!"L6\!", \!"L2\!", \!"L9\!", \!"L5\!", \!"L12\!", \!"L9\!",\!r\!n\!t\!t\!t\!"L11\!", \!"L18\!", \!"L4\!", \!"L9\!", \!"L20\!", \!"L3\!", \!"L14\!", \!"L1\!", \!"L2\!", \!"L4\!", \!"L8\!",\!r\!n\!t\!t\!t\!"L11\!", \!"L16\!", \!"L11\!", \!"L3\!", \!"L13\!", \!"L19\!"}\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Response\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .,\!r\!n\!t\!t\!t., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .,\!r\!n\!t\!t\!t., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .,\!r\!n\!t\!t\!t., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., .,\!r\!n\!t\!t\!t., ., ., ., ., ., ., ., .]\!r\!n\!t\!t)\!r\!n\!t)\!r\!n)"),underlineStyle(true),style("underline"),), ButtonBox(title("Compare Designs Script"),scriptText("namesdefaulttohere(1);\!r\!n// launch platform\!r\!nobj = DOE(Compare Designs,\!r\!n Reference Design(\!"BIBD Design\!",X( :Treatment, :Block )),\!r\!n Additional Designs(\!"Custom Design\!", X( :Treatment, :Block )\!r\!n )\!r\!n);\!r\!nwait(0);\!r\!n// get reference to report -- the window name has to be specified correctly \!r\!nrpt=window(\!"Report: Compare Designs Platform\!");\!r\!n\!r\!n// close/ open necessary outline nodes\!r\!nrpt[OutlineBox(\!"Factors\!")]<tzS!!!$9=wLI4kK=3>vs>!!&+I!!&.XpDyf7!2nY|>ZVcPMb<{{$M+XAYM:OU8ndSNc72ub^D+vj^1EEcLi!QVhZSU)6Bl1Rs7z]k^Hy]AmgFLx^L}.aZyY.z23F?:++8|:EB?zYJ]Iy9fCAVfY}gA]ek${_d)!uY{.p!6Wp?WHwkzT^3T#RN-=&kOk[@S4zGrcpw].EP+2UTtFLBdwoVb9m}0{TzJVNpmU(V@11AHXNHC!LJ1H#Z X}HeRd$2&XJpeTb]vdSi&x.Yux>bv{wog#d-|->|tI#=4@{ZD6_lsN!=HJ#9fBx%Rz^pDMtbNOqyxsAS[oAG9)QE|HROhBbd.Y30Lq<{Jij]:_Go7T3s>Ko[_Vv[|EBDx%KY_)49IQ>TwC_AvV^IvUs9Bsny$8R^L$o.Hzs=U_e1aWWD|S$xtAkG^C2-J@Y?N!wVTAU$oxdtkx8qU15Ei$s[{YDE+1}0>(#)XcTJB.dLJYzsDG!G+1NQ7Vz^}=%J5=d}lo&lNci{58)-i]Q7[Rc(v5Mm=y]+^A?Gq7]O@_CPQWhNHHiBm]K1a(nkbS5RZ=&V?dL|&.g4zf}54p9zag=Gx[|=RUK)_]oG.gaLLM+r-tsDgHy9%jG|}NDiJ?DfE>+3r(KqM>+8OAkp%L)_COF@%vUhRj%Qk6zI5qI0(ps4:.DPkm3+_J sU]TouW9RzKTKbcA[q.0pa9gQHSB]QcTX!twlwA-Xu7oN-9O=Yv>|gDxTu3e]{813KPGa4u&fhrI7]m=vwoY&)08}gx]%%413ZCR+v2_U^X[8PmpzM&6j@SEyav=N=n!7sZW.4$T-A4C|R8i^doktCmPh+i6gwGVaT_@D_pY<>cbN{x?kJzYF5:[SR@Z-c]4n0u{_ndf-f7QS0b=32rCaYd#7%dLvws#uu7ONVDp584-p|Vu[HD&U5E[$k68eeC$J]S]RF5c4brv_.A6ziu4XygH3QRz[p 040D}xr]09ge?!FpnmSx.0{PJ]O5Lto-uhPm6NYnt0]-.ob+yde7k[i6W4X.0&Uh_sxzCt@zRtb-v.(DfwEh@pW?G.z{}%S$FP?tMF6@P.]:@H_9_1aSt::|_?cDTC2mx63bx6oNWtcqaCU.mE-H)Tu7{nQ?_XR+Vcs:l@zVWWOaOMEKTZ:?B2|-WaXB!93(]5!Wt7$GHg?{f4Z9k7ZUF1uvZ|%(WedA-vQ9c>bN>9sZ{-7ZImg?^V@jLI2]U@:VuBh5r@FxSP nzOPkT%q>KN!ZZi0u@HRMj9M6X2|FFa9$e#b2z)Vu3DxoC6K78l]gLqm7P!7XPye30tT(7OMe>:wlK7.EJ[EwFZzFK5eB|fN8QLT3kR=:?]zo^d8u!aaN2{iGtm.2O}E}gtOag2Txr[Ppgx=1#=RAagvnvEW{h[#JvlN5&f}DTqdMoMdIGHSoMm)NMA]5u+ZZl)xNEqGWxGU1WUkDF9NIh0w{eiElU4>S2>TKNMEL&EMmP=[oXAfsd>K=bi#:={)12:FQj%S-sM76[(bHXt-I3k{Ht<.mXDH6Gk>71&@&+M45>vqWXh!)C&x]<3U!WTF twZU%9-F?opZNlQ-OTg6w%nYY$RD)NKBT|nih@bY#TOdu7?o7P.a:N$^:=P>q@+]--pf>otn62&Nw}Ya?Lr&Na9@=Vwi?eoNje&NynDP!uz2|Y$2-4z5C&8%BpCUimB5=LgS=&tX0c{LO&OrxnCikNuHY:O@acS}BegCe)vfOdd$v}clT5zM4JTY9cAEA}Ml6B#.mr3z.8iv7gkWG&-OGk11n5xfV6ct#g+K!T<5X=JH-6xQY{r>:FeP!|(fREO}[XuXAVdR@IR6W6nNRwXPFiQioKq<0fi3)5Hlin!vH39^=jGd9H@%Cj?B)c?RNA){)TFIX-ZU2]Aci+6_47n#).8=.Zl_M%[MBN?q&48mrF7)9edoRYB}HOC)HhsVD00[z6-B@V=RpnPih_9HX:J!ffnX)8xVrq6aC.w938+6UGd8tE0Vw^|_j^t}VsjUn1U_wUWWGd>B[ !M7Y02YZn9iHrL]+-$nm&fwq{k4JFjOuUqb[3N_5#yz0<|wVlS&o9k1iHYtC48O:3x^pVe^=b0fj]5jEM%MemhZDdyz{@&6j4rTO]?%u>}NR}3ehx+>ow@{?18EMe%DqbmP19#T[2]iOxQNGbi:({wNb(PZSw#[ugJL3^qn7zzd=Oy:Cml21Q?!g]CI9yPu-lfV]ku=v$qRqB):!u3FS:q_Wd_{I)i5GPC5i:keFu(vbe vE{KC$fmFhvoZ&2B.xNdPLMb8)>:C.uPIs>mOB]5Z{_$]_fUBBap=l$rz^#x@_m|_]a8_eFOFo{]{!hc}tX3vB=wa2WetPr2gc?xazy}7pu+Sn|rb_cIU]?It@|mou+VFtWHbG?k&&46KE3o>gd#YAnt!r5!]9GjF]C@6k#}8gpz[?y_[iDP@%<-Zh MOb^s(4n?$levP(mhn!vmg^8}k6EDBL0g7:q4.E1LM0?g[%my>HVv|!Zhld6QLvQh(9Ff{:vPvt#FCSS(OD-+dCt^=DRaHVrE}py=@i^U_u=odPZSye72+[%FJc>##1s>M?Qg70+&l?N!cktPtedjC=zy+cLWG#mN]dEK)Jz8yVd+z5I!6Tez$#q.T^>bT6tNla]l):b_b|Xl9K_q@?L6kv>p{ld7AD|p@QDMk84GC}1f$GQaL6%DI|g[Gy3x=Q%%&69UZ9{{p>8(TWzYP:(E?9cF[%L#BkPzPM0]qLgR8DW]:YpYbd_e3!YqJKsTSmuJpoqk[=UF:$aKah?D0IICX5{Ra{dwkddlvJ[JB5ZD3[fk3Uw>gU9rhGs3Bi?Os-^TZ.3F2ox[d3y2dJeriFM>d+jA67g_WQt? uA8}+&NRKR5tM:7p@viNIv:1Vvo8?IAh+T?V!@Xb=bz{y=@iN)U||2N:OOqIeWT(>3)&65qDxs+4>@E0?@Qfmmo[07X3FWvqM#%LcI$5jIW]9bZ(]&JlJL3|iUJr6$r=7OhpR194X8&[6xqe3qq%L)2pi}weWT.e^7ricVg}4j[X&=M_1c|$2|CnvOk%F8E)|7o(ZzGXAKg3b)Qv94T:mUwBJPTs)Vzs2qT?0+z3(XC>:ZYOr}BH|5@9G_Xz-z:aIw+ITvtn%oo}Hvc}^4$ZHy>W%4r([1(bdl7e.a<[aQfZy_VK[:#QN@{pW^-IWuM=5QEHZZqAF(zP-TA06x3VhqbtQ#c]hW2BRa]X#>(fIR+nZlUgf7.>H?0CYRK7S7YueniARFtwv-UW<]U7JzjyF24leSjt660D7e9|lc5)r#VNUJ_:[jeSZq_z:b29h5yhr=Bs<9NVI4m>WbGiHnH9%xKVa-4D6l4Ukizb{Nd0qegYZcPpwW4Wa#J|my#tn#}sTBovQ)cR$3vtQ0h!zk6^9Rc2RW[T}j$I=%lZDD]SVDbJW{f]UKVsIdx|Aae9UBo@NxRabNbSvAw>Ny[gXuayZVk.!oa@IR 4.51kT7&G9tKkz}:?WnFyD7I]l]P8RX|n62YWGue&2Ue2(^aZt6t4i$qZIM+&6WI7nPLZh4g#DPCcO0xBaW4wILX4C^1.|9q_PSKoXAqMt30[CGZMB-hJ2$7W:#Vt:?=w1SSC!AXJ8qI+2Z9.WbHijdGA2&W.9j}0w1+wdJCwtmZ5=X$Bkbrs{o?hcv&|5i.Q[E[s{J^?r7cKnwH1{.:n{yG=fLnXI8_KK-HR.].l!x%ztG+ERl