R programming Drawing an xbar and R chart using qcc package

Question

The below data is the average (xbar) and range (r) for 6 samples of size 5 each.

xbar <- c(1080͵1390͵1460͵1380͵1090͵1230)
   r <- c(420͵670͵180͵320͵70͵690)

I want to know how I can draw an xbar and r chart using this kind of data by using the qcc package of R program? 

Answer 1

Try this:

#x-Bar
library(qcc)  
 x=c(1080͵ 1390͵ 1460͵ 1380͵ 1090͵ 1230)  
 xbarchart = qcc(x, type="xbar.one", std.dev = "SD")
#Range
   library(qcc)  
    r=array(c(420͵ 670͵ 180͵ 320͵ 70͵ 690, 0, 0, 0, 0, 0, 0),dim=c(6,2))  
    rchart = qcc(r, type="R")