379280_zh-TW

liliconcom

使我的腳本更加用戶友好

 

由於對腳本編寫非常陌生，我能夠生成此腳本來幫助我的研究小組簡化一些數據分析。 到目前為止，它還不是很用戶友好，（必須進入腳本並手動插入目標文件路徑，更改所有“By1”和“By1 Variable #”以匹配目標文件路徑定義的樣本名稱（ By1 = 目標文件路徑），並手動關閉腳本打開的所有數據、表格和報告窗口。 我試圖通過腳本索引自學如何克服所有這些障礙並簡化腳本，但進展相對緩慢。

 

我的目標是操作員只需與兩個提示窗口交互，一個提示窗口要求您指定要打開的文件，然後一個提示窗口保存最終生成的數據表，同時關閉腳本生成的所有窗口。

 

歡迎任何建議和提示，第一次在 JSL 中學習腳本是非常愉快的！

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;

 

 

自動化和腳本編寫數據混合和清理回复：使我的腳本更加用戶友好

我弄清楚了打開和關閉函數，但仍然無法弄清楚如何從打開的文件 By1 列中的數據自動填充 Fit Group 部分中的 By1 變量。

 

有什麼建議麼？下面更新了腳本

 

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