p-Chart_SKM_UTS

Data untuk analisis p-chart ini diambil dari skripsi yang disusun oleh FARIDA ULIN NUHA dengan judul “p-CHART MODIFIKASI EKSPANSI CORNISH-FISHER UNTUK PENGENDALIAN PROSES PADA TINGKAT KETIDAKSESUAIAN KECIL”.

Proses produksi botol IBTC 175ml Jumlah sampel sebanyak 48 dengan ukuran sampel 576

langkah pertama memasukan data dalam R untuk dilakukan analisis p-chart

library(readxl)
UTSDATA <- read_excel("F:/Perkuliahan/6_SEMESTER 6/Statistika Quality Control/UTS/UTSDATA.xlsx")
View(UTSDATA)

kemudian mengaktifkan packages qcc untuk chart statistika kendali mutu

library(qcc)

## Package 'qcc' version 2.7

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

selanjutkanya akan membuat p-chart fase pertama

qcc(data = UTSDATA$`Jumlah Tidak Bersesuaian`[1:25],sizes = UTSDATA$`ukuran sampel`[1:25],type = "p",data.name ="Fase I" )

## List of 11
##  $ call      : language qcc(data = UTSDATA$`Jumlah Tidak Bersesuaian`[1:25], type = "p", sizes = UTSDATA$`ukuran sampel`[1:25],      data| __truncated__
##  $ type      : chr "p"
##  $ data.name : chr "Fase I"
##  $ data      : num [1:25, 1] 6 3 0 7 8 4 7 8 8 10 ...
##   ..- attr(*, "dimnames")=List of 2
##  $ statistics: Named num [1:25] 0.01042 0.00521 0 0.01215 0.01389 ...
##   ..- attr(*, "names")= chr [1:25] "1" "2" "3" "4" ...
##  $ sizes     : num [1:25] 576 576 576 576 576 576 576 576 576 576 ...
##  $ center    : num 0.0113
##  $ std.dev   : num 0.106
##  $ 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"

dari p-chart fase I terdapat satu titik yang out of control didata ke-23. Maka oleh karena itu akan dilakukan perbaikan peta kendali p dengan menghilangkan data ke-23

 qcc(data = UTSDATA$`Jumlah Tidak Bersesuaian`[1:25][-23],sizes = UTSDATA$`ukuran sampel`[1:25][-23],type = "p",data.name = "Perbaikan Peta kendali p")

## List of 11
##  $ call      : language qcc(data = UTSDATA$`Jumlah Tidak Bersesuaian`[1:25][-23], type = "p", sizes = UTSDATA$`ukuran sampel`[1:25][-23],| __truncated__
##  $ type      : chr "p"
##  $ data.name : chr "Perbaikan Peta kendali p"
##  $ data      : num [1:24, 1] 6 3 0 7 8 4 7 8 8 10 ...
##   ..- attr(*, "dimnames")=List of 2
##  $ statistics: Named num [1:24] 0.01042 0.00521 0 0.01215 0.01389 ...
##   ..- attr(*, "names")= chr [1:24] "1" "2" "3" "4" ...
##  $ sizes     : num [1:24] 576 576 576 576 576 576 576 576 576 576 ...
##  $ center    : num 0.00984
##  $ std.dev   : num 0.0987
##  $ nsigmas   : num 3
##  $ limits    : num [1:24, 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"

dari output p-chart perbaikan diatas tidak adalagi data out of control yang mungkin terjadi karena faktor khusus. sehingga peta kendali tersebut digunakan untuk fase II untuk mengendalikan data 26-48 dibawah ini syntak untuk fase II

qcc(data = UTSDATA$`Jumlah Tidak Bersesuaian`[1:25][-23],sizes = UTSDATA$`ukuran sampel`[1:25][-23],type = "p",data.name = "Perbaikan Peta kendali p",newdata = UTSDATA$`Jumlah Tidak Bersesuaian`[26:48],newsizes = UTSDATA$`ukuran sampel`[26:48],newdata.name = "data 46-48")

## List of 15
##  $ call        : language qcc(data = UTSDATA$`Jumlah Tidak Bersesuaian`[1:25][-23], type = "p", sizes = UTSDATA$`ukuran sampel`[1:25][-23],| __truncated__ ...
##  $ type        : chr "p"
##  $ data.name   : chr "Perbaikan Peta kendali p"
##  $ data        : num [1:24, 1] 6 3 0 7 8 4 7 8 8 10 ...
##   ..- attr(*, "dimnames")=List of 2
##  $ statistics  : Named num [1:24] 0.01042 0.00521 0 0.01215 0.01389 ...
##   ..- attr(*, "names")= chr [1:24] "1" "2" "3" "4" ...
##  $ sizes       : num [1:24] 576 576 576 576 576 576 576 576 576 576 ...
##  $ center      : num 0.00984
##  $ std.dev     : num 0.0987
##  $ newstats    : Named num [1:23] 0.00347 0.00694 0.00347 0.00347 0.01042 ...
##   ..- attr(*, "names")= chr [1:23] "25" "26" "27" "28" ...
##  $ newdata     : num [1:23, 1] 2 4 2 2 6 31 3 0 2 6 ...
##  $ newsizes    : num [1:23] 576 576 576 576 576 576 576 576 576 576 ...
##  $ newdata.name: chr "data 46-48"
##  $ nsigmas     : num 3
##  $ limits      : num [1:47, 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"

dengan menggunakan peta kendali p-chart yang sudah direvisi untuk mengontrol data 26 sampai 48 diperoleh 4 data out of control

Kesimpulan

qcc(data = UTSDATA$`Jumlah Tidak Bersesuaian`[1:25][-23],sizes = UTSDATA$`ukuran sampel`[1:25][-23],type = "p",data.name = "Perbaikan Peta kendali p",newdata = UTSDATA$`Jumlah Tidak Bersesuaian`[26:48],newsizes = UTSDATA$`ukuran sampel`[26:48],newdata.name = "data 46-48", title = " p-chart Fase I dan Fase II")

## List of 15
##  $ call        : language qcc(data = UTSDATA$`Jumlah Tidak Bersesuaian`[1:25][-23], type = "p", sizes = UTSDATA$`ukuran sampel`[1:25][-23],| __truncated__ ...
##  $ type        : chr "p"
##  $ data.name   : chr "Perbaikan Peta kendali p"
##  $ data        : num [1:24, 1] 6 3 0 7 8 4 7 8 8 10 ...
##   ..- attr(*, "dimnames")=List of 2
##  $ statistics  : Named num [1:24] 0.01042 0.00521 0 0.01215 0.01389 ...
##   ..- attr(*, "names")= chr [1:24] "1" "2" "3" "4" ...
##  $ sizes       : num [1:24] 576 576 576 576 576 576 576 576 576 576 ...
##  $ center      : num 0.00984
##  $ std.dev     : num 0.0987
##  $ newstats    : Named num [1:23] 0.00347 0.00694 0.00347 0.00347 0.01042 ...
##   ..- attr(*, "names")= chr [1:23] "25" "26" "27" "28" ...
##  $ newdata     : num [1:23, 1] 2 4 2 2 6 31 3 0 2 6 ...
##  $ newsizes    : num [1:23] 576 576 576 576 576 576 576 576 576 576 ...
##  $ newdata.name: chr "data 46-48"
##  $ nsigmas     : num 3
##  $ limits      : num [1:47, 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"

dari proses pertama sampai akhir dapat dijelaskan bahwa dalam pembentukan peta kendali fase I data ke-23 terjadi out of control yang kemungkinan terjadi karena faktor khusus, baik itu disebabkan oleh manusia atau masin dalam produksi botol IBTC 175ml. misalkan diasumsikan data ke-23 terjadi karena faktor khusus maka data ke-23 dihilangkan hasilnya peta kendali di fase pertama tidak ada lagi data out of conrol. Akan tetapi didata fase kedua dengan menggunakan peta kendali di fase pertama ditemukan 4 data out of control. maka dengan adanya proses p-chart tersebut dapat disimpulkan proses produksi botol IBTC 175ml masih belum terkendali. maka diharapkan untuk memperhatikan proses produksi sehingga dapat mengurangi varian dari