Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_percentiles.wasp

Title produced by software

Percentiles

Date of computation

Sun, 18 Oct 2009 09:22:43 -0600

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Oct/18/t1255879627gaj4w7q8n1j9vef.htm/, Retrieved Mon, 29 Apr 2024 12:11:54 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=47362, Retrieved Mon, 29 Apr 2024 12:11:54 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

147

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

F     [Univariate Data Series] [Gemiddelde renden...] [2008-10-13 19:42:56] [86c69698417c3ad89592e76776a2c65b]
-   PD  [Univariate Data Series] [Werkloosheid in BE] [2009-10-11 19:20:59] [5c968c05ca472afa314d272082b56b09]
-   PD    [Univariate Data Series] [Y[t]-X[t]=c+e[t]] [2009-10-18 14:49:48] [5c968c05ca472afa314d272082b56b09]
- RM          [Percentiles] [Confidence interv...] [2009-10-18 15:22:43] [b8ce264f75295a954feffaf60221d1b0] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

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	'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=47362&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=47362&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=47362&T=0

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

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	'Gwilym Jenkins' @ 72.249.127.135

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	93.88	93.92	95	95	96.26	93	94.08	93
0.04	97.64	97.76	98	98	98.84	98	95.24	98
0.06	99.96	100.14	102	102	102.26	99	100.86	99
0.08	102.76	102.84	103	103	104.36	103	102.16	103
0.1	105	105	105	105	105.1	105	105	105
0.12	105.64	105.76	106	106	106.52	106	105.24	106
0.14	107.16	107.44	109	109	108.88	107	108.56	107
0.16	110.04	110.36	111	111	111	111	109.64	111
0.18	111	111	111	111	111	111	111	111
0.2	111	111	111	111	111.2	111	111	111
0.22	111.84	112	112	112	112	112	112	112
0.24	112.28	112.52	113	113	113	112	112.48	113
0.26	113	113	113	113	113	113	113	113
0.28	113.16	113.44	114	114	113.88	113	113.56	113
0.3	114	114	114	114	114.3	114	114	114
0.32	115	115	115	115	115	115	115	115
0.34	115.48	115.82	116	116	116.14	115	115.18	116
0.36	116.92	117	117	117	117	117	117	117
0.38	117	117	117	117	117	117	117	117
0.4	117.8	118.4	118	118	118.8	118	119.6	118
0.42	120.48	121.32	122	122	121.64	120	120.68	122
0.44	122.68	123	123	123	123	123	123	123
0.46	123	123	123	123	123	123	123	123
0.48	123.56	124	124	124	124	124	124	124
0.5	124	124.5	124	124.5	124.5	124	124.5	124.5
0.52	125	125	125	125	125	125	125	125
0.54	125.88	126.42	126	126	126.34	126	126.58	126
0.56	127.32	127.88	128	128	127.76	127	127.12	128
0.58	129.52	130	130	130	130	130	130	130
0.6	130.2	130.8	131	131	130.6	130	130.2	131
0.62	131.64	132.26	132	132	132.02	132	132.74	132
0.64	133.08	133.72	134	134	133.44	133	133.28	134
0.66	134.52	135.18	135	135	134.86	135	135.82	135
0.68	135.96	136	136	136	136	136	136	136
0.7	136.4	137	137	137	136.7	136	137	137
0.72	137	137	137	137	137	137	137	137
0.74	137.56	139	139	139	138.08	137	139	139
0.76	139	141.4	139	139	139	139	141.6	139
0.78	144.48	146.82	147	147	145.14	144	144.18	147
0.8	147	147	147	147	147	147	147	147
0.82	147	147	147	147	147	147	147	147
0.84	147.96	149	149	149	148.28	147	149	149
0.86	149	149	149	149	149	149	149	149
0.88	149.36	150	150	150	149.48	149	150	150
0.9	150	152.1	150	150	150	150	150.9	153
0.92	153.96	157	157	157	154.28	153	157	157
0.94	157	157.62	157	157	157	157	157.38	158
0.96	158.12	159.16	159	159	158.16	158	160.84	159
0.98	160.12	161.54	161	161	160.16	161	161.46	162

\begin{tabular}{lllllllll}
\hline
Percentiles - Ungrouped Data \tabularnewline
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) \tabularnewline
0.02 & 93.88 & 93.92 & 95 & 95 & 96.26 & 93 & 94.08 & 93 \tabularnewline
0.04 & 97.64 & 97.76 & 98 & 98 & 98.84 & 98 & 95.24 & 98 \tabularnewline
0.06 & 99.96 & 100.14 & 102 & 102 & 102.26 & 99 & 100.86 & 99 \tabularnewline
0.08 & 102.76 & 102.84 & 103 & 103 & 104.36 & 103 & 102.16 & 103 \tabularnewline
0.1 & 105 & 105 & 105 & 105 & 105.1 & 105 & 105 & 105 \tabularnewline
0.12 & 105.64 & 105.76 & 106 & 106 & 106.52 & 106 & 105.24 & 106 \tabularnewline
0.14 & 107.16 & 107.44 & 109 & 109 & 108.88 & 107 & 108.56 & 107 \tabularnewline
0.16 & 110.04 & 110.36 & 111 & 111 & 111 & 111 & 109.64 & 111 \tabularnewline
0.18 & 111 & 111 & 111 & 111 & 111 & 111 & 111 & 111 \tabularnewline
0.2 & 111 & 111 & 111 & 111 & 111.2 & 111 & 111 & 111 \tabularnewline
0.22 & 111.84 & 112 & 112 & 112 & 112 & 112 & 112 & 112 \tabularnewline
0.24 & 112.28 & 112.52 & 113 & 113 & 113 & 112 & 112.48 & 113 \tabularnewline
0.26 & 113 & 113 & 113 & 113 & 113 & 113 & 113 & 113 \tabularnewline
0.28 & 113.16 & 113.44 & 114 & 114 & 113.88 & 113 & 113.56 & 113 \tabularnewline
0.3 & 114 & 114 & 114 & 114 & 114.3 & 114 & 114 & 114 \tabularnewline
0.32 & 115 & 115 & 115 & 115 & 115 & 115 & 115 & 115 \tabularnewline
0.34 & 115.48 & 115.82 & 116 & 116 & 116.14 & 115 & 115.18 & 116 \tabularnewline
0.36 & 116.92 & 117 & 117 & 117 & 117 & 117 & 117 & 117 \tabularnewline
0.38 & 117 & 117 & 117 & 117 & 117 & 117 & 117 & 117 \tabularnewline
0.4 & 117.8 & 118.4 & 118 & 118 & 118.8 & 118 & 119.6 & 118 \tabularnewline
0.42 & 120.48 & 121.32 & 122 & 122 & 121.64 & 120 & 120.68 & 122 \tabularnewline
0.44 & 122.68 & 123 & 123 & 123 & 123 & 123 & 123 & 123 \tabularnewline
0.46 & 123 & 123 & 123 & 123 & 123 & 123 & 123 & 123 \tabularnewline
0.48 & 123.56 & 124 & 124 & 124 & 124 & 124 & 124 & 124 \tabularnewline
0.5 & 124 & 124.5 & 124 & 124.5 & 124.5 & 124 & 124.5 & 124.5 \tabularnewline
0.52 & 125 & 125 & 125 & 125 & 125 & 125 & 125 & 125 \tabularnewline
0.54 & 125.88 & 126.42 & 126 & 126 & 126.34 & 126 & 126.58 & 126 \tabularnewline
0.56 & 127.32 & 127.88 & 128 & 128 & 127.76 & 127 & 127.12 & 128 \tabularnewline
0.58 & 129.52 & 130 & 130 & 130 & 130 & 130 & 130 & 130 \tabularnewline
0.6 & 130.2 & 130.8 & 131 & 131 & 130.6 & 130 & 130.2 & 131 \tabularnewline
0.62 & 131.64 & 132.26 & 132 & 132 & 132.02 & 132 & 132.74 & 132 \tabularnewline
0.64 & 133.08 & 133.72 & 134 & 134 & 133.44 & 133 & 133.28 & 134 \tabularnewline
0.66 & 134.52 & 135.18 & 135 & 135 & 134.86 & 135 & 135.82 & 135 \tabularnewline
0.68 & 135.96 & 136 & 136 & 136 & 136 & 136 & 136 & 136 \tabularnewline
0.7 & 136.4 & 137 & 137 & 137 & 136.7 & 136 & 137 & 137 \tabularnewline
0.72 & 137 & 137 & 137 & 137 & 137 & 137 & 137 & 137 \tabularnewline
0.74 & 137.56 & 139 & 139 & 139 & 138.08 & 137 & 139 & 139 \tabularnewline
0.76 & 139 & 141.4 & 139 & 139 & 139 & 139 & 141.6 & 139 \tabularnewline
0.78 & 144.48 & 146.82 & 147 & 147 & 145.14 & 144 & 144.18 & 147 \tabularnewline
0.8 & 147 & 147 & 147 & 147 & 147 & 147 & 147 & 147 \tabularnewline
0.82 & 147 & 147 & 147 & 147 & 147 & 147 & 147 & 147 \tabularnewline
0.84 & 147.96 & 149 & 149 & 149 & 148.28 & 147 & 149 & 149 \tabularnewline
0.86 & 149 & 149 & 149 & 149 & 149 & 149 & 149 & 149 \tabularnewline
0.88 & 149.36 & 150 & 150 & 150 & 149.48 & 149 & 150 & 150 \tabularnewline
0.9 & 150 & 152.1 & 150 & 150 & 150 & 150 & 150.9 & 153 \tabularnewline
0.92 & 153.96 & 157 & 157 & 157 & 154.28 & 153 & 157 & 157 \tabularnewline
0.94 & 157 & 157.62 & 157 & 157 & 157 & 157 & 157.38 & 158 \tabularnewline
0.96 & 158.12 & 159.16 & 159 & 159 & 158.16 & 158 & 160.84 & 159 \tabularnewline
0.98 & 160.12 & 161.54 & 161 & 161 & 160.16 & 161 & 161.46 & 162 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=47362&T=1

[TABLE]
[ROW][C]Percentiles - Ungrouped Data[/C][/ROW]
[ROW][C]p[/C][C]Weighted Average at Xnp[/C][C]Weighted Average at X(n+1)p[/C][C]Empirical Distribution Function[/C][C]Empirical Distribution Function - Averaging[/C][C]Empirical Distribution Function - Interpolation[/C][C]Closest Observation[/C][C]True Basic - Statistics Graphics Toolkit[/C][C]MS Excel (old versions)[/C][/ROW]
[ROW][C]0.02[/C][C]93.88[/C][C]93.92[/C][C]95[/C][C]95[/C][C]96.26[/C][C]93[/C][C]94.08[/C][C]93[/C][/ROW]
[ROW][C]0.04[/C][C]97.64[/C][C]97.76[/C][C]98[/C][C]98[/C][C]98.84[/C][C]98[/C][C]95.24[/C][C]98[/C][/ROW]
[ROW][C]0.06[/C][C]99.96[/C][C]100.14[/C][C]102[/C][C]102[/C][C]102.26[/C][C]99[/C][C]100.86[/C][C]99[/C][/ROW]
[ROW][C]0.08[/C][C]102.76[/C][C]102.84[/C][C]103[/C][C]103[/C][C]104.36[/C][C]103[/C][C]102.16[/C][C]103[/C][/ROW]
[ROW][C]0.1[/C][C]105[/C][C]105[/C][C]105[/C][C]105[/C][C]105.1[/C][C]105[/C][C]105[/C][C]105[/C][/ROW]
[ROW][C]0.12[/C][C]105.64[/C][C]105.76[/C][C]106[/C][C]106[/C][C]106.52[/C][C]106[/C][C]105.24[/C][C]106[/C][/ROW]
[ROW][C]0.14[/C][C]107.16[/C][C]107.44[/C][C]109[/C][C]109[/C][C]108.88[/C][C]107[/C][C]108.56[/C][C]107[/C][/ROW]
[ROW][C]0.16[/C][C]110.04[/C][C]110.36[/C][C]111[/C][C]111[/C][C]111[/C][C]111[/C][C]109.64[/C][C]111[/C][/ROW]
[ROW][C]0.18[/C][C]111[/C][C]111[/C][C]111[/C][C]111[/C][C]111[/C][C]111[/C][C]111[/C][C]111[/C][/ROW]
[ROW][C]0.2[/C][C]111[/C][C]111[/C][C]111[/C][C]111[/C][C]111.2[/C][C]111[/C][C]111[/C][C]111[/C][/ROW]
[ROW][C]0.22[/C][C]111.84[/C][C]112[/C][C]112[/C][C]112[/C][C]112[/C][C]112[/C][C]112[/C][C]112[/C][/ROW]
[ROW][C]0.24[/C][C]112.28[/C][C]112.52[/C][C]113[/C][C]113[/C][C]113[/C][C]112[/C][C]112.48[/C][C]113[/C][/ROW]
[ROW][C]0.26[/C][C]113[/C][C]113[/C][C]113[/C][C]113[/C][C]113[/C][C]113[/C][C]113[/C][C]113[/C][/ROW]
[ROW][C]0.28[/C][C]113.16[/C][C]113.44[/C][C]114[/C][C]114[/C][C]113.88[/C][C]113[/C][C]113.56[/C][C]113[/C][/ROW]
[ROW][C]0.3[/C][C]114[/C][C]114[/C][C]114[/C][C]114[/C][C]114.3[/C][C]114[/C][C]114[/C][C]114[/C][/ROW]
[ROW][C]0.32[/C][C]115[/C][C]115[/C][C]115[/C][C]115[/C][C]115[/C][C]115[/C][C]115[/C][C]115[/C][/ROW]
[ROW][C]0.34[/C][C]115.48[/C][C]115.82[/C][C]116[/C][C]116[/C][C]116.14[/C][C]115[/C][C]115.18[/C][C]116[/C][/ROW]
[ROW][C]0.36[/C][C]116.92[/C][C]117[/C][C]117[/C][C]117[/C][C]117[/C][C]117[/C][C]117[/C][C]117[/C][/ROW]
[ROW][C]0.38[/C][C]117[/C][C]117[/C][C]117[/C][C]117[/C][C]117[/C][C]117[/C][C]117[/C][C]117[/C][/ROW]
[ROW][C]0.4[/C][C]117.8[/C][C]118.4[/C][C]118[/C][C]118[/C][C]118.8[/C][C]118[/C][C]119.6[/C][C]118[/C][/ROW]
[ROW][C]0.42[/C][C]120.48[/C][C]121.32[/C][C]122[/C][C]122[/C][C]121.64[/C][C]120[/C][C]120.68[/C][C]122[/C][/ROW]
[ROW][C]0.44[/C][C]122.68[/C][C]123[/C][C]123[/C][C]123[/C][C]123[/C][C]123[/C][C]123[/C][C]123[/C][/ROW]
[ROW][C]0.46[/C][C]123[/C][C]123[/C][C]123[/C][C]123[/C][C]123[/C][C]123[/C][C]123[/C][C]123[/C][/ROW]
[ROW][C]0.48[/C][C]123.56[/C][C]124[/C][C]124[/C][C]124[/C][C]124[/C][C]124[/C][C]124[/C][C]124[/C][/ROW]
[ROW][C]0.5[/C][C]124[/C][C]124.5[/C][C]124[/C][C]124.5[/C][C]124.5[/C][C]124[/C][C]124.5[/C][C]124.5[/C][/ROW]
[ROW][C]0.52[/C][C]125[/C][C]125[/C][C]125[/C][C]125[/C][C]125[/C][C]125[/C][C]125[/C][C]125[/C][/ROW]
[ROW][C]0.54[/C][C]125.88[/C][C]126.42[/C][C]126[/C][C]126[/C][C]126.34[/C][C]126[/C][C]126.58[/C][C]126[/C][/ROW]
[ROW][C]0.56[/C][C]127.32[/C][C]127.88[/C][C]128[/C][C]128[/C][C]127.76[/C][C]127[/C][C]127.12[/C][C]128[/C][/ROW]
[ROW][C]0.58[/C][C]129.52[/C][C]130[/C][C]130[/C][C]130[/C][C]130[/C][C]130[/C][C]130[/C][C]130[/C][/ROW]
[ROW][C]0.6[/C][C]130.2[/C][C]130.8[/C][C]131[/C][C]131[/C][C]130.6[/C][C]130[/C][C]130.2[/C][C]131[/C][/ROW]
[ROW][C]0.62[/C][C]131.64[/C][C]132.26[/C][C]132[/C][C]132[/C][C]132.02[/C][C]132[/C][C]132.74[/C][C]132[/C][/ROW]
[ROW][C]0.64[/C][C]133.08[/C][C]133.72[/C][C]134[/C][C]134[/C][C]133.44[/C][C]133[/C][C]133.28[/C][C]134[/C][/ROW]
[ROW][C]0.66[/C][C]134.52[/C][C]135.18[/C][C]135[/C][C]135[/C][C]134.86[/C][C]135[/C][C]135.82[/C][C]135[/C][/ROW]
[ROW][C]0.68[/C][C]135.96[/C][C]136[/C][C]136[/C][C]136[/C][C]136[/C][C]136[/C][C]136[/C][C]136[/C][/ROW]
[ROW][C]0.7[/C][C]136.4[/C][C]137[/C][C]137[/C][C]137[/C][C]136.7[/C][C]136[/C][C]137[/C][C]137[/C][/ROW]
[ROW][C]0.72[/C][C]137[/C][C]137[/C][C]137[/C][C]137[/C][C]137[/C][C]137[/C][C]137[/C][C]137[/C][/ROW]
[ROW][C]0.74[/C][C]137.56[/C][C]139[/C][C]139[/C][C]139[/C][C]138.08[/C][C]137[/C][C]139[/C][C]139[/C][/ROW]
[ROW][C]0.76[/C][C]139[/C][C]141.4[/C][C]139[/C][C]139[/C][C]139[/C][C]139[/C][C]141.6[/C][C]139[/C][/ROW]
[ROW][C]0.78[/C][C]144.48[/C][C]146.82[/C][C]147[/C][C]147[/C][C]145.14[/C][C]144[/C][C]144.18[/C][C]147[/C][/ROW]
[ROW][C]0.8[/C][C]147[/C][C]147[/C][C]147[/C][C]147[/C][C]147[/C][C]147[/C][C]147[/C][C]147[/C][/ROW]
[ROW][C]0.82[/C][C]147[/C][C]147[/C][C]147[/C][C]147[/C][C]147[/C][C]147[/C][C]147[/C][C]147[/C][/ROW]
[ROW][C]0.84[/C][C]147.96[/C][C]149[/C][C]149[/C][C]149[/C][C]148.28[/C][C]147[/C][C]149[/C][C]149[/C][/ROW]
[ROW][C]0.86[/C][C]149[/C][C]149[/C][C]149[/C][C]149[/C][C]149[/C][C]149[/C][C]149[/C][C]149[/C][/ROW]
[ROW][C]0.88[/C][C]149.36[/C][C]150[/C][C]150[/C][C]150[/C][C]149.48[/C][C]149[/C][C]150[/C][C]150[/C][/ROW]
[ROW][C]0.9[/C][C]150[/C][C]152.1[/C][C]150[/C][C]150[/C][C]150[/C][C]150[/C][C]150.9[/C][C]153[/C][/ROW]
[ROW][C]0.92[/C][C]153.96[/C][C]157[/C][C]157[/C][C]157[/C][C]154.28[/C][C]153[/C][C]157[/C][C]157[/C][/ROW]
[ROW][C]0.94[/C][C]157[/C][C]157.62[/C][C]157[/C][C]157[/C][C]157[/C][C]157[/C][C]157.38[/C][C]158[/C][/ROW]
[ROW][C]0.96[/C][C]158.12[/C][C]159.16[/C][C]159[/C][C]159[/C][C]158.16[/C][C]158[/C][C]160.84[/C][C]159[/C][/ROW]
[ROW][C]0.98[/C][C]160.12[/C][C]161.54[/C][C]161[/C][C]161[/C][C]160.16[/C][C]161[/C][C]161.46[/C][C]162[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=47362&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=47362&T=1

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

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	93.88	93.92	95	95	96.26	93	94.08	93
0.04	97.64	97.76	98	98	98.84	98	95.24	98
0.06	99.96	100.14	102	102	102.26	99	100.86	99
0.08	102.76	102.84	103	103	104.36	103	102.16	103
0.1	105	105	105	105	105.1	105	105	105
0.12	105.64	105.76	106	106	106.52	106	105.24	106
0.14	107.16	107.44	109	109	108.88	107	108.56	107
0.16	110.04	110.36	111	111	111	111	109.64	111
0.18	111	111	111	111	111	111	111	111
0.2	111	111	111	111	111.2	111	111	111
0.22	111.84	112	112	112	112	112	112	112
0.24	112.28	112.52	113	113	113	112	112.48	113
0.26	113	113	113	113	113	113	113	113
0.28	113.16	113.44	114	114	113.88	113	113.56	113
0.3	114	114	114	114	114.3	114	114	114
0.32	115	115	115	115	115	115	115	115
0.34	115.48	115.82	116	116	116.14	115	115.18	116
0.36	116.92	117	117	117	117	117	117	117
0.38	117	117	117	117	117	117	117	117
0.4	117.8	118.4	118	118	118.8	118	119.6	118
0.42	120.48	121.32	122	122	121.64	120	120.68	122
0.44	122.68	123	123	123	123	123	123	123
0.46	123	123	123	123	123	123	123	123
0.48	123.56	124	124	124	124	124	124	124
0.5	124	124.5	124	124.5	124.5	124	124.5	124.5
0.52	125	125	125	125	125	125	125	125
0.54	125.88	126.42	126	126	126.34	126	126.58	126
0.56	127.32	127.88	128	128	127.76	127	127.12	128
0.58	129.52	130	130	130	130	130	130	130
0.6	130.2	130.8	131	131	130.6	130	130.2	131
0.62	131.64	132.26	132	132	132.02	132	132.74	132
0.64	133.08	133.72	134	134	133.44	133	133.28	134
0.66	134.52	135.18	135	135	134.86	135	135.82	135
0.68	135.96	136	136	136	136	136	136	136
0.7	136.4	137	137	137	136.7	136	137	137
0.72	137	137	137	137	137	137	137	137
0.74	137.56	139	139	139	138.08	137	139	139
0.76	139	141.4	139	139	139	139	141.6	139
0.78	144.48	146.82	147	147	145.14	144	144.18	147
0.8	147	147	147	147	147	147	147	147
0.82	147	147	147	147	147	147	147	147
0.84	147.96	149	149	149	148.28	147	149	149
0.86	149	149	149	149	149	149	149	149
0.88	149.36	150	150	150	149.48	149	150	150
0.9	150	152.1	150	150	150	150	150.9	153
0.92	153.96	157	157	157	154.28	153	157	157
0.94	157	157.62	157	157	157	157	157.38	158
0.96	158.12	159.16	159	159	158.16	158	160.84	159
0.98	160.12	161.54	161	161	160.16	161	161.46	162

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 0.01 ; par2 = 0.99 ; par3 = 0.005 ;

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('method_1.htm', 'Weighted Average at Xnp',''),1,TRUE)
a<-table.element(a,hyperlink('method_2.htm','Weighted Average at X(n+1)p',''),1,TRUE)
a<-table.element(a,hyperlink('method_3.htm','Empirical Distribution Function',''),1,TRUE)
a<-table.element(a,hyperlink('method_4.htm','Empirical Distribution Function - Averaging',''),1,TRUE)
a<-table.element(a,hyperlink('method_5.htm','Empirical Distribution Function - Interpolation',''),1,TRUE)
a<-table.element(a,hyperlink('method_6.htm','Closest Observation',''),1,TRUE)
a<-table.element(a,hyperlink('method_7.htm','True Basic - Statistics Graphics Toolkit',''),1,TRUE)
a<-table.element(a,hyperlink('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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code