314886_zh-CN

liliconcom

变更点检测警报电子邮件

嗨，您好，

有一种方法可以使JMP使用多变量控制图发送警报电子邮件以进行更改点检测。

提前致谢，

瓦莱丽

回复：更改点检测警报电子邮件

使用以下方法，我想您可以从或多或少从任何平台发送警报。 在这种情况下，未经测试！

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,
 vVal = y[bigYpos[1]];
 xVal = x[bigYpos[1]];
 Mail(
  "ian.cox@jmp.com",
  "Change Point Detected",
  "At row number "||Char(xVal)||".",
  dt << getName;
  );
 );