How to write text into a JMP report, Fit model

[#1]

Hi there,

I was wondering if I could get some help with writing a note into a JMP script for fitting a model. I have the following JMP script that I want to add notes in for each model fit in the group of 4:

Fit Model(
	SendToByGroup( {:group 1 == "A", :group 2 == "C"} ),
// add a manual note here
	Y( :Y ),
	By( :group 1, :group 2 ),
	Effects( :X ),
	Personality( "Standard Least Squares" ),
	Emphasis( "Effect Leverage" ),
	SendToByGroup(
		{:group 1 == "A", :group 2 == "C"},
		Run(
			:Y << {Summary of Fit( 1 ), Analysis of Variance( 1 ),
			Parameter Estimates( 1 ), Scaled Estimates( 0 ),
			Plot Actual by Predicted( 1 ), Plot Residual by Predicted( 1 ),
			Plot Studentized Residuals( 0 ), Plot Effect Leverage( 1 ),
			Plot Residual by Normal Quantiles( 0 ), Box Cox Y Transformation( 0 )}
		)
	),
	SendToByGroup(
// add a manual note here
		{:group 1 == "A", :group 2 == "D"},
		Run(
			:Y << {Summary of Fit( 1 ), Analysis of Variance( 0 ),
			Parameter Estimates( 1 ), Lack of Fit( 0 ),
			Plot Actual by Predicted( 0 ), Plot Residual by Predicted( 0 ),
			Plot Studentized Residuals( 0 ), Plot Effect Leverage( 0 ),
			Plot Residual by Normal Quantiles( 0 ), Box Cox Y Transformation( 0 )}
		)
	),
	SendToByGroup(
// add a manual note here
		{:group 1 == "B", :group 2 == "C"},
		Run(
			:Y << {Summary of Fit( 1 ), Analysis of Variance( 0 ),
			Parameter Estimates( 1 ), Lack of Fit( 0 ),
			Plot Actual by Predicted( 0 ), Plot Residual by Predicted( 0 ),
			Plot Studentized Residuals( 0 ), Plot Effect Leverage( 0 ),
			Plot Residual by Normal Quantiles( 0 ), Box Cox Y Transformation( 0 )}
		)
	),
	SendToByGroup(
// add a manual note here
		{:group 1 == "B", :group 2 == "D"},
		Run(
			:Y << {Summary of Fit( 1 ), Analysis of Variance( 1 ),
			Parameter Estimates( 1 ), Lack of Fit( 0 ), Scaled Estimates( 0 ),
			Plot Actual by Predicted( 1 ), Plot Residual by Predicted( 1 ),
			Plot Studentized Residuals( 0 ), Plot Effect Leverage( 1 ),
			Plot Residual by Normal Quantiles( 0 ), Box Cox Y Transformation( 0 )}
		)
	)
)

Is there a way to write a note so that I can say, above the JMP output in the JMP report for a model fit "this is the model fit for ... which shows ..."

[#2]

My bad, I forgot to upload the JMP file with the data. 

[#3 · Accepted solution]

I am not aware of being able to add a displayable note at the points in your script where you indicate, however, such notes can be added at the bottom of the script.  See my example

Names Default To Here( 1 );
dt = Current Data Table();
fm = Fit Model(By( :group 1, :group 2 ),
	SendToByGroup( {:group 1 == "A", :group 2 == "C"} ),
// add a manual note here
	Y( :Y ),
	Effects( :X ),
	Personality( "Standard Least Squares" ),
	Emphasis( "Effect Leverage" ),
	SendToByGroup(
		{:group 1 == "A", :group 2 == "C"},
		Run(
			:Y << {Summary of Fit( 1 ), Analysis of Variance( 1 ),
			Parameter Estimates( 1 ), Scaled Estimates( 0 ),
			Plot Actual by Predicted( 1 ), Plot Residual by Predicted( 1 ),
			Plot Studentized Residuals( 0 ), Plot Effect Leverage( 1 ),
			Plot Residual by Normal Quantiles( 0 ), Box Cox Y Transformation( 0 )}
		)
	),
	SendToByGroup(
// add a manual note here
		{:group 1 == "A", :group 2 == "D"},
		Run(
			:Y << {Summary of Fit( 1 ), Analysis of Variance( 0 ),
			Parameter Estimates( 1 ), Lack of Fit( 0 ),
			Plot Actual by Predicted( 0 ), Plot Residual by Predicted( 0 ),
			Plot Studentized Residuals( 0 ), Plot Effect Leverage( 0 ),
			Plot Residual by Normal Quantiles( 0 ), Box Cox Y Transformation( 0 )}
		)
	),
	SendToByGroup(
// add a manual note here
		{:group 1 == "B", :group 2 == "C"},
		Run(
			:Y << {Summary of Fit( 1 ), Analysis of Variance( 0 ),
			Parameter Estimates( 1 ), Lack of Fit( 0 ),
			Plot Actual by Predicted( 0 ), Plot Residual by Predicted( 0 ),
			Plot Studentized Residuals( 0 ), Plot Effect Leverage( 0 ),
			Plot Residual by Normal Quantiles( 0 ), Box Cox Y Transformation( 0 )}
		)
	),
	SendToByGroup(
// add a manual note here
		{:group 1 == "B", :group 2 == "D"},
		Run(
			:Y << {Summary of Fit( 1 ), Analysis of Variance( 1 ),
			Parameter Estimates( 1 ), Lack of Fit( 0 ), Scaled Estimates( 0 ),
			Plot Actual by Predicted( 1 ), Plot Residual by Predicted( 1 ),
			Plot Studentized Residuals( 0 ), Plot Effect Leverage( 1 ),
			Plot Residual by Normal Quantiles( 0 ), Box Cox Y Transformation( 0 )}
		)
	)
);

(report(fm[1])["Response Y group 1=A, group 2=C"])<<prepend(text box("Note 1"));
(report(fm[2])[OutlineBox(1)])<<prepend(text box("Note 2"));