Hola Nathan,
Usted planteó una pregunta intrigante: teniendo en cuenta que no puede modificar manualmente el color de la línea de ajuste en la plataforma Fit Curve, no conozco ningún método elegante para cambiar la configuración después de que se haya llamado al gráfico como lo haría en GB. .
Por lo tanto, se me ocurrió un simple truco sucio: cambiar el tema de color antes de llamar a la plataforma Fit Curve. Es feo pero parece funcionar, mira a continuación:
Names Default to Here (1);
dt = New Table( "TEST for FIT", //DUMMY TABLE
Add Rows( 100 ),
New Column( "X1",
Numeric,
"Continuous",
Format( "Best", 12 ),
Set Values(
[-1.75737689252763, -0.764592545628707, 0.0510173405612358,
0.296947452630042, 1.07254119757705, -0.457175811296141, 2.2967706289395,
-2.03142875936277, -0.363048769682677, -0.5070633105302,
0.154495773405026, 0.369788925828579, 0.597166128844207,
-1.07960670306945, -1.30872421085908, 0.130645965468011,
-0.412897094133047, 0.9255870864491, -1.8301802424961, -1.7841388270802,
1.09327584758963, 0.182884026871625, 0.424531175652736,
0.0556158029054966, -0.640709634446687, 0.418565044637002,
0.116564045292701, -2.12143236669799, -0.331469472169104,
-1.24179988452203, 0.155735483143868, -0.00138870426949338,
0.466001490590278, 1.36589200985638, -3.22275463841887,
-0.800508277125038, -1.78007607611038, -1.21967208140065,
1.30176200548787, -0.480892428153654, 0.158765967966113,
-0.127576464285864, 0.252459427763925, -1.68598410912989,
-0.1970956676386, 1.55034428468064, -1.22708700695268,
-0.0605279865915366, -1.49250653248953, -0.162256456084438,
-0.0652649037086258, 0.00797946402916947, -1.35256879313255,
-0.652285809936282, -0.934510673918681, -1.05100651980935,
-0.791137119509579, -0.204256037124367, 0.870279762249423,
-0.445336826845759, 0.795010489801338, 0.0995886571396687,
-0.416148453467265, -2.01017021764025, -1.81678701825346,
1.69323861834956, 0.143536807692393, -0.0336633898898059,
-1.09589423234423, 0.80081362059253, 0.934714505656128, 1.2393741198206,
0.33824576332954, -0.292203308012728, 0.505302707503523,
-1.00205691512905, 0.0466520972335475, 0.223145974635781,
-0.624589588016431, 1.28323068510501, 0.50670682478464,
0.0700531578104748, -2.50121391459843, 1.05477568536072,
-0.0969894453114527, -3.13034948200876, -0.772134746161867,
-1.16109167197385, 1.35393467256404, -0.232421055502557,
-0.28636706790363, 0.434413591597962, 0.742704293993728,
-0.646790477388557, -1.64641063868416, 1.2771435491761,
0.639487960805282, 1.747183899193, 0.585001038344993, 0.930693565426168]
)
),
New Column( "X2",
Numeric,
"Continuous",
Format( "Best", 12 ),
Set Values(
[6.0198103129928, 7.20091205222843, 4.65070026886468, 3.17670690687595,
5.03355092227052, 6.30151380427266, 5.24386848221495, 6.90048447961645,
9.20918236706509, 4.41506689039341, 7.73943697235743, 4.99394902047945,
3.65679903427308, 4.83267420173453, 6.74796638714244, 5.38200291743643,
2.94085457642222, 6.23822904145476, 3.79435790981074, 2.98732948494231,
7.90936901554754, 3.82084295664395, 4.93889136576797, 4.867614989468,
6.79411638520983, 4.63770841913521, 5.72297568708847, 5.67278210743382,
2.87898040841589, 4.77794431031051, 6.69989934770925, 4.18010020602993,
4.28229869222054, 6.47325820610683, 5.73193412972703, 0.836060701792944,
4.37959357272853, 4.48982482007942, 4.09977961461508, 4.96013142226247,
6.45031157468394, 3.18557718923309, 5.28451580294059, 5.44547778148437,
8.83919395262557, 6.08940873455808, 5.40325273508031, 5.43500364366441,
3.07766204858337, 4.89637627661071, 6.14412510760593, -0.485587355920933,
6.20311099333472, 5.09962057513129, 0.983662156370214, 4.56520333800937,
3.40784971252274, 6.6538883206875, 6.00252057357039, 7.97238557914813,
2.71015418553192, 3.96580809447913, 7.78900888660749, 4.28555518962493,
6.01393747682294, 5.94907034495602, 9.84611706857246, 5.79850505627085,
5.67541478004717, 4.30408910278679, 5.40321729312776, 5.85341408571007,
4.94639447712469, 4.34708559266172, 4.73871246438279, 3.19787036834528,
1.00957590923624, 2.47971892470545, 6.20071963231195, 6.97684170194268,
9.22965462317164, 6.53609378001856, 5.81203830009249, 10.5481367361956,
6.16969124017285, 4.21970045748313, 5.07606287078316, 2.52494896388046,
8.31352516884491, 3.71846400818337, 4.02334289547053, 5.86633070726614,
4.88813438851164, 2.8026412414906, 2.93427614698916, 4.14856696486954,
3.65940024812031, 7.15564460250633, 4.31207256865605, 5.1138900371015]
)
),
New Column( "Y",
Numeric,
"Continuous",
Format( "Best", 12 ),
Formula( :X1 + :X2 + Random Normal( 0, 0.5 ) ),
Set Selected
)
);
// This one the ugliest piece of script I put together but it seems to work
Show (Get Preference( Categorical Color Theme ));
Set Preference( Categorical Color Theme( "Jet" ) ); // CHANGE THE COLOR THEME BEFORE CALLING Fit Curve
Show (Get Preference( Categorical Color Theme ));
Fit Curve( Y( :Y ), X( :X1 ), Fit Linear, Fit Cubic );
Set preference (Categorical Color Theme ("JMP Default")); //RESTORES JMP Default Color Theme
Show (Get Preference( Categorical Color Theme ));