43634_it-IT

liliconcom

jsl colorizza il profiler e mostra i dati nei grafici dei modelli marginali

Ciao,

 

qualcuno può dirmi come attivare la funzione "Colorize Profiler" (Variable Importance) e "Show Data" (Marginal Model Plot) con JSL?

 

Seguendo uno script di test in cui posso attivare la colorazione e i dati a mano ma non tramite 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 )
   
);

Ri: jsl colorizza il profiler e mostra i dati nei grafici dei modelli marginali

Grazie! Funziona. Ma il mio rapporto è un po 'danamico (da uno a sei anni). Per questo motivo ho modificato il tuo script con una funzione "For" e una "Try".

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;))

 

Ri: jsl colorizza il profiler e mostra i dati nei grafici dei modelli marginali

Sono sicuro che c'è un modo diretto per farlo, ma al momento non riesco a ricordare la sintassi. Quindi ecco un modo indiretto (le dichiarazioni 'Aspetta' sono per effetto cosmetico, ovviamente):

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;