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)
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"
A matrix containing the SMS values computed for the pixels in img.
img
Bui, A.T. and Apley., D.W. (2018a) "A Monitoring and Diagnostic Approach for Stochastic Textured Surfaces", Technometrics, 60, 1-13.
ad, bp, monitoringStat
# NOT RUN { 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