Editar/Actualizar.
Así que configuré algo de JSL y edité todo lo que pude imaginar, pero sigo teniendo un obstáculo. Parece que no puedo colapsar/ocultar las subventanas de Student t Test.
¿Hay un BKM para simplemente generar el gráfico YbyX, los círculos, el histograma en el nivel superior y luego el "Informe de análisis de varianza, resumen y diferencia ordenada en el nivel inferior?

obj = Oneway(
Y( :MEAN ),
X( :TOOL_PROCESS_CHAMBER ),
By(, :CHART_ID),
Means( 1 ), //means/anova/pooled t
Each Pair( //student's t-Test
1,
Difference Matrix( 0 ),
Confidence Quantile( 0 ),
LSD Threshold Matrix( 0 ),
Connecting Letters Report( 0 ),
Ordered Differences Report( 1 ),
Detailed Comparisons Report( 0 )
),
//t Test ( 1), //standard t-test, only works on 2chamber charts
//Means and Std Dev( 1 ), //extra table for count, Mean, StDev
//Histograms( 1 ), // move this to the end so control position? obj << histograms(1);
//Formatting
Points Jittered( 1 ),
Box Plots( 1 ),
Mean Diamonds( 0 ),
Mean Error Bars( 0 ),
Std Dev Lines( 0 ),
Grand Mean( 0 ),
SendToReport(
//x-axis formatting
Dispatch(
{},
"2",
ScaleBox,
{Label Row(
{Label Orientation( "Angled" ), Lower Frame( 1 ),
Show Major Grid( 1 ), Tick Mark Style( "Long Divider" )}
)
}
),
//row legend by chamber
Dispatch(
{},
"Oneway Plot",
FrameBox,
{Marker Size( 6 ), Marker Drawing Mode( "Normal" ),
Row Legend(
:TOOL_PROCESS_CHAMBER,
Color( 1 ),
Color Theme( "JMP Default" ),
Marker( 0 ),
Marker Theme( "" ),
Continuous Scale( 0 ),
Reverse Scale( 0 ),
Excluded Rows( 0 )
)
}
),
//formatting the Summary table
Dispatch({"Means and Std Deviations"},"",
TableBox,
{Set Column Borders( 1 ),
Set Row Borders( 1 ),
Set Underline Headings( 1 ),
Set Shade Headings( 1 )}
),
Dispatch({"Means and Std Deviations"},"Mean",NumberColBox,{Set Format( "Fixed Dec", 9, 2 )}),
Dispatch({"Means and Std Deviations"},"Std Dev",NumberColBox,{Set Format( "Fixed Dec", 9, 2 )}),
Dispatch({"Means and Std Deviations"},"Std Err Mean",NumberColBox,{Visibility( "Collapse" )}),
Dispatch({"Means and Std Deviations"},"Lower 95%",NumberColBox,{Visibility( "Collapse" )}),
Dispatch({"Means and Std Deviations"},"Upper 95%",NumberColBox,{Visibility( "Collapse" )}),
//formatting the "t Test"" tables
Dispatch({"t Test"},"",
TableBox,
{Set Column Borders( 1 ),
Set Row Borders( 1 )}
),
Dispatch( {"t Test"}, "", StringColBox, {Visibility( "Collapse" )} ),
Dispatch( {"t Test"}, "", ColStackBox, {Visibility( "Collapse" )} ),
//formatting the "Each Pair, Student's t" tables
Dispatch({"Means Comparisons", "Comparisons for each pair using Student's t","Ordered Differences Report"},"",
TableBox,
{Set Column Borders( 1 ),
Set Row Borders( 1 ),
Set Underline Headings( 1 )}
),
Dispatch({"Means Comparisons", "Comparisons for each pair using Student's t","Ordered Differences Report"},"Difference",NumberColBox,{Set Format( "Fixed Dec", 9, 2 )} ),
Dispatch({"Means Comparisons", "Comparisons for each pair using Student's t","Ordered Differences Report"},"Std Err Dif",NumberColBox,{Set Format( "Fixed Dec", 9, 2 )}),
Dispatch({"Means Comparisons", "Comparisons for each pair using Student's t","Ordered Differences Report"},"Lower CL",NumberColBox,{Visibility( "Collapse" )}),
Dispatch({"Means Comparisons", "Comparisons for each pair using Student's t","Ordered Differences Report"},"Upper CL",NumberColBox,{Visibility( "Collapse" )}),
Dispatch({"Means Comparisons", "Comparisons for each pair using Student's t","Ordered Differences Report"},"~Difference",PlotColBox,{Visibility( "Collapse" )}),
//formatting the "Means/Anova/Pooled t Test" tables
Dispatch({"Oneway Anova", "Summary of Fit"},"",
TableBox,
{Set Column Borders( 1 ),
Set Row Borders( 1 )}
),
Dispatch({"Oneway Anova", "Pooled t Test"},"",StringColBox,{Visibility( "Collapse" )}),
Dispatch({"Oneway Anova", "Pooled t Test"},"",ColStackBox,{Visibility( "Collapse" )}),
Dispatch({"Oneway Anova", "Analysis of Variance"},"",
TableBox,
{Set Column Borders( 1 ),
Set Row Borders( 1 ),
Set Underline Headings( 1 )}
),
Dispatch({"Oneway Anova", "Analysis of Variance"},"DF",NumberColBox,{Visibility( "Collapse" )}),
Dispatch({"Oneway Anova", "Analysis of Variance"},"Sum of Squares",NumberColBox,{Visibility( "Collapse" )}),
Dispatch({"Oneway Anova", "Analysis of Variance"},"Mean Square",NumberColBox,{Visibility( "Collapse" )}),
Dispatch({"Oneway Anova", "Analysis of Variance"},"F Ratio",NumberColBox,{Visibility( "Collapse" )}),
Dispatch({"Oneway Anova", "Means for Oneway Anova"},"",
TableBox,
{Set Column Borders( 1 ),
Set Row Borders( 1 ),
Set Underline Headings( 1 )}
),
Dispatch({"Oneway Anova", "Means for Oneway Anova"},"Mean",NumberColBox,{Set Format( "Fixed Dec", 8, 2 )}),
Dispatch({"Oneway Anova", "Means for Oneway Anova"},"Std Error",NumberColBox,{Set Format( "Fixed Dec", 7, 2 )}),
Dispatch({"Oneway Anova", "Means for Oneway Anova"},"Lower 95%",NumberColBox,{Visibility( "Collapse" )}),
Dispatch({"Oneway Anova", "Means for Oneway Anova"},"Upper 95%",NumberColBox,{Visibility( "Collapse" )})
)
);
obj << histograms(1);
(current report() << xpath("//BoxPlotSeg")) << set line color(black); //sets boxplot to BLACK lines
Es muy curioso cómo hacer que esto suceda. Tengo una larga lista de gráficos, algunos con 2 cámaras, otros con más de 3 cámaras. Me gustaría crear un script de tipo prueba t para estandarizar la salida. ¿Algún consejo? Hay partes y piezas que me gustan de varias opciones diferentes.
Meta:
- generar un gráfico con diagramas circulares t de Student
- generar un 'informe resumido' con recuento de muestras, media, stDev
- generar un valor p para todo el gráfico (Medias/Anova/t agrupada")
- (es bueno tenerlo: valor p por pares y etiquetado, pero no es tan importante).
He notado que las opciones y los resultados son bastante diferentes si tengo un gráfico de 2 muestras frente a un gráfico de más de 3 muestras.
¿Algún consejo sobre cómo escribir esto?
ejemplos
