379280_it-IT

liliconcom

Rendere il mio script più user-friendly

 

Essendo molto nuovo allo scripting, sono stato in grado di generare questo script per semplificare alcune analisi dei dati per il mio gruppo di ricerca. A partire da ora, non è molto facile da usare (è necessario accedere allo script e inserire manualmente il percorso del file di destinazione, modificare tutti i 'By1' e 'By1 Variable #' in modo che corrispondano al nome del campione definito da By1 = Target File Path) e chiudere manualmente tutte le finestre di dati, tabulazioni e report che lo script apre. Sto cercando di insegnare a me stesso attraverso l'indice di scripting come superare tutti questi ostacoli e semplificare lo script, ma è relativamente lento.

 

Il mio obiettivo è che l'operatore debba interagire solo con due finestre di prompt, una che ti chiede di designare il file che vuoi aprire e poi una per salvare la tabella di dati generata finale, chiudendo tutte le finestre generate dallo script.

 

Eventuali suggerimenti e suggerimenti sono ben accetti, imparare lo scripting per la prima volta in JSL è molto divertente!

Names Default To Here( 1 );

dt = Open( "Target File Path");
obj = dt << Tabulate(
 Add Table(
  Column Table(
   Analysis Columns( :X1, :Y, :X2, :X3 ),
   Statistics( Mean )
  ),
  Row Table( Grouping Columns( :By1, :By2 ) )
 )
);

obj << Make into Data Table;
nw = New Window ("Bivarate By2 Fit",
 V List Box(
  Fit Group(
   Biv = Bivariate(
    SendToByGroup( {:By1 == "By1 Variable 1"} ),
    SendToByGroup( {:By1 == "By1 Variable 1"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 1", Platform Index( 2 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 1", Platform Index( 3 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 2"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 2", Platform Index( 2 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 2", Platform Index( 3 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 3"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 3", Platform Index( 2 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 3", Platform Index( 3 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 4"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 4", Platform Index( 2 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 4", Platform Index( 3 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 5"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 5", Platform Index( 2 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 5", Platform Index( 3 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 6"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 6", Platform Index( 2 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 6", Platform Index( 3 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 7"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 7", Platform Index( 2 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 7", Platform Index( 3 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 8"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 8", Platform Index( 2 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 8", Platform Index( 3 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    X( :Name( "Mean(Y)" ) ),
    Fit Line( {Line Color( {212, 73, 88} )} ),
    By( :By1 )
   )
  ) 
 )
);
Report ( Biv[1] ) ["Parameter Estimates"][Table Box(1)] << Make Combined Data Table;
dt = current data table ();
obj = dt << Split(
 Split By( :Term ),
 Split( :Y, :By1, :Estimate ),
 Remaining Columns( Drop All ),
 Sort by Column Property
);
New Column( "By2", Numeric, Continuous );
:"By2" << Format( "Percent", ,2 );
:"Estimate Mean(Y)" << Set Name ("Estimate Mean");
dt = current data table();
col =Column(dt, "By2");
col << Set Formula (:Estimate Mean() / :Estimate Intercept);
obj = dt << Tabulate(
 Add Table(
  Column Table(
   Grouping Columns( :By1 Intercept ),
   Analysis Columns( :By2 )
  ),
  Row Table( Grouping Columns( :Y Intercept ) )
 )
);

obj << Make into Data Table;

 

 

AnalyticsTabella datiScriptingRi: Rendere il mio script più user-friendly

Ho capito le funzioni di apertura e chiusura, ma ho ancora problemi a capire come compilare automaticamente la variabile By1 nella sezione Fit Group dai dati nella colonna By1 dei file aperti.

 

Eventuali suggerimenti? script aggiornato di seguito

 

dt1 = Open(
 Pick File("Select JMP File",
 "$Documents",
 {"JMP Files|jmp", "All Files|*"},
 1,
 0 
 )
);

obj1 = dt1 << Tabulate(
 Add Table(
  Column Table(
   Analysis Columns( :X1, :Y, :X2, :X3 ),
   Statistics( Mean )
  ),
  Row Table( Grouping Columns( :By1, :By2 ) )
 )
); 

obj1 << Make into Data Table;
dt2 = current data table();
Close (dt1);

nw1 = New Window ("Bivarate Fit",
 V List Box(
  Fit Group(
   Biv = Bivariate(
    SendToByGroup( {:By1 == "Series-1"} ),
    SendToByGroup( {:By1 == "Series-1"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "Series-1", Platform Index( 2 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup(
     {:By1 == "Series-1", Platform Index( 3 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 2"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 2", Platform Index( 2 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 2", Platform Index( 3 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 3"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 3", Platform Index( 2 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 3", Platform Index( 3 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 4"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 4", Platform Index( 2 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 4", Platform Index( 3 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 5"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 5", Platform Index( 2 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 5", Platform Index( 3 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 6"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 6", Platform Index( 2 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 6", Platform Index( 3 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 7"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 7", Platform Index( 2 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 7", Platform Index( 3 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 8"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 8", Platform Index( 2 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 8", Platform Index( 3 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 9"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 9", Platform Index( 2 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 9", Platform Index( 3 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    SendToByGroup( {:By1 == "By1 Variable 10"}, Y( :Name( "Mean(X1)" ) ) ),
    SendToByGroup(
     {:By1 == "By1 Variable 10", Platform Index( 2 )},
     Y( :Name( "Mean(X2)" ) )
    ),
    SendToByGroup(
     {:By1 == "By1 Variable 10", Platform Index( 3 )},
     Y( :Name( "Mean(X3)" ) )
    ),
    X( :Name( "Mean(Y)" ) ),
    Fit Line( {Line Color( {212, 73, 88} )} ),
    By( :By1 )
   )
  ) 
 )
);

Report ( Biv[1] ) ["Parameter Estimates"][Table Box(1)] << Make Combined Data Table;
dt3 = current data table ();
obj2 = dt3 << Split(
 Split By( :Term ),
 Split( :Y, :By1, :Estimate ),
 Remaining Columns( Drop All ),
 Sort by Column Property
);
New Column( "By2", Numeric, Continuous );
:"By2" << Format( "Percent", ,2 );
:"Estimate Mean(Y)" << Set Name ("Estimate Mean");

Close (dt3);

dt4 = current data table();
col =Column(dt4, "By2");
col << Set Formula (:Estimate Mean() / :Estimate Intercept);
obj3 = dt4 << Tabulate(
 Add Table(
  Column Table(
   Grouping Columns( :By1 Intercept ),
   Analysis Columns( :By2 )
  ),
  Row Table( Grouping Columns( :Y Intercept ) )
 )
);

obj 3 << Make Into Data Table;
Close (dt4);

dt = current data table();
If( dt << Save( "" ),
 Write( "\!nsaved to " || (dt << GetPath) ),
 Write( "\!nsave canceled" )
);