Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_variancereduction.wasp
Title produced by softwareVariance Reduction Matrix
Date of computationFri, 03 Dec 2010 15:30:13 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/03/t1291390093pr7lbov3i5hl5zx.htm/, Retrieved Tue, 07 May 2024 10:13:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=104868, Retrieved Tue, 07 May 2024 10:13:38 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact178
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Variance Reduction Matrix] [Unemployment] [2010-11-29 09:29:57] [b98453cac15ba1066b407e146608df68]
-   PD    [Variance Reduction Matrix] [WS9] [2010-12-03 15:30:13] [0cadca125c925bcc9e6efbdd1941e458] [Current]
Feedback Forum

Post a new message
Dataseries X:
101,79
101,78
102,04
102,05
101,97
102,2
102,18
102,09
101,79
101,79
101,79
101,91
101,84
101,91
103,21
103,21
104,17
103,86
104,97
104,91
104,02
104,02
103,8
103,8
104,28
103,79
103,81
103,74
105,05
104,92
104,72
104,65
104,72
104,59
104,59
104,55
104,47
104,48
104,35
104,09
104,52
104,88
105,16
105,19
105,23
105,21
105,2
105,16
105,06
105,09
105,8
105,76
105,72
105,82
105,82
105,71




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=104868&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=104868&T=0

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







Variance Reduction Matrix
V(Y[t],d=0,D=0)1.79834022727272Range4.03999999999999Trim Var.1.36382229609929
V(Y[t],d=1,D=0)0.149263164983165Range2.20000000000000Trim Var.0.0520875
V(Y[t],d=2,D=0)0.347487071977638Range2.86Trim Var.0.161840425531914
V(Y[t],d=3,D=0)1.13380914368650Range5.51000000000002Trim Var.0.490879278445881
V(Y[t],d=0,D=1)0.675180549682873Range3.34999999999999Trim Var.0.400473186344238
V(Y[t],d=1,D=1)0.292746733111849Range2.44Trim Var.0.131030480480480
V(Y[t],d=2,D=1)0.64573774680604Range3.25000000000001Trim Var.0.40479968253968
V(Y[t],d=3,D=1)1.92684000000000Range6.02000000000001Trim Var.1.04222689075630
V(Y[t],d=0,D=2)1.69426199596774Range5.46999999999998Trim Var.0.957965476190472
V(Y[t],d=1,D=2)0.925924731182793Range4.23Trim Var.0.422546153846152
V(Y[t],d=2,D=2)1.95136781609195Range5.56000000000002Trim Var.1.31625846153846
V(Y[t],d=3,D=2)5.62006083743843Range10.1300000000001Trim Var.3.31258066666666

\begin{tabular}{lllllllll}
\hline
Variance Reduction Matrix \tabularnewline
V(Y[t],d=0,D=0) & 1.79834022727272 & Range & 4.03999999999999 & Trim Var. & 1.36382229609929 \tabularnewline
V(Y[t],d=1,D=0) & 0.149263164983165 & Range & 2.20000000000000 & Trim Var. & 0.0520875 \tabularnewline
V(Y[t],d=2,D=0) & 0.347487071977638 & Range & 2.86 & Trim Var. & 0.161840425531914 \tabularnewline
V(Y[t],d=3,D=0) & 1.13380914368650 & Range & 5.51000000000002 & Trim Var. & 0.490879278445881 \tabularnewline
V(Y[t],d=0,D=1) & 0.675180549682873 & Range & 3.34999999999999 & Trim Var. & 0.400473186344238 \tabularnewline
V(Y[t],d=1,D=1) & 0.292746733111849 & Range & 2.44 & Trim Var. & 0.131030480480480 \tabularnewline
V(Y[t],d=2,D=1) & 0.64573774680604 & Range & 3.25000000000001 & Trim Var. & 0.40479968253968 \tabularnewline
V(Y[t],d=3,D=1) & 1.92684000000000 & Range & 6.02000000000001 & Trim Var. & 1.04222689075630 \tabularnewline
V(Y[t],d=0,D=2) & 1.69426199596774 & Range & 5.46999999999998 & Trim Var. & 0.957965476190472 \tabularnewline
V(Y[t],d=1,D=2) & 0.925924731182793 & Range & 4.23 & Trim Var. & 0.422546153846152 \tabularnewline
V(Y[t],d=2,D=2) & 1.95136781609195 & Range & 5.56000000000002 & Trim Var. & 1.31625846153846 \tabularnewline
V(Y[t],d=3,D=2) & 5.62006083743843 & Range & 10.1300000000001 & Trim Var. & 3.31258066666666 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=104868&T=1

[TABLE]
[ROW][C]Variance Reduction Matrix[/C][/ROW]
[ROW][C]V(Y[t],d=0,D=0)[/C][C]1.79834022727272[/C][C]Range[/C][C]4.03999999999999[/C][C]Trim Var.[/C][C]1.36382229609929[/C][/ROW]
[ROW][C]V(Y[t],d=1,D=0)[/C][C]0.149263164983165[/C][C]Range[/C][C]2.20000000000000[/C][C]Trim Var.[/C][C]0.0520875[/C][/ROW]
[ROW][C]V(Y[t],d=2,D=0)[/C][C]0.347487071977638[/C][C]Range[/C][C]2.86[/C][C]Trim Var.[/C][C]0.161840425531914[/C][/ROW]
[ROW][C]V(Y[t],d=3,D=0)[/C][C]1.13380914368650[/C][C]Range[/C][C]5.51000000000002[/C][C]Trim Var.[/C][C]0.490879278445881[/C][/ROW]
[ROW][C]V(Y[t],d=0,D=1)[/C][C]0.675180549682873[/C][C]Range[/C][C]3.34999999999999[/C][C]Trim Var.[/C][C]0.400473186344238[/C][/ROW]
[ROW][C]V(Y[t],d=1,D=1)[/C][C]0.292746733111849[/C][C]Range[/C][C]2.44[/C][C]Trim Var.[/C][C]0.131030480480480[/C][/ROW]
[ROW][C]V(Y[t],d=2,D=1)[/C][C]0.64573774680604[/C][C]Range[/C][C]3.25000000000001[/C][C]Trim Var.[/C][C]0.40479968253968[/C][/ROW]
[ROW][C]V(Y[t],d=3,D=1)[/C][C]1.92684000000000[/C][C]Range[/C][C]6.02000000000001[/C][C]Trim Var.[/C][C]1.04222689075630[/C][/ROW]
[ROW][C]V(Y[t],d=0,D=2)[/C][C]1.69426199596774[/C][C]Range[/C][C]5.46999999999998[/C][C]Trim Var.[/C][C]0.957965476190472[/C][/ROW]
[ROW][C]V(Y[t],d=1,D=2)[/C][C]0.925924731182793[/C][C]Range[/C][C]4.23[/C][C]Trim Var.[/C][C]0.422546153846152[/C][/ROW]
[ROW][C]V(Y[t],d=2,D=2)[/C][C]1.95136781609195[/C][C]Range[/C][C]5.56000000000002[/C][C]Trim Var.[/C][C]1.31625846153846[/C][/ROW]
[ROW][C]V(Y[t],d=3,D=2)[/C][C]5.62006083743843[/C][C]Range[/C][C]10.1300000000001[/C][C]Trim Var.[/C][C]3.31258066666666[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=104868&T=1

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

As an alternative you can also use a QR Code:  

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

Variance Reduction Matrix
V(Y[t],d=0,D=0)1.79834022727272Range4.03999999999999Trim Var.1.36382229609929
V(Y[t],d=1,D=0)0.149263164983165Range2.20000000000000Trim Var.0.0520875
V(Y[t],d=2,D=0)0.347487071977638Range2.86Trim Var.0.161840425531914
V(Y[t],d=3,D=0)1.13380914368650Range5.51000000000002Trim Var.0.490879278445881
V(Y[t],d=0,D=1)0.675180549682873Range3.34999999999999Trim Var.0.400473186344238
V(Y[t],d=1,D=1)0.292746733111849Range2.44Trim Var.0.131030480480480
V(Y[t],d=2,D=1)0.64573774680604Range3.25000000000001Trim Var.0.40479968253968
V(Y[t],d=3,D=1)1.92684000000000Range6.02000000000001Trim Var.1.04222689075630
V(Y[t],d=0,D=2)1.69426199596774Range5.46999999999998Trim Var.0.957965476190472
V(Y[t],d=1,D=2)0.925924731182793Range4.23Trim Var.0.422546153846152
V(Y[t],d=2,D=2)1.95136781609195Range5.56000000000002Trim Var.1.31625846153846
V(Y[t],d=3,D=2)5.62006083743843Range10.1300000000001Trim Var.3.31258066666666



Parameters (Session):
par1 = 1 ; par2 = 2 ; par3 = 2 ; par4 = 1 ;
Parameters (R input):
par1 = 12 ;
R code (references can be found in the software module):
par1 <- as.numeric(par1)
n <- length(x)
sx <- sort(x)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Variance Reduction Matrix',6,TRUE)
a<-table.row.end(a)
for (bigd in 0:2) {
for (smalld in 0:3) {
mylabel <- 'V(Y[t],d='
mylabel <- paste(mylabel,as.character(smalld),sep='')
mylabel <- paste(mylabel,',D=',sep='')
mylabel <- paste(mylabel,as.character(bigd),sep='')
mylabel <- paste(mylabel,')',sep='')
a<-table.row.start(a)
a<-table.element(a,mylabel,header=TRUE)
myx <- x
if (smalld > 0) myx <- diff(x,lag=1,differences=smalld)
if (bigd > 0) myx <- diff(myx,lag=par1,differences=bigd)
a<-table.element(a,var(myx))
a<-table.element(a,'Range',header=TRUE)
a<-table.element(a,max(myx)-min(myx))
a<-table.element(a,'Trim Var.',header=TRUE)
smyx <- sort(myx)
sn <- length(smyx)
a<-table.element(a,var(smyx[smyx>quantile(smyx,0.05) & smyxa<-table.row.end(a)
}
}
a<-table.end(a)
table.save(a,file='mytable.tab')