43634_de-DE

liliconcom

jsl färben Profiler und zeigen Daten in Randmodellplots an

Hallo,

 

Kann mir jemand sagen, wie man mit JSL die Funktion "Colorize Profiler" (Variable Importance) und "Show Data" (Marginal Model Plot) aktiviert?

 

Nach einem Testskript kann ich die Farbgebung und die Daten von Hand aktivieren, jedoch nicht über JSL.

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Tiretread.jmp" );
Profiler(
 Y( :Pred Formula ABRASION, :Pred Formula MODULUS, :Pred Formula ELONG, :Pred Formula HARDNESS ),

 Expand,
 Dependent Resampled Inputs( 1 ),
 Link Profilers( 1 )
   
);

Re: jsl colorize profiler und zeigt Daten in Randmodellplots an

Vielen Dank! Es klappt. Aber mein Bericht ist ein bisschen danamic (ein bis sechs Jahre). Aus diesem Grund habe ich Ihr Skript mit einer "For" - und einer "Try" -Funktion modifiziert.

Names Default To Here( 1 );
// Open Tire Tread
dt = Open( "$SAMPLE_DATA/Tiretread.jmp" );
// Use Profiler with predictions
pr = dt << Profiler(Y( :Pred Formula ABRASION, :Pred Formula MODULUS, :Pred Formula HARDNESS ),);

// Assess variable importance
pr << Dependent Resampled Inputs( 1 );

// Get the 'little red triangle' for Variable Importance
lrt = Report(pr)[OutlineBox(3)] << getScriptableObject;
lrt << Colorize Profiler;

// Get the 'little red triangle' for Marginal Plots
For (i = 1, i <= 20, i++,
Try(lrt = Report(pr)[OutlineBox(i)] << getScriptableObject;
lrt << Data;))

 

Re: jsl colorize profiler und zeigt Daten in Randmodellplots an

Ich bin sicher, dass es einen direkten Weg gibt, aber ich kann mich im Moment nicht an die Syntax erinnern. Hier ist also ein indirekter Weg (die 'Wait'-Aussagen beziehen sich natürlich auf den kosmetischen Effekt):

Names Default To Here( 1 );
// Open Tire Tread
dt = Open( "$SAMPLE_DATA/Tiretread.jmp" );
// Use Profiler with predictions
pr = dt << Profiler(Y( :Pred Formula ABRASION, :Pred Formula MODULUS, :Pred Formula ELONG, :Pred Formula HARDNESS ),);
// Assess variable importance
Wait(2);
pr << Dependent Resampled Inputs( 1 );
// Get the 'little red triangle' for Variable Importance
Wait(2);
lrt = Report(pr)[OutlineBox(3)] << getScriptableObject;
lrt << Colorize Profiler;
// Get the 'little red triangle' for Marginal Plots
Wait(2);
lrt = Report(pr)[OutlineBox(10)] << getScriptableObject;
lrt << Data;