Berikut ini merupakan laporan pertama saya dalam mengonstruksi peta kendali u dengan menggunakan RStudio. Data yang saya gunakan untuk mengonstruksi peta kendali u berasal dari Jurnal Ekonomi Manajemen (JEM17) dengan judul Analisis Quality Control Terhadap Tingkat Kerusakan Produk Pada PT. Van Glass Surabaya.

Langkah pertama yaitu memanggil data yang sebelumnya disimpan dalam format Excel,

library(readxl)
Produksi_Kaca_Cermin <- read_excel("C:/Users/ASUS/OneDrive/Documents/KULIAH/SEMESTER 6 SEMANGATTT/STATISTIKA KENDALI MUTU/Produksi Kaca Cermin.xlsx")
View(Produksi_Kaca_Cermin)

Produksi_Kaca_Cermin
## # A tibble: 59 x 3
##     Hari Produksi_Kaca_Cermin Jumlah_Ketidaksesuaian
##    <dbl>                <dbl>                  <dbl>
##  1     1                   35                      6
##  2     2                   37                      7
##  3     3                   31                      3
##  4     4                   35                      8
##  5     5                   38                      4
##  6     6                   36                      6
##  7     7                   37                      8
##  8     8                   39                      7
##  9     9                   42                      7
## 10    10                   30                      6
## # ... with 49 more rows

Langkah kedua yaitu memasang (install) package "qcc" dengan perintah install.packages("qcc") agar dapat mengonstruksi peta kendali di RStudio. Setelah berhasil terpasang, panggil (load) package "qcc",

library(qcc)
## Package 'qcc' version 2.7
## Type 'citation("qcc")' for citing this R package in publications.

Langkah berikutnya yaitu mengonstruksi peta kendali u Phase I (uji coba). Sampel yang digunakan dari 1 sampai dengan 25,

with(Produksi_Kaca_Cermin, qcc(Jumlah_Ketidaksesuaian[1:25], 
                          sizes = Produksi_Kaca_Cermin[1:25], type = "u"))

## List of 11
##  $ call      : language qcc(data = Jumlah_Ketidaksesuaian[1:25], type = "u", sizes = Produksi_Kaca_Cermin[1:25])
##  $ type      : chr "u"
##  $ data.name : chr "Jumlah_Ketidaksesuaian[1:25]"
##  $ data      : num [1:25, 1] 6 7 3 8 4 6 8 7 7 6 ...
##   ..- attr(*, "dimnames")=List of 2
##  $ statistics: Named num [1:25] 0.1714 0.1892 0.0968 0.2286 0.1053 ...
##   ..- attr(*, "names")= chr [1:25] "1" "2" "3" "4" ...
##  $ sizes     : num [1:25] 35 37 31 35 38 36 37 39 42 30 ...
##  $ center    : num 0.176
##  $ std.dev   : num 0.42
##  $ nsigmas   : num 3
##  $ limits    : num [1:25, 1:2] 0 0 0 0 0 0 0 0 0 0 ...
##   ..- attr(*, "dimnames")=List of 2
##  $ violations:List of 2
##  - attr(*, "class")= chr "qcc"

Peta kendali u Phase I menunjukkan bahwa batas tengah kendali (center limit) sebesar 0,176009, batas bawah kendali (LCL) sebesar 0, dan batas atas kendali (UCL) disesuaikan dengan ukuran sampel per hari. Peta kendali u Phase I juga menunjukkan bahwa tidak terdapat subgrup yang berada di luar batas kendali, sehingga peta kendali tersebut dapat digunakan untuk memonitor sampel berikutnya di Phase II.

Kemudian langkah berikutnya adalah mengonstruksi peta kendali u Phase II,

with(Produksi_Kaca_Cermin, qcc(Jumlah_Ketidaksesuaian[1:25], sizes = Produksi_Kaca_Cermin[1:25],
                          type = "u" , 
                      newdata = Jumlah_Ketidaksesuaian[26:59], newsizes = Produksi_Kaca_Cermin[26:59]))

## List of 15
##  $ call        : language qcc(data = Jumlah_Ketidaksesuaian[1:25], type = "u", sizes = Produksi_Kaca_Cermin[1:25],      newdata = Jumlah_Ke| __truncated__
##  $ type        : chr "u"
##  $ data.name   : chr "Jumlah_Ketidaksesuaian[1:25]"
##  $ data        : num [1:25, 1] 6 7 3 8 4 6 8 7 7 6 ...
##   ..- attr(*, "dimnames")=List of 2
##  $ statistics  : Named num [1:25] 0.1714 0.1892 0.0968 0.2286 0.1053 ...
##   ..- attr(*, "names")= chr [1:25] "1" "2" "3" "4" ...
##  $ sizes       : num [1:25] 35 37 31 35 38 36 37 39 42 30 ...
##  $ center      : num 0.176
##  $ std.dev     : num 0.42
##  $ newstats    : Named num [1:34] 0.231 0.162 0.25 0.162 0.233 ...
##   ..- attr(*, "names")= chr [1:34] "26" "27" "28" "29" ...
##  $ newdata     : num [1:34, 1] 9 6 9 6 7 7 6 6 8 9 ...
##  $ newsizes    : num [1:34] 39 37 36 37 30 32 38 36 35 36 ...
##  $ newdata.name: chr "Jumlah_Ketidaksesuaian[26:59]"
##  $ nsigmas     : num 3
##  $ limits      : num [1:59, 1:2] 0 0 0 0 0 0 0 0 0 0 ...
##   ..- attr(*, "dimnames")=List of 2
##  $ violations  :List of 2
##  - attr(*, "class")= chr "qcc"

Peta kendali u Phase II menunjukkan bahwa tidak terdapat subgrup yang berada di luar batas kendali. Dengan kata lain, proses produksi kaca cermin di PT. Van Glass Surabaya sudah terkendali/sesuai standar secara statistik. Demikian laporan ini saya buat, semoga bermanfaat. Terima Kasih.