Taguchi’s microprocessors example (QT)

About {qualityTools}

The qualityTools library has been removed from the CRAN, but its last version (1.55) is available in the archives.

Installation tips

The quotation marks in the following steps should be removed before using the line in your system.

STEP 1 - Install Rsolnp library before installing qualityTools:

“install.packages(Rsolnp)”

STEP 2 - Download qualityTools_1.55.tar.gz to a known folder in your hard disk:

“https://cran.r-project.org/src/contrib/Archive/qualityTools/qualityTools_1.55.tar.gz”

STEP 3 - Install qualityTools_1.55.tar.gz from your disk:

“install.packages(”C:/…path…/qualityTools_1.55.tar.gz”, repos = NULL, type = “source”)”

The path should be replaced by the one where you downloaded the tar.gz file in your system.

STEP 4 - Test the library availability:

“library(qualityTools)”

A final warning:

The qualityTools library may warn you on some procedures that are deprecated; this happens because the library has not been updated in the last 5 years and it still uses methods that has been replaced with other that are more standardized; however, as it still works the results are useful.

library (qualityTools) # Load the library

oa = taguchiDesign("L9_3",randomize = FALSE, replicates = 3) #Create the orthogonal array
values(oa) = list(A=c(100,150,200), #Create the levels
                  B=c(2,5,8),
                  C=c(4,8,6),
                  D=c(.1,.2,.3))
names(oa) = c("Temperature", "Pressure", "Doping Amount", "Depositation Rate") #Assign factor names
units(oa) <- c("C.Deg","PSI","%","mg/s") #Assign factor units
summary(oa) #Display the experimental table

Taguchi SINGLE Design
Information about the factors:

-----------

-----------

Yield <- c(87.3,74.8,56.5,79.8,77.3,89,64.8,99,75.7, #Create the results vector
       82.3,70.7,54.9,78.2,76.5,87.3,62.3,93.2,74,
       70.7,63.2,45.7,62.3,54.9,83.2,55.7,87.3,63.2)
response(oa) <- Yield #Assign the results to the runs
summary(oa) #Display the table with the results

Taguchi SINGLE Design
Information about the factors:

-----------

-----------

effectPlot(oa, classic = T, col=2) #Display the effects' means

snPlot(oa, classic = T, col=2) #Display the signal to noise ratios

[1] 19.46807
[1] 19.46807 21.45684
[1] 19.46807 21.45684 19.06972
[1] 19.46807 21.45684 19.06972 17.60495
[1] 19.46807 21.45684 19.06972 17.60495 14.76648
[1] 19.46807 21.45684 19.06972 17.60495 14.76648 29.25130
[1] 19.46807 21.45684 19.06972 17.60495 14.76648 29.25130 22.25252
[1] 19.46807 21.45684 19.06972 17.60495 14.76648 29.25130 22.25252 24.04199
[1] 19.46807 21.45684 19.06972 17.60495 14.76648 29.25130 22.25252 24.04199 20.39697