Customized report Help

AndresGlez

Hi there, just in a different post of missing outlines in report @danschikore helped me with a report I used to generate, hope you help me again. Below is the complete script I use (in fact I need to generate 2 reports), that is why I used to cut in pieces the generated reports and then glue them together.

The way you helped me fix the first report was excellent, now I am wondering, what is the best approach to do it as I need to generate 2 separate reports?

First is exactly as the one you generated and Second is only the Variances Test result. Below is the whole script I did. Let me know what approach I should follow to separate them as in my example for 2 reports. Thank you!!!

 

Open("$SAMPLE_DATA/Animals.jmp");
biv = DATA TABLE ( "Animals")
<< Oneway(
Y( :miles ),
X( :season ),
All Pairs( 1 ),
With Control( 1, {"fall"} ),
Quantiles( 1 ),
Means and Std Dev( 1 ),
Unequal Variances( 1 ),
Box Plots( 1 ),
Mean Error Bars( 1 ),
Std Dev Lines( 1 ),
Connect Means( 1 ),
X Axis Proportional( 0 ),
Points Jittered( 1 ),
Grand Mean( 0 ),
SendToReport(

Dispatch(
{},
"Oneway Plot",
FrameBox,
{DispatchSeg(
Box Plot Seg( 1 ),
{Confidence Diamond( 0 ), Line Color( "Red" )}
), DispatchSeg(
Box Plot Seg( 2 ),
{Confidence Diamond( 0 ), Line Color( "Red" )}
), DispatchSeg(
Box Plot Seg( 3 ),
{Confidence Diamond( 0 ), Line Color( "Red" )}
), DispatchSeg(
Box Plot Seg( 4 ),
{Confidence Diamond( 0 ), Line Color( "Red" )}
), Row Legend(
season,
Color( 1 ),
Color Theme( "JMP Default" ),
Marker( 0 ),
Marker Theme( "" ),
Continuous Scale( 0 ),
Reverse Scale( 0 ),
Excluded Rows( 0 )
)}
),
Dispatch(
{"Means Comparisons", "Comparisons for all pairs using Tukey-Kramer HSD"
},
"Ordered Differences Report",
OutlineBox,
{Set Title( "Means Comparisons Report" )}
),
Dispatch(
{},
"Tests that the Variances are Equal",
OutlineBox,
{Set Title( "Tests that the Variances are Equal" )}
)
)
);
reportbiv = biv << report;
chart1 = reportbiv [Outline Box(1)][Axis Box( 1 )] << get picture; // Y Axis
chart2 = reportbiv [Outline Box(1)][List Box( 3 )] << get picture; //Chart
chart3 = reportbiv [Outline Box(1)][List Box( 5 )] << get picture; // Donuts
chart4 = reportbiv [Outline Box(1)][table Box( 1 )] << get picture; // Conditions
chart5 = reportbiv [Outline Box("Quantiles")] << get picture; // Quantiles
chart6 = reportbiv [Outline Box("Means and Std Deviations")] << get picture; // Means and Std Dev
chart7 = reportbiv [Outline Box("Means Comparisons Report")] << get picture; // Means Comparison
chart8 = reportbiv [Outline Box(13)] << get picture; // Variances
biv1 = New Window( "Report",
V List Box(OutlineBox( "Oneway Analysis of Animals", TextBox("",<<SetWidth(535)), ... ),
H List Box(
Table Box( chart1 ),
Table Box( chart2 ),
Table Box( chart3 ),
Table Box( chart4 )),
Table Box( chart5 ),
Table Box( chart6 ),
Table Box( chart7 )
));
biv1 << save picture ( "$DOCUMENTS\ANOVA Animals.png", png );
//biv 1 << Close Window;biv1
biv2 = New Window( "Report",
Outline Box( "", Table Box( chart8 ) ));
biv2 << save picture ( "$DOCUMENTS\Variances Animals.png", png );
//biv 1 << Close Window;

danschikore

In your second example, you clone a display tree starting at an Outline Box, and that works just fine.  You could do the same thing with the first report, cloning the tree (either completely or in parts) and then applying the customizations.

 

The difficulty with converting boxes to images is that some boxes depend on their surroundings in ways that could be lost after the copy.  For example, axis labels may extend beyond the bounds of the box:

 

Axes and Frames are also arranged carefully to make sure that they are lined up correctly - converting to images and gluing together may affect this alignment.

 

Other examples are things like adjacent border boxes, which will share an edge and produce a single-line at the shared border.  If you take an image of just one of those boxes, you may find that an edge is not drawn.

 

For these reasons I prefer to manipulate the boxes to produce a custom report, rather than assembling a collection of images.  Your second example, cloning a portion of the report into a new window, is a great way to do that.