BookmarkSubscribeRSS Feed
RK1

Occasional Contributor

Joined:

Feb 7, 2018

Append Journals

i am running a for loop to select different data tables and run variability chart for select parameters. The script is creating different report journals for each data table. Can any one one please help me in merging all the report journals together.

 

 

Var_chart= Function ({select_y,select_x},
current data table (dt_sub);
Rep_chart = Variability Chart(
Y( Eval (select_y) ),
X( Eval (select_x) ),
Max Iter( 100 ),
Conv Limit( 0.00000001 ),
Number Integration Abscissas( 128 ),
Number Function Evals( 65536 ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Std Dev Chart( 0 ),
Variability Summary Report(1),
Historical Sigma( 0 ),
Show Group Means( 1 ),
Show Grand Mean( 1 ),
Show Box Plots( 1 )
),


Rep_var_chart = Rep_chart << Report;
Rep_var_chart << Page Break;
Rep_var_chart << Journal Window;
Rep_Jrn << Append (Rep_var_chart);

close (dt_sub, No Save);
);


ma =1;
col_name_list ={};
Rep_Jrn= New Window ("Report", << Journal);
For (l=1,l <= NItems (test_list), l++,
open_path1 = L_path1||test_list[l]||"_"||"Com"||".jmp";
dt_sub= open (open_path1);
col_name_list[ma] = dt_sub << get column names ();
//ma=ma+1;


New Window( "Select Tests for Analysis", <<Modal,

V List Box(

Text Box( "Select Y,Response" ),

para_select1 = List Box( col_name_list[ma] ),

Text Box( "Select X,Response" ),
para_select2 = List Box( col_name_list[ma] ),

Button Box( "OK", test_list1 = para_select1 << get selected;
test_list2 = para_select2 << get selected ),

);

);

print(test_list1);
print (test_list2);

Var_chart (test_list1,test_list2);


ma=ma+1;

//close(dt_sub, NO Save);
);

3 REPLIES
txnelson

Super User

Joined:

Jun 22, 2012

Re: Append Journals

If after your

ma = ma + 1;

you just need to add

Rep_Jrn << append(report(Rep_chart));
Jim
RK1

Occasional Contributor

Joined:

Feb 7, 2018

Re: Append Journals

i tried, but its not working. Giving an error.. 

Not a display in access or evaluation of 'append' , append( Report( Rep_chart ) ) /*###*/

Highlighted
txnelson

Super User

Joined:

Jun 22, 2012

Re: Append Journals

Here is an example of being able to append platform output to a Journal.  Apparently, you are not properly pointing to the journal, or to the report output.

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );
nw = New Window( "example", <<journal );

dis = Distribution( Continuous Distribution( Column( :height ) ) );

nw << append( Report( dis ) );

dis << close window;

biv = Bivariate( Y( :height ), X( :weight ) );

nw << append( Report( biv ) );

biv << close window;
Jim