FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_bootstrapplot.wasp
Title produced by softwareBlocked Bootstrap Plot - Central Tendency
Date of computationFri, 12 Nov 2010 11:40:14 +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/Nov/12/t12895619265wu14vw60i9w4oj.htm/, Retrieved Fri, 26 Apr 2024 17:09:12 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=94095, Retrieved Fri, 26 Apr 2024 17:09:12 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact212

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bivariate Data Series] [Bivariate dataset] [2008-01-05 23:51:08] [74be16979710d4c4e7c6647856088456]
- RMPD  [Blocked Bootstrap Plot - Central Tendency] [Colombia Coffee] [2008-01-07 10:26:26] [74be16979710d4c4e7c6647856088456]
-  M D    [Blocked Bootstrap Plot - Central Tendency] [Retailprijs - Boo...] [2010-11-05 10:20:00] [aeb27d5c05332f2e597ad139ee63fbe4]
-    D        [Blocked Bootstrap Plot - Central Tendency] [Bootstrap Sim - n...] [2010-11-12 11:40:14] [18ef3d986e8801a4b28404e69e5bf56b] [Current]
-    D          [Blocked Bootstrap Plot - Central Tendency] [Bootstrap Simulat...] [2010-12-17 13:42:23] [aeb27d5c05332f2e597ad139ee63fbe4]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
586111
604378
600991
544686
537034
551531
563250
574761
580112
575093
557560
564478
580523
596594
586570
536214
523597
536535
536322
532638
528222
516141
501866
506174
517945
533590
528379
477580
469357
490243
492622
507561
516922
514258
509846
527070
541657
564591
555362
498662
511038
525919
531673
548854
560576
557274
565742
587625
619916
625809
619567
572942
572775
574205
579799
590072
593408
597141
595404
612117
628232
628884
620735
569028
567456
573100
584428
589379
590865
595454
594167
611324
612613
610763
593530
542722
536662
543599
555332
560854
562325
554788
547344
565464
577992
579714
569323
506971
500857
509127
509933
517009
519164
512238
509239
518585
522975
525192
516847
455626
454724
461251
470439
474605
476049
471067
470984
502831
512927
509673
484015
431328
436087
442867
447988
460070
467037
460170
464196
485025
501492
520564
488180
439148
441977
456608
461935
480961
492865

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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=94095&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=94095&T=0

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

As an alternative you can also use a QR Code:  
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'Gwilym Jenkins' @ 72.249.127.135






Estimation Results of Blocked Bootstrap
statisticQ1EstimateQ3S.D.IQR
mean527838.135658915535393.682170543544566.06589147313132.677217262716727.9302325582
median52056453621455153118138.427499590930967

\begin{tabular}{lllllllll}
\hline
Estimation Results of Blocked Bootstrap \tabularnewline
statistic & Q1 & Estimate & Q3 & S.D. & IQR \tabularnewline
mean & 527838.135658915 & 535393.682170543 & 544566.065891473 & 13132.6772172627 & 16727.9302325582 \tabularnewline
median & 520564 & 536214 & 551531 & 18138.4274995909 & 30967 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=94095&T=1

[TABLE]
[ROW][C]Estimation Results of Blocked Bootstrap[/C][/ROW]
[ROW][C]statistic[/C][C]Q1[/C][C]Estimate[/C][C]Q3[/C][C]S.D.[/C][C]IQR[/C][/ROW]
[ROW][C]mean[/C][C]527838.135658915[/C][C]535393.682170543[/C][C]544566.065891473[/C][C]13132.6772172627[/C][C]16727.9302325582[/C][/ROW]
[ROW][C]median[/C][C]520564[/C][C]536214[/C][C]551531[/C][C]18138.4274995909[/C][C]30967[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=94095&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Estimation Results of Blocked Bootstrap
statisticQ1EstimateQ3S.D.IQR
mean527838.135658915535393.682170543544566.06589147313132.677217262716727.9302325582
median52056453621455153118138.427499590930967






95% Confidence Intervals
MeanMedian
Lower Bound534482.616603215534025.879580928
Upper Bound536851.274869654538402.120419072

\begin{tabular}{lllllllll}
\hline
95% Confidence Intervals \tabularnewline
 & Mean & Median \tabularnewline
Lower Bound & 534482.616603215 & 534025.879580928 \tabularnewline
Upper Bound & 536851.274869654 & 538402.120419072 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=94095&T=2

[TABLE]
[ROW][C]95% Confidence Intervals[/C][/ROW]
[ROW][C][/C][C]Mean[/C][C]Median[/C][/ROW]
[ROW][C]Lower Bound[/C][C]534482.616603215[/C][C]534025.879580928[/C][/ROW]
[ROW][C]Upper Bound[/C][C]536851.274869654[/C][C]538402.120419072[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=94095&T=2

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

As an alternative you can also use a QR Code:  
QR Code


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

95% Confidence Intervals
MeanMedian
Lower Bound534482.616603215534025.879580928
Upper Bound536851.274869654538402.120419072


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 500 ; par2 = 12 ;
Parameters (R input):
par1 = 500 ; par2 = 12 ;
R code (references can be found in the software module):
par1 <- as.numeric(par1)
par2 <- as.numeric(par2)
if (par1 < 10) par1 = 10
if (par1 > 5000) par1 = 5000
if (par2 < 3) par2 = 3
if (par2 > length(x)) par2 = length(x)
library(lattice)
library(boot)
boot.stat <- function(s)
{
s.mean <- mean(s)
s.median <- median(s)
c(s.mean, s.median)
}
(r <- tsboot(x, boot.stat, R=par1, l=12, sim='fixed'))
z <- data.frame(cbind(r$t[,1],r$t[,2]))
colnames(z) <- list('mean','median')
bitmap(file='plot7.png')
b <- boxplot(z,notch=TRUE,ylab='simulated values',main='Bootstrap Simulation - Central Tendency')
grid()
dev.off()
b
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Estimation Results of Blocked Bootstrap',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'statistic',header=TRUE)
a<-table.element(a,'Q1',header=TRUE)
a<-table.element(a,'Estimate',header=TRUE)
a<-table.element(a,'Q3',header=TRUE)
a<-table.element(a,'S.D.',header=TRUE)
a<-table.element(a,'IQR',header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean',header=TRUE)
q1 <- quantile(r$t[,1],0.25)[[1]]
q3 <- quantile(r$t[,1],0.75)[[1]]
a<-table.element(a,q1)
a<-table.element(a,r$t0[1])
a<-table.element(a,q3)
a<-table.element(a,sqrt(var(r$t[,1])))
a<-table.element(a,q3-q1)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'median',header=TRUE)
q1 <- quantile(r$t[,2],0.25)[[1]]
q3 <- quantile(r$t[,2],0.75)[[1]]
a<-table.element(a,q1)
a<-table.element(a,r$t0[2])
a<-table.element(a,q3)
a<-table.element(a,sqrt(var(r$t[,2])))
a<-table.element(a,q3-q1)
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,'95% Confidence Intervals',3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'',1,TRUE)
a<-table.element(a,'Mean',1,TRUE)
a<-table.element(a,'Median',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Lower Bound',1,TRUE)
a<-table.element(a,b$conf[1,1])
a<-table.element(a,b$conf[1,2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Upper Bound',1,TRUE)
a<-table.element(a,b$conf[2,1])
a<-table.element(a,b$conf[2,2])
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')