dt = current data table(); jjrn3 = New Window("Distribution [test_2]", << Journal); dtsum = dt << Summary( Group ( :Channel, :Test State ), invisible); For(i=1, i<=nrow(dtsum), i++, chnl = dtsum:Channel[i]; tst = dtsum:Test State[i]; gb = dt << Distribution( where(dt:Channel == chnl & dt:Test State == tst ), Stack( 1 ), Continuous Distribution( Column( :test_2 ), Horizontal Layout( 1 ), Vertical( 0 ), Fit Distribution( Normal ) ), ); // (gb << top Report)[TextBox(1)] << delete; //delete the where statement //report(gb)[OutlineBox(1)] << set title( EvalInsert("Results for IRL @ Channel=^chnl^ and Test State=^tst^")); _xx = gb<< Xpath("//ScaleBox[@charID='Y']"); _xx << Axis Setings({Min( -7 ), Max( 8 ), Inc( 1 ), Minor Ticks( 1 ), Label Row( {Show Major Grid( 1 ), Show Minor Grid( 1 )} )}); /* If( i == 1, gb << Save Presentation( "$TEMP/jmp_example2.pptx" ), gb << Save Presentation( "$TEMP/jmp_example2.pptx", Append ) ); */ gb<< Journal Window(); wait(0); gb << close window(); ); Open( "$TEMP/jmp_example2.pptx" ); //jjrn << Save Presentation( "$TEMP/jmp_example3.pptx"); //Open( "$TEMP/jmp_example3.pptx" ); // close(dtsum, NoSave); //jjrn3 << close Window(); //close(dt, No Save);