@txnelson
Quick question - I want to get the a values in the tab box table box for each of the list
For instance,
The first tab box should have the following summary stats
List1 = {"NPN1", "PNP1", "PNP2", "NPN2", "PNP3", "IVP1"};
The 2nd tab box should have the following summary stats
List2 = {"PNP4", "NPN3", "IVP2", "NPN4", "SIT1"};
Likewise for 3 and 4
I tried using set function but it copies all the columns in the one tab. Any suggestions?
dt = Open( "$SAMPLE_DATA/Semiconductor Capability.jmp" );
List1 = {"NPN1", "PNP1", "PNP2", "NPN2", "PNP3", "IVP1"};
List2 = {"PNP4", "NPN3", "IVP2", "NPN4", "SIT1"};
List3 = {"INM1", "INM2", "VPM1", "VPM2", "VPM3"};
List4 = {"SNM1", "SPM1", "NPN5", "EP2", "ZD6"};
summary_tb = (Data Table( "Semiconductor Capability" ) << Tabulate(
Add Table(
Column Table( Statistics( N, Mean, Std Dev ) ),
Row Table(
Analysis Columns(
:NPN1, :PNP1, :PNP2, :NPN2, :PNP3, :IVP1, :PNP4, :NPN3, :IVP2, :NPN4, :SIT1, :INM1, :INM2, :VPM1, :VPM2, :VPM3, :PMS1, :SNM1, :SPM1,
:NPN5, :EP2, :ZD6, :PBA, :PLG, :CAP, :PBA3, :PLG2, :PNP5, :NPN6, :PNP6, :PNP7, :NPN7, :PNP8, :IVP3, :IVP4, :IVP5, :IVP6, :PNP9, :NPN8,
:NPN9, :IVP7, :NPN10, :N_1, :PBA1, :WPR1, :B10, :PLY10, :VBE210, :VTN210, :VTP210, :SIT2, :SIT3, :INV2, :INV3, :INV4, :INV5, :FST1,
:FST2, :RES1, :RES2, :PNM1, :PPM1, :FNM1, :FPM1, :FST3, :FST4, :RES3, :RES4, :A1, :B1, :A2N, :A2P, :A2P1, :IVP8, :IVP9, :DE_H1,
:NF_H1, :ESM1, :ESM2, :ESP1, :YFU1, :VPM4, :PBA2, :PBB1, :LYA1, :LYB1, :DEM1, :DEP1, :NFM1, :PLY1, :VDP1, :VDP2, :SNW1, :RSP2, :PLY2,
:RSP1, :VDP3, :PBL1, :PLG1, :VDP4, :SPW1, :VIA1, :INM3, :VPM5, :VPM6, :INM4, :VPM7, :M1_M1, :M2_M2, :P1_P1, :E2A1, :E2B1, :NPN11,
:IVP10, :PNP10, :INM5, :VPM8, :VPM9, :INM6, :VPM10, :N2A1, :N2B1, :NM_L1, :P2A1, :P2B1, :PM_L1, :P1, :M1
)
)
)
)) << Make Into Data Table;
lists = {"List1", "List2", "List3", "List4"};
L1 = {};
L2 = {};
L3 = {};
For( i = 1, i <= N Rows( summary_tb ), i++,
For( j = 1, j <= N Items( lists ), j++,
//// Something is not correct in the below code
Eval(
Substitute(
Expr(
If( Contains( __lists__, Column( summary_tb, 1 )[i] ),
Insert Into( L1, Column( summary_tb, 1 )[i] ); // Test
Insert Into( L2, Column( summary_tb, 2 )[i] ); // N
Insert Into( L3, Column( summary_tb, 3 )[i] );// Mean
Insert Into( L4, Column( summary_tb, 3 )[i] ); // Std
)
),
Expr( __lists__ ), Parse( lists[j] )
)
)
)
);
Nw = New Window( "",
Tab Box(
"1",
V List Box(
tbb = Table Box(
tests = String Col Edit Box( "Tests", {} ),
num = Number Col Edit Box( "N", {}, <<set format( "Fixed Dec", 12 ) ),
mean1 = Number Col Edit Box( "Mean", {}, <<set format( "Fixed Dec", 12, 2 ) ),
std = Number Col Edit Box( "Std", {}, <<set format( "Fixed Dec", 12, 2 ) ),
)
),
"2",
V List Box(
tbb = Table Box(
tests = String Col Edit Box( "Tests", {} ),
num = Number Col Edit Box( "N", {}, <<set format( "Fixed Dec", 12 ) ),
mean1 = Number Col Edit Box( "Mean", {}, <<set format( "Fixed Dec", 12, 2 ) ),
std = Number Col Edit Box( "Std", {}, <<set format( "Fixed Dec", 12, 2 ) ),
)
),
"3",
V List Box(
tbb = Table Box(
tests = String Col Edit Box( "Tests", {} ),
num = Number Col Edit Box( "N", {}, <<set format( "Fixed Dec", 12 ) ),
mean1 = Number Col Edit Box( "Mean", {}, <<set format( "Fixed Dec", 12, 2 ) ),
std = Number Col Edit Box( "Std", {}, <<set format( "Fixed Dec", 12, 2 ) ),
)
),
"4",
V List Box(
tbb = Table Box(
tests = String Col Edit Box( "Tests", {} ),
num = Number Col Edit Box( "N", {}, <<set format( "Fixed Dec", 12 ) ),
mean1 = Number Col Edit Box( "Mean", {}, <<set format( "Fixed Dec", 12, 2 ) ),
std = Number Col Edit Box( "Std", {}, <<set format( "Fixed Dec", 12, 2 ) ),
)
)
)
);
tests << set(L1);
num<< set(L2);
mean1<< set(L3);
std<< set(L4);