bearings: Bearings Faults Detection Data

In rebmix: Finite Mixture Modeling, Clustering & Classification

Bearings Faults Detection Data

Description

These data are the results of the extraction process from the vibrational data of healthy and faulty bearings. Different faults are considered: faultless (1), defect on outer race (2), defect on inner race (3) and defect on ball (4). The extracted features are: root mean square (RMS), square root of the amplitude (SRA), kurtosis value (KV), skewness value (SV), peak to peak value (PPV), crest factor (CF), impulse factor (IF), margin factor (MF), shape factor (SF), kurtosis factor (KF), frequency centre (FC), root mean square frequency (RMSF) and root variance frequency (RVF).

Usage

data(bearings)

Format

bearings is a data frame with 1906 cases (rows) and 14 variables (columns) named:

1. RMS continuous.

2. SRA continuous.

3. KV continuous.

4. SV continuous.

5. PPV continuous.

6. CF continuous.

7. IF continuous.

8. MF continuous.

9. SF continuous.

10. KF continuous.

11. FC continuous.

12. RMSF continuous.

13. RVF continuous.

14. Class discrete 1, 2, 3 or 4.

Source

Case Western Reserve University Bearing Data Center Website https://engineering.case.edu/bearingdatacenter/welcome.

References

B. Panic, J. Klemenc and M. Nagode. Gaussian mixture model based classification revisited: Application to the bearing fault classification. Journal of Mechanical Engineering, 66(4):215-226, 2020. \Sexpr[results=rd]{tools:::Rd_expr_doi("http://dx.doi.org/10.5545/sv-jme.2020.6563")}.

Examples

## Not run: 
data(bearings)

# Split dataset into train (75

set.seed(3)

Bearings <- split(p = 0.75, Dataset = bearings, class = 14)

# Estimate number of components, component weights and component
# parameters for train subsets.

bearingsest <- REBMIX(model = "REBMVNORM",
  Dataset = a.train(Bearings),
  Preprocessing = "histogram",
  cmax = 15,
  Criterion = "BIC")

# Classification.

bearingscla <- RCLSMIX(model = "RCLSMVNORM",
  x = list(bearingsest),
  Dataset = a.test(Bearings),
  Zt = a.Zt(Bearings))

bearingscla

summary(bearingscla)

## End(Not run)

rebmix documentation built on July 26, 2023, 5:32 p.m.