Package 'textile'

Title: Textile Images
Description: Contains real images of the same textile material with/without local defects, which were used in Bui and Apley (2018) <doi:10.1080/00401706.2017.1302362>.
Authors: Anh Bui [aut, cre] and Daniel Apley [ths]
Maintainer: Anh Bui <[email protected]>
License: GPL-2
Version: 0.1.4
Built: 2024-10-31 22:26:49 UTC
Source: CRAN

Help Index


Textile Images

Description

Real images of the same textile material with/without local defects, which were used in Bui and Apley (2018).

Usage

data("trainImg")
data("icImgs")
data("ocImgs")

Format

The data set contains the following:

trainImg

an integer matrix

icImgs

a 4-dimensional integer array

ocImgs

a 4-dimensional integer array

Details

The images were taken at a scale that shows their weave patterns, which exhibit a great deal of stochastic behavior. They are examples of the stochastic textured surface data, defined in Bui and Apley (2018). These images were used in Bui and Apley (2018) to demonstrate their general approach for monitoring and diagnosing stochastic textured surface data for local defects. The data set contains three objects:

trainImg stores the greyscale values of a textile image of size 500x500 pixels without local defects. It can be used to train a supervised learning model that captures the normal in-control statistical behavior of the textile.

icImgs stores the greyscale values of 94 textile images of size 250x250 pixels without local defects. These images can be used to establish the control limits and diagnostic thresholds.

ocImgs stores the greyscale values of 6 textile images of size 250x250 pixels with local defects. These images can be used to test the constructed control limits and diagnostic thresholds.

References

Bui, A.T., and Apley., D.W. (2018). A Monitoring and Diagnostic Approach for Stochastic Textured Surfaces. Technometrics, 60, 1-13.

Examples

data("trainImg")
image(1:ncol(trainImg), 1:nrow(trainImg), as.matrix(t(apply(trainImg , 2, rev))),
          col = gray((0:32)/32), xlab="", ylab="")

data("icImgs")
image(1:dim(icImgs)[1], 1:dim(icImgs)[2], as.matrix(t(apply(icImgs[,,1] , 2, rev))),
          col = gray((0:32)/32), xlab="", ylab="")

data("ocImgs")
image(1:dim(ocImgs)[1], 1:dim(ocImgs)[2], as.matrix(t(apply(ocImgs[,,1] , 2, rev))),
          col = gray((0:32)/32), xlab="", ylab="")