Free Statistics

of Irreproducible Research!

Author's title

Standard deviation -mean plot - werkloosheid in australie - Magali vn de Wi...

Author

*Unverified author*

R Software Module

rwasp_smp.wasp

Title produced by software

Standard Deviation-Mean Plot

Date of computation

Sat, 23 May 2009 06:45:21 -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/May/23/t1243082851t0t5renn49omeaa.htm/, Retrieved Sat, 04 May 2024 04:26:38 +0000

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

209

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

-       [Standard Deviation-Mean Plot] [Standard deviatio...] [2009-05-23 12:45:21] [946afef1f31655e4e01d6b8ef4c25a2b] [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	2 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=40323&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=40323&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=40323&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	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

Standard Deviation-Mean Plot
Section	Mean	Standard Deviation	Range
1	404391.666666667	26814.1908946239	79500
2	407441.666666667	27914.0062052053	94500
3	407941.666666667	25258.5344112848	88900
4	394733.333333333	28814.9687531051	90200
5	515808.333333333	87529.4387707082	254600
6	698958.333333333	34720.4539751776	125400
7	636208.333333333	49331.3556626529	165300
8	600125	44009.8775070077	139300
9	616950	35170.9461707452	106900
10	627650	44132.0230053581	145800
11	571750	54136.2674604138	156800
12	505575	43609.4052616259	151400
13	605191.666666667	70289.5499582501	233500
14	837000	55528.6821872674	195600
15	936541.666666667	38764.427421714	114400
16	936691.666666667	44347.4803698194	152100
17	844975	73313.487845007	253600

\begin{tabular}{lllllllll}
\hline
Standard Deviation-Mean Plot \tabularnewline
Section & Mean & Standard Deviation & Range \tabularnewline
1 & 404391.666666667 & 26814.1908946239 & 79500 \tabularnewline
2 & 407441.666666667 & 27914.0062052053 & 94500 \tabularnewline
3 & 407941.666666667 & 25258.5344112848 & 88900 \tabularnewline
4 & 394733.333333333 & 28814.9687531051 & 90200 \tabularnewline
5 & 515808.333333333 & 87529.4387707082 & 254600 \tabularnewline
6 & 698958.333333333 & 34720.4539751776 & 125400 \tabularnewline
7 & 636208.333333333 & 49331.3556626529 & 165300 \tabularnewline
8 & 600125 & 44009.8775070077 & 139300 \tabularnewline
9 & 616950 & 35170.9461707452 & 106900 \tabularnewline
10 & 627650 & 44132.0230053581 & 145800 \tabularnewline
11 & 571750 & 54136.2674604138 & 156800 \tabularnewline
12 & 505575 & 43609.4052616259 & 151400 \tabularnewline
13 & 605191.666666667 & 70289.5499582501 & 233500 \tabularnewline
14 & 837000 & 55528.6821872674 & 195600 \tabularnewline
15 & 936541.666666667 & 38764.427421714 & 114400 \tabularnewline
16 & 936691.666666667 & 44347.4803698194 & 152100 \tabularnewline
17 & 844975 & 73313.487845007 & 253600 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=40323&T=1

[TABLE]
[ROW][C]Standard Deviation-Mean Plot[/C][/ROW]
[ROW][C]Section[/C][C]Mean[/C][C]Standard Deviation[/C][C]Range[/C][/ROW]
[ROW][C]1[/C][C]404391.666666667[/C][C]26814.1908946239[/C][C]79500[/C][/ROW]
[ROW][C]2[/C][C]407441.666666667[/C][C]27914.0062052053[/C][C]94500[/C][/ROW]
[ROW][C]3[/C][C]407941.666666667[/C][C]25258.5344112848[/C][C]88900[/C][/ROW]
[ROW][C]4[/C][C]394733.333333333[/C][C]28814.9687531051[/C][C]90200[/C][/ROW]
[ROW][C]5[/C][C]515808.333333333[/C][C]87529.4387707082[/C][C]254600[/C][/ROW]
[ROW][C]6[/C][C]698958.333333333[/C][C]34720.4539751776[/C][C]125400[/C][/ROW]
[ROW][C]7[/C][C]636208.333333333[/C][C]49331.3556626529[/C][C]165300[/C][/ROW]
[ROW][C]8[/C][C]600125[/C][C]44009.8775070077[/C][C]139300[/C][/ROW]
[ROW][C]9[/C][C]616950[/C][C]35170.9461707452[/C][C]106900[/C][/ROW]
[ROW][C]10[/C][C]627650[/C][C]44132.0230053581[/C][C]145800[/C][/ROW]
[ROW][C]11[/C][C]571750[/C][C]54136.2674604138[/C][C]156800[/C][/ROW]
[ROW][C]12[/C][C]505575[/C][C]43609.4052616259[/C][C]151400[/C][/ROW]
[ROW][C]13[/C][C]605191.666666667[/C][C]70289.5499582501[/C][C]233500[/C][/ROW]
[ROW][C]14[/C][C]837000[/C][C]55528.6821872674[/C][C]195600[/C][/ROW]
[ROW][C]15[/C][C]936541.666666667[/C][C]38764.427421714[/C][C]114400[/C][/ROW]
[ROW][C]16[/C][C]936691.666666667[/C][C]44347.4803698194[/C][C]152100[/C][/ROW]
[ROW][C]17[/C][C]844975[/C][C]73313.487845007[/C][C]253600[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=40323&T=1

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

As an alternative you can also use a QR Code:

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

Standard Deviation-Mean Plot
Section	Mean	Standard Deviation	Range
1	404391.666666667	26814.1908946239	79500
2	407441.666666667	27914.0062052053	94500
3	407941.666666667	25258.5344112848	88900
4	394733.333333333	28814.9687531051	90200
5	515808.333333333	87529.4387707082	254600
6	698958.333333333	34720.4539751776	125400
7	636208.333333333	49331.3556626529	165300
8	600125	44009.8775070077	139300
9	616950	35170.9461707452	106900
10	627650	44132.0230053581	145800
11	571750	54136.2674604138	156800
12	505575	43609.4052616259	151400
13	605191.666666667	70289.5499582501	233500
14	837000	55528.6821872674	195600
15	936541.666666667	38764.427421714	114400
16	936691.666666667	44347.4803698194	152100
17	844975	73313.487845007	253600

Regression: S.E.(k) = alpha + beta * Mean(k)
alpha	26894.9288693815
beta	0.0309512105133214
S.D.	0.0239476930894724
T-STAT	1.29245060881993
p-value	0.215756932034609

\begin{tabular}{lllllllll}
\hline
Regression: S.E.(k) = alpha + beta * Mean(k) \tabularnewline
alpha & 26894.9288693815 \tabularnewline
beta & 0.0309512105133214 \tabularnewline
S.D. & 0.0239476930894724 \tabularnewline
T-STAT & 1.29245060881993 \tabularnewline
p-value & 0.215756932034609 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=40323&T=2

[TABLE]
[ROW][C]Regression: S.E.(k) = alpha + beta * Mean(k)[/C][/ROW]
[ROW][C]alpha[/C][C]26894.9288693815[/C][/ROW]
[ROW][C]beta[/C][C]0.0309512105133214[/C][/ROW]
[ROW][C]S.D.[/C][C]0.0239476930894724[/C][/ROW]
[ROW][C]T-STAT[/C][C]1.29245060881993[/C][/ROW]
[ROW][C]p-value[/C][C]0.215756932034609[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=40323&T=2

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

As an alternative you can also use a QR Code:

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

Regression: S.E.(k) = alpha + beta * Mean(k)
alpha	26894.9288693815
beta	0.0309512105133214
S.D.	0.0239476930894724
T-STAT	1.29245060881993
p-value	0.215756932034609

Regression: ln S.E.(k) = alpha + beta * ln Mean(k)
alpha	2.55766394557760
beta	0.61035401762357
S.D.	0.28429109163266
T-STAT	2.14693332147116
p-value	0.0485561935380429
Lambda	0.38964598237643

\begin{tabular}{lllllllll}
\hline
Regression: ln S.E.(k) = alpha + beta * ln Mean(k) \tabularnewline
alpha & 2.55766394557760 \tabularnewline
beta & 0.61035401762357 \tabularnewline
S.D. & 0.28429109163266 \tabularnewline
T-STAT & 2.14693332147116 \tabularnewline
p-value & 0.0485561935380429 \tabularnewline
Lambda & 0.38964598237643 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=40323&T=3

[TABLE]
[ROW][C]Regression: ln S.E.(k) = alpha + beta * ln Mean(k)[/C][/ROW]
[ROW][C]alpha[/C][C]2.55766394557760[/C][/ROW]
[ROW][C]beta[/C][C]0.61035401762357[/C][/ROW]
[ROW][C]S.D.[/C][C]0.28429109163266[/C][/ROW]
[ROW][C]T-STAT[/C][C]2.14693332147116[/C][/ROW]
[ROW][C]p-value[/C][C]0.0485561935380429[/C][/ROW]
[ROW][C]Lambda[/C][C]0.38964598237643[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=40323&T=3

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

As an alternative you can also use a QR Code:

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

Regression: ln S.E.(k) = alpha + beta * ln Mean(k)
alpha	2.55766394557760
beta	0.61035401762357
S.D.	0.28429109163266
T-STAT	2.14693332147116
p-value	0.0485561935380429
Lambda	0.38964598237643

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 12 ;

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))
j <- 0
k <- 1
for (i in 1:(np*par1))
{
j = j + 1
arr[j,k] <- x[i]
if (j == par1) {
j = 0
k=k+1
}
}
arr
arr.mean <- array(NA,dim=np)
arr.sd <- array(NA,dim=np)
arr.range <- array(NA,dim=np)
for (j in 1:np)
{
arr.mean[j] <- mean(arr[,j],na.rm=TRUE)
arr.sd[j] <- sd(arr[,j],na.rm=TRUE)
arr.range[j] <- max(arr[,j],na.rm=TRUE) - min(arr[,j],na.rm=TRUE)
}
arr.mean
arr.sd
arr.range
(lm1 <- lm(arr.sd~arr.mean))
(lnlm1 <- lm(log(arr.sd)~log(arr.mean)))
(lm2 <- lm(arr.range~arr.mean))
bitmap(file='test1.png')
plot(arr.mean,arr.sd,main='Standard Deviation-Mean Plot',xlab='mean',ylab='standard deviation')
dev.off()
bitmap(file='test2.png')
plot(arr.mean,arr.range,main='Range-Mean Plot',xlab='mean',ylab='range')
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Standard Deviation-Mean Plot',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Section',header=TRUE)
a<-table.element(a,'Mean',header=TRUE)
a<-table.element(a,'Standard Deviation',header=TRUE)
a<-table.element(a,'Range',header=TRUE)
a<-table.row.end(a)
for (j in 1:np) {
a<-table.row.start(a)
a<-table.element(a,j,header=TRUE)
a<-table.element(a,arr.mean[j])
a<-table.element(a,arr.sd[j] )
a<-table.element(a,arr.range[j] )
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Regression: S.E.(k) = alpha + beta * Mean(k)',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'alpha',header=TRUE)
a<-table.element(a,lm1$coefficients[[1]])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'beta',header=TRUE)
a<-table.element(a,lm1$coefficients[[2]])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'S.D.',header=TRUE)
a<-table.element(a,summary(lm1)$coefficients[2,2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'T-STAT',header=TRUE)
a<-table.element(a,summary(lm1)$coefficients[2,3])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-value',header=TRUE)
a<-table.element(a,summary(lm1)$coefficients[2,4])
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Regression: ln S.E.(k) = alpha + beta * ln Mean(k)',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'alpha',header=TRUE)
a<-table.element(a,lnlm1$coefficients[[1]])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'beta',header=TRUE)
a<-table.element(a,lnlm1$coefficients[[2]])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'S.D.',header=TRUE)
a<-table.element(a,summary(lnlm1)$coefficients[2,2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'T-STAT',header=TRUE)
a<-table.element(a,summary(lnlm1)$coefficients[2,3])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-value',header=TRUE)
a<-table.element(a,summary(lnlm1)$coefficients[2,4])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Lambda',header=TRUE)
a<-table.element(a,1-lnlm1$coefficients[[2]])
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable2.tab')

Free Statistics

Description of Statistical Computation

Standard deviation -mean plot - werkloosheid in australie - Magali vn de Wi...

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code