Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_sdplot.wasp
Title produced by softwareStandard Deviation Plot
Date of computationMon, 02 Nov 2009 23:09:58 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/02/t1257199990d3sf7jmgxmsdl8l.htm/, Retrieved Sat, 27 Apr 2024 23:35:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=53041, Retrieved Sat, 27 Apr 2024 23:35:40 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact451
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Standard Deviation Plot] [3/11/2009] [2009-11-02 22:09:58] [d76b387543b13b5e3afd8ff9e5fdc89f] [Current]
-   PD    [Standard Deviation Plot] [] [2009-11-04 15:45:13] [8d2349dc1d6314bc274adc9ad027c980]
-   PD    [Standard Deviation Plot] [] [2009-11-04 15:45:13] [8d2349dc1d6314bc274adc9ad027c980]
-   PD    [Standard Deviation Plot] [] [2009-11-04 15:49:52] [4d62210f0915d3a20cbf115865da7cd4]
- R PD    [Standard Deviation Plot] [ws6] [2009-11-04 16:06:52] [757146c69eaf0537be37c7b0c18216d8]
-   PD    [Standard Deviation Plot] [f] [2009-11-04 19:38:41] [315ba876df544ad397193b5931d5f354]
-   P       [Standard Deviation Plot] [Paper] [2009-12-09 20:51:05] [3e19a07d230ba260a720e0e03e0f40f2]
-   PD    [Standard Deviation Plot] [Standard deviatio...] [2009-11-04 19:41:51] [214e6e00abbde49700521a7ef1d30da2]
- RM D      [Mean Plot] [Mean Plot] [2009-12-10 16:48:03] [214e6e00abbde49700521a7ef1d30da2]
-    D      [Standard Deviation Plot] [Standard Deviatio...] [2009-12-10 16:53:35] [214e6e00abbde49700521a7ef1d30da2]
-    D    [Standard Deviation Plot] [WS 6YY] [2009-11-04 22:49:10] [6e4e01d7eb22a9f33d58ebb35753a195]
-   PD    [Standard Deviation Plot] [standard deviatio...] [2009-11-05 10:44:56] [cd6314e7e707a6546bd4604c9d1f2b69]
-    D    [Standard Deviation Plot] [WS 6 Standard Dev...] [2009-11-05 10:51:20] [b103a1dc147def8132c7f643ad8c8f84]
-    D      [Standard Deviation Plot] [Paper: Standard d...] [2009-12-17 12:35:10] [b103a1dc147def8132c7f643ad8c8f84]
-   PD    [Standard Deviation Plot] [Standard Deviatio...] [2009-11-05 12:14:06] [4395c69e961f9a13a0559fd2f0a72538]
-    D      [Standard Deviation Plot] [Paper Standard De...] [2009-12-17 16:35:24] [4395c69e961f9a13a0559fd2f0a72538]
-   PD    [Standard Deviation Plot] [Standard Deviatio...] [2009-11-05 13:56:54] [f5d341d4bbba73282fc6e80153a6d315]
-   PD      [Standard Deviation Plot] [Standard Deviatio...] [2009-11-10 12:10:59] [f5d341d4bbba73282fc6e80153a6d315]
-             [Standard Deviation Plot] [tg14] [2009-11-10 14:42:44] [a21bac9c8d3d56fdec8be4e719e2c7ed]
- R P           [Standard Deviation Plot] [ws6] [2009-11-15 22:40:34] [3fc64fd7a52ce121dfe13dba27bf6e5b]
-             [Standard Deviation Plot] [TVD 14] [2009-11-10 22:43:14] [42ad1186d39724f834063794eac7cea3]
-               [Standard Deviation Plot] [PA14] [2009-12-15 10:01:48] [a21bac9c8d3d56fdec8be4e719e2c7ed]
-   PD    [Standard Deviation Plot] [Shwws6v1] [2009-11-05 14:53:25] [5f89c040fdf1f8599c99d7f78a662321]
-   PD    [Standard Deviation Plot] [WS 6 standard dev...] [2009-11-05 17:56:53] [eaf42bcf5162b5692bb3c7f9d4636222]
-    D    [Standard Deviation Plot] [shw6: Standard De...] [2009-11-05 20:29:00] [3c8b83428ce260cd44df892bb7619588]
-   PD    [Standard Deviation Plot] [] [2009-11-06 10:57:55] [74be16979710d4c4e7c6647856088456]
-   PD    [Standard Deviation Plot] [ws6 range plot] [2009-11-06 16:04:51] [8b1aef4e7013bd33fbc2a5833375c5f5]
-           [Standard Deviation Plot] [] [2009-11-11 10:35:01] [08fc5c07292c885b941f0cb515ce13f3]
- R PD      [Standard Deviation Plot] [Standard_Deviatio...] [2009-12-29 13:35:24] [2663058f2a5dda519058ac6b2228468f]
- R PD      [Standard Deviation Plot] [] [2010-12-10 13:39:45] [b64b273f7a25c5bb07ff2f026b8ce952]
- R PD        [Standard Deviation Plot] [] [2011-12-23 14:08:05] [53298c36f9bda1a036c4d70d0e7a311d]
-    D    [Standard Deviation Plot] [Standard Deviatio...] [2009-11-07 09:34:05] [3b0db66ac8145b1be856a517e2900332]
-   PD    [Standard Deviation Plot] [ws 6] [2009-11-07 14:16:30] [b5908418e3090fddbd22f5f0f774653d]
-    D    [Standard Deviation Plot] [WS 6: Standard De...] [2009-11-07 16:12:02] [8cf9233b7464ea02e32be3b30fdac052]
-   P       [Standard Deviation Plot] [WS 6: Standard De...] [2009-11-12 17:17:26] [b97b96148b0223bc16666763988dc147]
-   PD    [Standard Deviation Plot] [SHWWS6link11b] [2009-11-08 10:35:07] [a66d3a79ef9e5308cd94a469bc5ca464]
-   PD    [Standard Deviation Plot] [Workshop 6 Standa...] [2009-11-08 13:54:56] [f924a0adda9c1905a1ba8f1c751261ff]
-   PD    [Standard Deviation Plot] [] [2009-11-08 15:41:03] [7369a9baefff1ba9d2171738b4c9faa6]
F   PD    [Standard Deviation Plot] [] [2009-11-08 16:22:41] [cf890101a20378422561610e0d41fd9c]
-    D    [Standard Deviation Plot] [Standard Deviatio...] [2009-11-08 17:16:25] [e2a6b1b31bd881219e1879835b4c60d0]
-   PD      [Standard Deviation Plot] [Standard Deviatio...] [2009-12-13 20:14:52] [e2a6b1b31bd881219e1879835b4c60d0]
-   PD    [Standard Deviation Plot] [WS 6 Standard Dev...] [2009-11-09 10:36:56] [83058a88a37d754675a5cd22dab372fc]
-   PD    [Standard Deviation Plot] [Workshop 6] [2009-11-09 11:15:14] [3e19a07d230ba260a720e0e03e0f40f2]
-    D      [Standard Deviation Plot] [WS6] [2009-11-15 14:21:22] [9f35ad889e41dd0c9322ca60d75b9f47]
-   PD    [Standard Deviation Plot] [WS 6: Standard De...] [2009-11-09 13:01:09] [74be16979710d4c4e7c6647856088456]
-    D    [Standard Deviation Plot] [JJ Workshop 6, St...] [2009-11-09 18:59:35] [96e597a9107bfe8c07649cce3d4f6fec]
-   PD      [Standard Deviation Plot] [Paper, Standard D...] [2009-12-23 21:21:29] [96e597a9107bfe8c07649cce3d4f6fec]
-   PD    [Standard Deviation Plot] [WS6-11] [2009-11-09 20:18:29] [eea7474c6df699240a34279975905c82]
-   P       [Standard Deviation Plot] [] [2009-12-15 21:52:29] [eea7474c6df699240a34279975905c82]

[Truncated]
Feedback Forum

Post a new message
Dataseries X:
109.20
88.60
94.30
98.30
86.40
80.60
104.10
108.20
93.40
71.90
94.10
94.90
96.40
91.10
84.40
86.40
88.00
75.10
109.70
103.00
82.10
68.00
96.40
94.30
90.00
88.00
76.10
82.50
81.40
66.50
97.20
94.10
80.70
70.50
87.80
89.50
99.60
84.20
75.10
92.00
80.80
73.10
99.80
90.00
83.10
72.40
78.80
87.30
91.00
80.10
73.60
86.40
74.50
71.20
92.40
81.50
85.30
69.90
84.20
90.70
100.30




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=53041&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]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=53041&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=53041&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'George Udny Yule' @ 72.249.76.132



Parameters (Session):
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))
ari <- array(0,dim=par1)
j <- 0
for (i in 1:n)
{
j = j + 1
ari[j] = ari[j] + 1
arr[j,ari[j]] <- x[i]
if (j == par1) j = 0
}
ari
arr
arr.sd <- array(NA,dim=par1)
arr.range <- array(NA,dim=par1)
arr.iqr <- array(NA,dim=par1)
for (j in 1:par1)
{
arr.sd[j] <- sqrt(var(arr[j,],na.rm=TRUE))
arr.range[j] <- max(arr[j,],na.rm=TRUE) - min(arr[j,],na.rm=TRUE)
arr.iqr[j] <- quantile(arr[j,],0.75,na.rm=TRUE) - quantile(arr[j,],0.25,na.rm=TRUE)
}
overall.sd <- sqrt(var(x))
overall.range <- max(x) - min(x)
overall.iqr <- quantile(x,0.75) - quantile(x,0.25)
bitmap(file='plot1.png')
plot(arr.sd,type='b',ylab='S.D.',main='Standard Deviation Plot',xlab='Periodic Index')
mtext(paste('# blocks = ',np))
abline(overall.sd,0)
dev.off()
bitmap(file='plot2.png')
plot(arr.range,type='b',ylab='range',main='Range Plot',xlab='Periodic Index')
mtext(paste('# blocks = ',np))
abline(overall.range,0)
dev.off()
bitmap(file='plot3.png')
plot(arr.iqr,type='b',ylab='IQR',main='Interquartile Range Plot',xlab='Periodic Index')
mtext(paste('# blocks = ',np))
abline(overall.iqr,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='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.sd,arr.range,arr.iqr))
names(z) <- list('S.D.','Range','IQR')
(boxplot(z,notch=TRUE,col='grey',ylab='Overall Variability',main='Notched Box Plots'))
dev.off()