Names Default To Here( 1 ); dt = Open( "Insitu Compiled.jmp" ); // Get the statistics Summarize( dt, byGroup = By( :Oxidation ), p05 = Quantile( :Total %S for data, .05 ), p10 = Quantile( :Total %S for data, .10 ), p90 = Quantile( :Total %S for data, .90 ), p95 = Quantile( :Total %S for data, .95 ), Mean = Mean( :Total %S for data, ), Min = Min( :Total %S for data, ), Max = Max( :Total %S for data, ) ); gb = Graph Builder( Size( 528, 450 ), Show Control Panel( 0 ), Variables( X( :Oxidation ), Y( :Total %S for data ) ), Elements( Box Plot( X, Y, Legend( 6 ) ) ) ); statList = {"p05", "p10", "p90", "p95", "Mean", "Min", "Max"}; Report( gb )[FrameBox( 1 )] << Add Graphics Script( Pen Color( orange ); Pen Size( 1 ); Line Style( "Solid" ); For( s = 1, s <= N Items( statList ), s++, myMat = Eval( Parse( statList[s] ) ); For( i = 1, i <= 2, i++, matx = [0, 0]; matx[1] = Matrix( i - 1 - .18 ); matx[2] = i - 1 + .18; maty = [0, 0]; matY[1] = Matrix( myMat[i] ); matY[2] = Matrix( myMat[i] ); Line( matx, maty ); ); ); );