R Qcc Package EWMA Demo

library(qcc)

## Package 'qcc' version 2.7

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

library(readxl)
library(DT)
Kaltura_Usage <- read_excel("Kaltura Usage.xlsx")
datatable(Kaltura_Usage)

attach(Kaltura_Usage)
TransM <- qcc.groups(`Transcoding Consumption (MB)`,Month)
tm <- ewma(TransM[1:13], lambda = 0.2, nsigmas = 3, newdata=TransM[14:25], plot = FALSE)
summary(tm)

## 
## Call:
## ewma(data = TransM[1:13], lambda = 0.2, nsigmas = 3, newdata = TransM[14:25],     plot = FALSE)
## 
## ewma chart for TransM[1:13] 
## 
## Summary of group statistics:
##      Min.   1st Qu.    Median      Mean   3rd Qu.      Max. 
##  49395.02  87969.83  92790.72 117119.91 156604.10 191596.02 
## 
## Group sample size:  1
## Number of groups:  13
## Center of group statistics:  117119.9
## Standard deviation:  48790.67 
## 
## Summary of group statistics in TransM[14:25]:
##     Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
##  45749.6 162623.8 186610.8 193536.6 205769.7 371235.4 
## 
## Group sample size:  1
## Number of groups:  12 
## 
## Smoothing parameter: 0.2 
## Control limits:
##            LCL      UCL
## [1,]  87845.51 146394.3
## [2,]  79630.38 154609.4
## ...                    
## [25,] 68329.59 165910.2

plot(tm)