powered by
Computes the spatial moving statistics (SMS) for pixels in a given image.
sms(img, stat = c("ad", "bp"), w, Fr, gamma = (w + 1)/2)
A matrix containing the SMS values computed for the pixels in img.
img
the image to compute the SMS for.
the statistic used in the SMS. Must be either "ad" (default) or "bp".
"ad"
"bp"
the dimension of the square moving window of the SMS. It must be an odd number >= 3.
the reference ecdf with exponential tail approximation (see exptailecdf). Only used when stat = "ad".
exptailecdf
stat = "ad"
the bandwidth parameter for kerMat. It must be a positive integer and is only used when stat = "bp". The default value is recommended.
kerMat
stat = "bp"
Anh Bui
Bui, A.T. and Apley., D.W. (2018a) "A Monitoring and Diagnostic Approach for Stochastic Textured Surfaces", Technometrics, 60, 1-13.
ad, bp, monitoringStat
img <- matrix(rnorm(100),10,10) ms.ad <- sms(img, "ad", 3, exptailecdf(rnorm(1000))) ms.bp <- sms(img, "bp", 3)
Run the code above in your browser using DataLab