library(dplyr)
carbon.fabric.2 %>%
filter(test=="FC" & condition=="ETW2" & batch=="A") %>%
maximum_normed_residual(strength)
## Call:
## maximum_normed_residual(data = ., x = strength)
##
## MNR = 1.958797 ( critical value = 1.887145 )
##
## Outliers ( alpha = 0.05 ):
## Index Value
## 6 44.26
carbon.fabric.2 %>%
filter(test=="FC" & condition=="ETW2" & batch=="B") %>%
maximum_normed_residual(strength)
## Call:
## maximum_normed_residual(data = ., x = strength)
##
## MNR = 1.469517 ( critical value = 1.887145 )
##
## No outliers detected ( alpha = 0.05 )
Run the code above in your browser using DataLab