Description Usage Arguments Value Author(s) Examples
This function can compute the lag of the first local on the auto-correlation function (acf) of smoothed grays.
1 |
image |
character or matrix. Either path of an image section or an array representing a gray matrix. |
acf |
logical. If TRUE the output is extended with the acf. |
... |
arguments to be passed to |
constant value of the first local on the acf of the
smoothed gray. If acf is TRUE then the computed acf is
added to the output (see linearDetect
, and
graySmoothed
).
Wilson Lara, Carlos Sierra, Felipe Bravo
1 2 3 4 5 6 7 8 9 10 | ## (not run) Read one image sample in folder of package measuRing:
image1 <- system.file("P105_a.tif", package="measuRing")
##(not run) First local in the acf of smoothed grays:
local1 <- lagIngray(image1,acf = TRUE)
##(not run) Plot of first local over the acf:
Flocal <- local1[['local']]
Clocal <- ts(local1[['acf']][Flocal,],start=Flocal)
acf <- ts(local1[['acf']],start=1)
{plot(acf,type='h',col='gray',xlab='Lag',main='First local lag')
points(Clocal,pch=19,cex=0.5)}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.