Change Point Detection Alert Email

Valerie_Nedbal

Hi there,

is there a way how JMP can send alert email for a change point detection using the Multivariate Control Chart.

Thanks in advance,

Valerie 

ian_jmp

Using the approach below, I guess you can send alerts from more or less any platform. Untested in this case, though!

NamesDefaultToHere(1);

dt = Open("$SAMPLE_DATA/Quality Control/Gravel.jmp");

// Do the change point detection
mvcc = dt << Multivariate Control Chart(
					Y( :Large, :Medium ),
					T Square Chart( 0 ),
					Change Point Detection( 1 ),
					SendToReport(
						Dispatch(
							{"Change Point Detection"},
							"Change Point Detection",
							FrameBox,
							{Frame Size( 338, 127 )}
						)
					)
				);

// Get the data 'behind' the Test Statistic plot
fb = Report(mvcc)[FrameBox(1)];
seg = (fb << Find Seg( Marker Seg( 1 ) ));
x = seg << getXvalues;
y = seg << getYvalues;

// Find any test statistics bigger than 1.0
bigYpos = Loc(y > 1.0);

// Alert on the first exception (if there is one)
if (NRow(bigY) > 0,
	yVal = y[bigYpos[1]];
	xVal = x[bigYpos[1]];
	Mail(
		"ian.cox@jmp.com",
		"Change Point Detected",
		"At row number "||Char(xVal)||".",
		dt << getName;
		);
	);