accessor function for extracting critical value from sampling plan
k(object)
sampling plan
single value
codeACSPlan-class,
# NOT RUN {
# first create an acceptance sampling plan
planek=new("ACSPlan",n=100,k=3)
k(planek)
# }
Run the code above in your browser using DataLab