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_meanplot.wasp

Title produced by software

Mean Plot

Date of computation

Sun, 20 Dec 2009 14:31:08 -0700

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/Dec/20/t12613446933ituzvisw3o7kj5.htm/, Retrieved Sat, 27 Apr 2024 06:04:48 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=70030, Retrieved Sat, 27 Apr 2024 06:04:48 +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

119

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

-     [Kendall tau Rank Correlation] [3/11/2009] [2009-11-02 21:55:52] [b98453cac15ba1066b407e146608df68]
- R  D  [Kendall tau Rank Correlation] [] [2009-11-12 17:30:38] [74be16979710d4c4e7c6647856088456]
- RMPD    [Mean Plot] [] [2009-12-13 14:55:04] [e2ae2d788de9b949efa455f763351347]
-   PD        [Mean Plot] [] [2009-12-20 21:31:08] [8551abdd6804649d94d88b1829ac2b1a] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

7.03783512969226
-98.3312467372175
-117.325401144406
-42.7948033030729
-165.254264496858
-196.555340415592
145.254550435451
-79.0414259157364
-34.0832910828553
171.087420498627
-28.1542367670882
-68.9435615590894
-156.001393418334
-104.456934875882
130.549461497950
34.8922283561497
-123.098349508062
74.5576548712037
67.0810176316715
152.706476785095
91.2303867678834
-110.882335556812
-63.1515441793628
11.9161441760431
56.111817635295
34.6434739833669
0.459168959230808
124.384105899383
-277.557054985246
77.3190779022267
86.6189780737299
-118.689668627819
267.580038935061
42.1259919911072
45.9789517089369
-99.395391658839
227.000383506021
84.4157532050709
105.331312172398
-192.382641815791
-56.2564209143736
39.5829396160272
241.089876240609
294.048754836687
80.3314860927041
154.577463913597
-204.181032235406
292.712866704525
137.895615077045
-22.3900588496519
164.690640469680
14.2498538101749
164.397885385949
-5.26345425644624
-131.777413552913
-128.88093775439
-169.431718103336
-12.2335813289512
-32.2123203622983
-91.8937474036534
149.134033642112
195.332136919032
18.3981744397026
121.462520305033
153.777651802018
45.3498183649984
-124.422532349626
-204.260726112894
-145.205342416386
-119.804957070208
148.122321310936
-93.2058969118374
-65.2388449926761
-88.3620370284215
-129.532157838408
-9.2469890086225
28.3388095679010
-240.907523502917
-16.6782243489416
139.666336757527
-234.487641945176
228.394801661146
-184.933176456224
-28.666192801664
-14.8453193979652
-199.483852991607
13.6465274997104
-230.29179207403
81.8579620197308
4.86081765309311
-17.5590342194350
179.618783151966
-94.3631378156688
-106.097639570226
-107.534979176420
21.9000068305806
-142.522113796213
81.2097507416726
-34.3238154153577
62.2956437618072
-147.206044248034
-67.4179711660492
66.1124152079459
117.156704601882
244.820327089704
-145.019708301844
-22.6714338685113
8.34530597612882
-142.513254377861
154.846929269182
47.7414082166392
-5.25010190300413
-35.8451116699208
-117.492487104458
99.5934034310243
149.795051334379
79.603783152614
-106.925290146154
213.396122633205
-51.5978154550942
-52.7767772308038
-76.7178470217067
-124.740443525246
38.5615824089955
50.7924078971276
-109.513841122060
97.3231116440577
125.340786977475
-30.8742409164725
-112.250837824287
28.0870498207617
-21.8358842027445
-54.7201336644692
93.2607812073961
-87.500795519974
24.4728882163302
-41.541757987332
107.428710097945
-224.631733186458
-49.2094660310937
-63.6220721404223
118.202235380549
87.9365313771192
16.8857286629086
3.40429185321661
-73.7608136638874
141.323268192647
-59.2442489060646
88.2489237339183
181.402622666532
-155.569657072819
-328.526166234309
-19.9557930759967
149.911989238589
22.4025271335545
31.1270716215838
8.7700149451982
132.375377611128
-59.4000352570887
156.352868592634
-35.91415873356
105.827992809706
32.1302880061727
-4.83085047993892
-126.535939617738
-225.420029592616
1.76168052830480
70.0224321866176
-21.7339751364453
-105.449404941814
-36.659878508723
-76.9976316993702
179.970481462103
20.4389668756409
-191.810150339689
-192.074837155084
154.993155076085
74.334476707483
95.1535385324919
2.62893383453497
60.9978202261871
-7.13200682666083
-32.6574342387546
39.5365173594474
135.289040674639
80.3820167101494
27.2451043992194
-52.8188161337465

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=70030&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]2 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=70030&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=70030&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	2 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Figure 3

PNG link

Postscript link

PDF link

Figure 4

PNG link

Postscript link

PDF link

Figure 5

PNG link

Postscript link

PDF link

Figure 6

PNG link

Postscript link

PDF link

Figure 7

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 1 ; par2 = Include Monthly Dummies ; par3 = Linear Trend ;

Parameters (R input):

par1 = 12 ;

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

par1 <- as.numeric(par1)
(n <- length(x))
(np <- floor(n / par1))
arr <- array(NA,dim=c(par1,np+1))
darr <- array(NA,dim=c(par1,np+1))
ari <- array(0,dim=par1)
dx <- diff(x)
j <- 0
for (i in 1:n)
{
j = j + 1
ari[j] = ari[j] + 1
arr[j,ari[j]] <- x[i]
darr[j,ari[j]] <- dx[i]
if (j == par1) j = 0
}
ari
arr
darr
arr.mean <- array(NA,dim=par1)
arr.median <- array(NA,dim=par1)
arr.midrange <- array(NA,dim=par1)
for (j in 1:par1)
{
arr.mean[j] <- mean(arr[j,],na.rm=TRUE)
arr.median[j] <- median(arr[j,],na.rm=TRUE)
arr.midrange[j] <- (quantile(arr[j,],0.75,na.rm=TRUE) + quantile(arr[j,],0.25,na.rm=TRUE)) / 2
}
overall.mean <- mean(x)
overall.median <- median(x)
overall.midrange <- (quantile(x,0.75) + quantile(x,0.25)) / 2
bitmap(file='plot1.png')
plot(arr.mean,type='b',ylab='mean',main='Mean Plot',xlab='Periodic Index')
mtext(paste('#blocks = ',np))
abline(overall.mean,0)
dev.off()
bitmap(file='plot2.png')
plot(arr.median,type='b',ylab='median',main='Median Plot',xlab='Periodic Index')
mtext(paste('#blocks = ',np))
abline(overall.median,0)
dev.off()
bitmap(file='plot3.png')
plot(arr.midrange,type='b',ylab='midrange',main='Midrange Plot',xlab='Periodic Index')
mtext(paste('#blocks = ',np))
abline(overall.midrange,0)
dev.off()
bitmap(file='plot4.png')
z <- data.frame(t(arr))
names(z) <- c(1:par1)
(boxplot(z,notch=TRUE,col='grey',xlab='Periodic Index',ylab='Value',main='Notched Box Plots - Periodic Subseries'))
dev.off()
bitmap(file='plot4b.png')
z <- data.frame(t(darr))
names(z) <- c(1:par1)
(boxplot(z,notch=TRUE,col='grey',xlab='Periodic Index',ylab='Value',main='Notched Box Plots - Differenced Periodic Subseries'))
dev.off()
bitmap(file='plot5.png')
z <- data.frame(arr)
names(z) <- c(1:np)
(boxplot(z,notch=TRUE,col='grey',xlab='Block Index',ylab='Value',main='Notched Box Plots - Sequential Blocks'))
dev.off()
bitmap(file='plot6.png')
z <- data.frame(cbind(arr.mean,arr.median,arr.midrange))
names(z) <- list('mean','median','midrange')
(boxplot(z,notch=TRUE,col='grey',ylab='Overall Central Tendency',main='Notched Box Plots'))
dev.off()

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code