Send output to: Browser Blue - Charts White Browser Black/White CSV Data: 55 56 61 51 59 51 51 5 68 49 77 32 53 49 28 60 45 42 35 25 29 46 49 58 47 56 40 34 48 35 62 33 40 44 28 57 50 47 64 33 42 30 28 33 22 59 32 55 38 Sample Range:(leave blank to include all observations) From: To: Chart options R Code x <-sort(x[!is.na(x)]) q1 <- function(data,n,p,i,f) { np <- n*p; i <<- floor(np) f <<- np - i qvalue <- (1-f)*data[i] + f*data[i+1] } q2 <- function(data,n,p,i,f) { np <- (n+1)*p i <<- floor(np) f <<- np - i qvalue <- (1-f)*data[i] + f*data[i+1] } q3 <- function(data,n,p,i,f) { np <- n*p i <<- floor(np) f <<- np - i if (f==0) { qvalue <- data[i] } else { qvalue <- data[i+1] } } q4 <- function(data,n,p,i,f) { np <- n*p i <<- floor(np) f <<- np - i if (f==0) { qvalue <- (data[i]+data[i+1])/2 } else { qvalue <- data[i+1] } } q5 <- function(data,n,p,i,f) { np <- (n-1)*p i <<- floor(np) f <<- np - i if (f==0) { qvalue <- data[i+1] } else { qvalue <- data[i+1] + f*(data[i+2]-data[i+1]) } } q6 <- function(data,n,p,i,f) { np <- n*p+0.5 i <<- floor(np) f <<- np - i qvalue <- data[i] } q7 <- function(data,n,p,i,f) { np <- (n+1)*p i <<- floor(np) f <<- np - i if (f==0) { qvalue <- data[i] } else { qvalue <- f*data[i] + (1-f)*data[i+1] } } q8 <- function(data,n,p,i,f) { np <- (n+1)*p i <<- floor(np) f <<- np - i if (f==0) { qvalue <- data[i] } else { if (f == 0.5) { qvalue <- (data[i]+data[i+1])/2 } else { if (f < 0.5) { qvalue <- data[i] } else { qvalue <- data[i+1] } } } } lx <- length(x) qval <- array(NA,dim=c(99,8)) mystep <- 25 mystart <- 25 if (lx>10){ mystep=10 mystart=10 } if (lx>20){ mystep=5 mystart=5 } if (lx>50){ mystep=2 mystart=2 } if (lx>=100){ mystep=1 mystart=1 } for (perc in seq(mystart,99,mystep)) { qval[perc,1] <- q1(x,lx,perc/100,i,f) qval[perc,2] <- q2(x,lx,perc/100,i,f) qval[perc,3] <- q3(x,lx,perc/100,i,f) qval[perc,4] <- q4(x,lx,perc/100,i,f) qval[perc,5] <- q5(x,lx,perc/100,i,f) qval[perc,6] <- q6(x,lx,perc/100,i,f) qval[perc,7] <- q7(x,lx,perc/100,i,f) qval[perc,8] <- q8(x,lx,perc/100,i,f) } bitmap(file='test1.png') myqqnorm <- qqnorm(x,col=2) qqline(x) grid() dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Percentiles - Ungrouped Data',9,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'p',1,TRUE) a<-table.element(a, 'Weighted Average at Xnp',1,TRUE) a<-table.element(a, 'Weighted Average at X(n+1)p',1,TRUE) a<-table.element(a, 'Empirical Distribution Function',1,TRUE) a<-table.element(a, 'Empirical Distribution Function - Averaging',1,TRUE) a<-table.element(a, 'Empirical Distribution Function - Interpolation',1,TRUE) a<-table.element(a, 'Closest Observation',1,TRUE) a<-table.element(a, 'True Basic - Statistics Graphics Toolkit',1,TRUE) a<-table.element(a, 'MS Excel (old versions)',1,TRUE) a<-table.row.end(a) for (perc in seq(mystart,99,mystep)) { a<-table.row.start(a) a<-table.element(a,round(perc/100,2),1,TRUE) for (j in 1:8) { a<-table.element(a,signif(qval[perc,j],6)) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab')

 Summary of computational transaction Raw Input view raw input (R code) Raw Output view raw output of R engine Computing time 1 seconds R Server Big Analytics Cloud Computing Center R Framework error message ```Warning: there are blank lines in the 'Data' field. Please, use NA for missing data - blank lines are simply deleted and are NOT treated as missing values.```

 Percentiles - Ungrouped Data p Weighted Average at Xnp Weighted Average at X(n+1)p Empirical Distribution Function Empirical Distribution Function - Averaging Empirical Distribution Function - Interpolation Closest Observation True Basic - Statistics Graphics Toolkit MS Excel (old versions) 0.05 23.35 23.5 25 25 26.2 22 23.5 23.5 0.1 28 28 28 28 28 28 28 28 0.15 29.35 29.5 30 30 30.4 29 29.5 29.5 0.2 32 32 32 32 32.6 32 32 32 0.25 33 33 33 33 33 33 33 33 0.3 34.7 35 35 35 35 35 35 35 0.35 38.3 39 40 40 39.6 38 39 39 0.4 41.2 42 42 42 42 42 42 42 0.45 44.05 44.5 45 45 44.6 44 44.5 44.5 0.5 46.5 47 47 47 47 47 47 47 0.55 47.95 48.5 48 48 48.4 48 48.5 49 0.6 49 49 49 49 49 49 49 49 0.65 50.85 51 51 51 51 51 51 51 0.7 51.6 53 53 53 52.2 51 53 53 0.75 55 55.5 55 55 55 55 55.5 55.5 0.8 56.2 57 57 57 56.4 56 57 57 0.85 58.65 59 59 59 58.8 59 59 59 0.9 60.1 61 61 61 60.2 60 61 61 0.95 63.1 66 64 64 63.2 64 66 66