Package lib
library(shiny);library(dplyr);
library(magrittr) library(readxl) library(ggplot2);
library(aplpack);library(lattice) library(mongolite) library(lubridate) # library(MASS) library(qicharts);library(qcc)
library(spc,IQCC);require(mpcv);library(MSQC,tolerance);library(edcc,qcr);
library(SixSigma);require(qcr);require(qualityTools);require(spcadjust);require(utils)
# counties <- readRDS("s_uni2/data/counties.rds") # normaldata<-source("s_uni2/data/normal01_3Pnormal_1.txt")