Harish Jose
November 2014
Thank you for your time!
I have 5 slides to describe my app, and the last slide contains the R code.
The app I developed as part of the Developing Data Products is called as AQL-RQL Calculator.
Everybody involved in Quality Engineering/Quality Control field has had some form of exposure to Acceptance Sampling. This app allows the user to enter the sample size and number of rejects, and based on the alpha and beta values chosen, the app will calculate the AQL and RQL values.
The App opens with sample size = 100, number of rejects = 0, alpha = 5% and beta = 10%. Of course the user can enter thei desired values. After this, click on Submit to get the AQL and RQL values.
In R, the AQL is calculated as (qbeta(((alpha/100)), c+1, n-c)*100), and RQL is calculated as (qbeta((1-(beta/100)), c+1, n-c)*100).The example R code using the default values of n=100, c=0, alpha = 5 and beta = 10 is shown below.
AQL<-round((qbeta(((5/100)), 0+1, 100-0)*100),2)
RQL<-round((qbeta((1-(10/100)), 0+1, 100-0)*100),2)
AQL
[1] 0.05
RQL
[1] 2.28