*The author of this computation has been verified*

R Software Module: rwasp_percentiles.wasp (opens new window with default values)

Title produced by software: Percentiles

Date of computation: Mon, 19 Oct 2009 12:05:01 -0600

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2009/Oct/19/t1255975695xnxktr79x8d0j9y.htm/, Retrieved Mon, 19 Oct 2009 20:08:17 +0200

BibTeX entries for LaTeX users:

@Manual{KEY, author = {{YOUR NAME}}, publisher = {Office for Research Development and Education}, title = {Statistical Computations at FreeStatistics.org, URL http://www.freestatistics.org/blog/date/2009/Oct/19/t1255975695xnxktr79x8d0j9y.htm/}, year = {2009}, } @Manual{R, title = {R: A Language and Environment for Statistical Computing}, author = {{R Development Core Team}}, organization = {R Foundation for Statistical Computing}, address = {Vienna, Austria}, year = {2009}, note = {{ISBN} 3-900051-07-0}, url = {http://www.R-project.org}, }

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords:

Dataseries X:

» Textbox « » Textfile « » CSV «

1027387 1032760 1026564 1031480 1039048 1029781 1036585 1039113 1038981 1048472 1050976 1058369 1063014 1069895 1068642 1068381 1071410 1075303 1074652 1076742 1058112 1070165 1082079 1089077 1089392 1089298 1091254 1095112 1094153 1098756 1101085 1103418 1099897 1098269 1095835 1105013 1099386 1108399 1106298 1110539 1111430 1111951 1115406 1116142 1120071 1114196 1120541 1123962 1123389 1120435 1116495 1110012 1106820 1104494 1103760 1091570 1048367 1061626 1047607 1023650 1001154 993397 977486 971751 961207 957734 966893 974422

Output produced by software:

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 'George Udny Yule' @ 72.249.76.132 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.02 958984.28 959053.74 961207 961207 963140.24 957734 959887.26 957734 0.04 965300.92 965528.36 966893 966893 970196.44 966893 962571.64 966893 0.06 971964.68 972124.94 974422 974422 974483.28 971751 974048.06 971751 0.08 975770.16 976015.28 977486 977486 983213.96 974422 975892.72 977486 0.1 990214.8 991805.9 993397 993397 998826.9 993397 979077.1 993397 0.12 1004753.36 1007452.88 1023650 1023650 1023766.56 1001154 1017351.12 1001154 0.14 1025165.28 1025573.24 1026564 1026564 1026876.74 1026564 1024640.76 1026564 0.16 1027288.24 1027482.76 1027387 1027387 1029110.68 1027387 1029685.24 1027387 0.18 1030188.76 1030494.58 1031480 1031480 1031556.8 1029781 1030766.42 1029781 0.2 1032248 1032504 1032760 1032760 1034290 1032760 1031736 1032760 0.22 1036432 1037016.28 1036585 1036585 1038358.04 1036585 1038549.72 1036585 0.24 1039002.44 1039018.52 1039048 1039048 1039053.2 1038981 1039010.48 1039048 0.26 1039092.2 1039109.1 1039113 1039113 1042680.48 1039113 1039051.9 1039113 0.28 1047637.4 1047850.2 1048367 1048367 1048184.6 1047607 1048123.8 1047607 0.3 1048409 1048440.5 1048472 1048472 1048722.4 1048367 1048398.5 1048472 0.32 1050375.04 1051546.88 1050976 1050976 1054115.84 1050976 1057541.12 1050976 0.34 1058142.84 1058230.22 1058369 1058369 1058312.46 1058112 1058250.78 1058112 0.36 1059932.36 1061104.88 1061626 1061626 1061792.56 1058369 1058890.12 1061626 0.38 1062791.92 1064194.74 1063014 1063014 1065482.82 1063014 1067200.26 1063014 0.4 1068433.2 1068537.6 1068642 1068642 1068589.8 1068381 1068485.4 1068642 0.42 1069343.68 1069869.94 1069895 1069895 1069932.8 1069895 1068667.06 1069895 0.44 1070143.4 1070613.2 1070165 1070165 1070762.6 1070165 1070961.8 1070165 0.46 1072317.76 1073809.08 1074652 1074652 1074068.44 1071410 1072252.92 1074652 0.48 1075068.64 1075475.68 1075303 1075303 1075533.24 1075303 1076569.32 1075303 0.5 1076742 1079410.5 1076742 1079410.5 1079410.5 1076742 1079410.5 1079410.5 0.52 1084598.28 1088237.24 1089077 1089077 1087957.32 1082079 1082918.76 1089077 0.54 1089236.12 1089322.44 1089298 1089298 1089314.92 1089298 1089367.56 1089298 0.56 1089540.96 1090583.68 1091254 1091254 1090360.24 1089392 1090062.32 1091254 0.58 1091393.04 1091621.66 1091570 1091570 1091525.76 1091254 1094101.34 1091570 0.6 1093636.4 1094536.6 1094153 1094153 1094344.8 1094153 1094728.4 1094153 0.62 1095227.68 1095675.94 1095835 1095835 1095502.42 1095112 1095271.06 1095835 0.64 1097100.68 1098346.92 1098269 1098269 1097976.92 1098269 1098678.08 1098269 0.66 1098697.56 1099096.2 1098756 1098756 1098894.6 1098756 1099045.8 1099386 0.68 1099508.64 1099856.12 1099897 1099897 1099672.16 1099386 1099426.88 1099897 0.7 1100609.8 1101784.9 1101085 1101085 1100966.2 1101085 1102718.1 1101085 0.72 1103324.68 1103650.56 1103418 1103418 1103500.08 1103418 1103527.44 1103760 0.74 1103994.88 1104525.14 1104494 1104494 1104185.72 1103760 1104981.86 1104494 0.76 1104846.92 1105578.4 1105013 1105013 1104971.48 1105013 1105732.6 1105013 0.78 1106318.88 1106726.04 1106820 1106820 1106433.72 1106298 1106391.96 1106820 0.8 1107451.6 1108721.6 1108399 1108399 1107767.4 1106820 1109689.4 1108399 0.82 1109624.88 1110317.66 1110012 1110012 1109915.22 1110012 1110233.34 1110539 0.84 1110645.92 1111394.36 1111430 1111430 1110788.48 1110539 1110574.64 1111430 0.86 1111680.08 1112714.3 1111951 1111951 1111753.02 1111430 1113432.7 1111951 0.88 1113836.8 1115067.2 1114196 1114196 1114106.2 1114196 1114534.8 1115406 0.9 1115553.2 1116177.3 1116142 1116142 1115626.8 1115406 1116459.7 1116142 0.92 1116339.68 1118211.48 1116495 1116495 1116367.92 1116495 1118354.52 1116495 0.94 1119784.92 1120384.04 1120071 1120071 1119999.48 1120071 1120121.96 1120435 0.96 1120464.68 1121224.52 1120541 1120541 1120468.92 1120435 1122705.48 1120541 0.98 1122363.72 1123744.26 1123389 1123389 1122420.68 1123389 1123606.74 1123962

Charts produced by software:

http://www.freestatistics.org/blog/date/2009/Oct/19/t1255975695xnxktr79x8d0j9y/1s8a21255975500.png (open in new window) http://www.freestatistics.org/blog/date/2009/Oct/19/t1255975695xnxktr79x8d0j9y/1s8a21255975500.ps (open in new window)

Parameters (Session):

Parameters (R input):

R code (references can be found in the software module):

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,hyperlink('http://www.xycoon.com/method_1.htm', 'Weighted Average at Xnp',''),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/method_2.htm','Weighted Average at X(n+1)p',''),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/method_3.htm','Empirical Distribution Function',''),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/method_4.htm','Empirical Distribution Function - Averaging',''),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/method_5.htm','Empirical Distribution Function - Interpolation',''),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/method_6.htm','Closest Observation',''),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/method_7.htm','True Basic - Statistics Graphics Toolkit',''),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/method_8.htm','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,round(qval[perc,j],6)) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab')

Copyright

This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.

Software written by Ed van Stee & Patrick Wessa

Disclaimer

Information provided on this web site is provided "AS IS" without warranty of any kind, either express or implied, including, without limitation, warranties of merchantability, fitness for a particular purpose, and noninfringement. We use reasonable efforts to include accurate and timely information and periodically update the information, and software without notice. However, we make no warranties or representations as to the accuracy or completeness of such information (or software), and we assume no liability or responsibility for errors or omissions in the content of this web site, or any software bugs in online applications. Your use of this web site is AT YOUR OWN RISK. Under no circumstances and under no legal theory shall we be liable to you or any other person for any direct, indirect, special, incidental, exemplary, or consequential damages arising from your access to, or use of, this web site.

Privacy Policy

We may request personal information to be submitted to our servers in order to be able to:

• personalize online software applications according to your needs
• enforce strict security rules with respect to the data that you upload (e.g. statistical data)
• manage user sessions of online applications
• alert you about important changes or upgrades in resources or applications

We NEVER allow other companies to directly offer registered users information about their products and services. Banner references and hyperlinks of third parties NEVER contain any personal data of the visitor.

We do NOT sell, nor transmit by any means, personal information, nor statistical data series uploaded by you to third parties.

We carefully protect your data from loss, misuse, alteration, and destruction. However, at any time, and under any circumstance you are solely responsible for managing your passwords, and keeping them secret.

We store a unique ANONYMOUS USER ID in the form of a small 'Cookie' on your computer. This allows us to track your progress when using this website which is necessary to create state-dependent features. The cookie is used for NO OTHER PURPOSE. At any time you may opt to disallow cookies from this website - this will not affect other features of this website.

We examine cookies that are used by third-parties (banner and online ads) very closely: abuse from third-parties automatically results in termination of the advertising contract without refund. We have very good reason to believe that the cookies that are produced by third parties (banner ads) do NOT cause any privacy or security risk.

FreeStatistics.org is safe. There is no need to download any software to use the applications and services contained in this website. Hence, your system's security is not compromised by their use, and your personal data - other than data you submit in the account application form, and the user-agent information that is transmitted by your browser - is never transmitted to our servers.

As a general rule, we do not log on-line behavior of individuals (other than normal logging of webserver 'hits'). However, in cases of abuse, hacking, unauthorized access, Denial of Service attacks, illegal copying, hotlinking, non-compliance with international webstandards (such as robots.txt), or any other harmful behavior, our system engineers are empowered to log, track, identify, publish, and ban misbehaving individuals - even if this leads to ban entire blocks of IP addresses, or disclosing user's identity.

FreeStatistics.org is powered by