Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_bootstrapplot.wasp
Title produced by softwareBlocked Bootstrap Plot - Central Tendency
Date of computationMon, 07 Jan 2008 03:26:26 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Jan/07/t1199701558w9l4qhatxnfi326.htm/, Retrieved Mon, 24 Jun 2024 14:21:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=7916, Retrieved Mon, 24 Jun 2024 14:21:20 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsmean, median, boxplot, coffee, colombia
Estimated Impact1147
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] [d41d8cd98f00b204e9800998ecf8427e] [Current]
- R  D      [Blocked Bootstrap Plot - Central Tendency] [Blocked Bootstrap...] [2008-12-17 18:55:16] [7458e879e85b911182071700fff19fbd]
-    D        [Blocked Bootstrap Plot - Central Tendency] [Blocked Bootstrap...] [2008-12-18 16:05:10] [7458e879e85b911182071700fff19fbd]
F    D        [Blocked Bootstrap Plot - Central Tendency] [Bootstrap Simulat...] [2008-12-18 16:26:44] [74be16979710d4c4e7c6647856088456]
-    D          [Blocked Bootstrap Plot - Central Tendency] [Bootstrap Bel-20 ...] [2008-12-21 13:33:26] [513002e53792b228fd07c821aaa4d786]
-  M D        [Blocked Bootstrap Plot - Central Tendency] [Box Notch Plot va...] [2009-12-26 21:27:25] [bfd0a85b30d211d7fa5c129592d7c31d]
-  M D        [Blocked Bootstrap Plot - Central Tendency] [Box Notch Plot va...] [2009-12-26 21:29:36] [bfd0a85b30d211d7fa5c129592d7c31d]
- RMPD        [Variance Reduction Matrix] [VRM Matrix van de...] [2009-12-26 21:34:50] [bfd0a85b30d211d7fa5c129592d7c31d]
- RMPD        [Variance Reduction Matrix] [VRM Matrix van de...] [2009-12-26 21:34:50] [bfd0a85b30d211d7fa5c129592d7c31d]
-    D          [Variance Reduction Matrix] [VRM Matrix van de...] [2009-12-26 21:58:56] [bfd0a85b30d211d7fa5c129592d7c31d]
-    D      [Blocked Bootstrap Plot - Central Tendency] [Notched Plot - Ma...] [2008-12-21 15:20:06] [33f4701c7363e8b81858dafbf0350eed]
-    D        [Blocked Bootstrap Plot - Central Tendency] [Notched Plots - T...] [2008-12-22 13:27:57] [33f4701c7363e8b81858dafbf0350eed]
-    D          [Blocked Bootstrap Plot - Central Tendency] [Notched Plots - T...] [2008-12-22 20:17:54] [b187fac1a1b0cb3920f54366df47fea3]
-               [Blocked Bootstrap Plot - Central Tendency] [notched plots - t...] [2008-12-22 20:33:31] [b641c14ac36cb6fee377f3b099dcac19]
-    D        [Blocked Bootstrap Plot - Central Tendency] [Notched Plot - Ma...] [2008-12-22 20:09:30] [b187fac1a1b0cb3920f54366df47fea3]
-    D        [Blocked Bootstrap Plot - Central Tendency] [notched plot - ma...] [2008-12-22 20:20:16] [b641c14ac36cb6fee377f3b099dcac19]
-  M D      [Blocked Bootstrap Plot - Central Tendency] [WS6: Toturial ass...] [2010-11-05 09:57:04] [1fd136673b2a4fecb5c545b9b4a05d64]
F             [Blocked Bootstrap Plot - Central Tendency] [Bootstrap Coffee ...] [2010-11-10 19:51:37] [95e8426e0df851c9330605aa1e892ab5]
-   P         [Blocked Bootstrap Plot - Central Tendency] [ws6.1 tutorial (b...] [2010-11-15 08:03:54] [e4076051fbfb461c886b1e223cd7862f]
-  M          [Blocked Bootstrap Plot - Central Tendency] [] [2011-11-15 21:51:58] [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 - V...] [2010-11-12 11:38:34] [aeb27d5c05332f2e597ad139ee63fbe4]
-    D        [Blocked Bootstrap Plot - Central Tendency] [Bootstrap Sim - n...] [2010-11-12 11:40:14] [aeb27d5c05332f2e597ad139ee63fbe4]
-    D          [Blocked Bootstrap Plot - Central Tendency] [Bootstrap Simulat...] [2010-12-17 13:42:23] [aeb27d5c05332f2e597ad139ee63fbe4]
- RM D      [Blocked Bootstrap Plot - Central Tendency] [WS6 - Simple Line...] [2010-11-05 12:59:40] [74be16979710d4c4e7c6647856088456]
- RM D      [Blocked Bootstrap Plot - Central Tendency] [Yt skewed] [2010-11-05 16:46:07] [97ad38b1c3b35a5feca8b85f7bc7b3ff]
-   PD        [Blocked Bootstrap Plot - Central Tendency] [Vraag 2: tweede m...] [2010-11-11 09:29:12] [39c51da0be01189e8a44eb69e891b7a1]
-   PD        [Blocked Bootstrap Plot - Central Tendency] [Vraag 2: tweede m...] [2010-11-11 09:32:57] [39c51da0be01189e8a44eb69e891b7a1]
-   P           [Blocked Bootstrap Plot - Central Tendency] [assignment 2 - 1 (2)] [2010-11-16 09:26:04] [717f3d787904f94c39256c5c1fc72d4c]
-   P           [Blocked Bootstrap Plot - Central Tendency] [assignment 2 - 1 (2)] [2010-11-16 09:26:04] [717f3d787904f94c39256c5c1fc72d4c]
- R PD        [Blocked Bootstrap Plot - Central Tendency] [] [2010-11-16 16:58:15] [8ef75e99f9f5061c72c54640f2f1c3e7]
F    D        [Blocked Bootstrap Plot - Central Tendency] [ws6] [2010-11-17 08:59:32] [f9eaed74daea918f73b9f505c5b1f19e]
- RMPD        [Bootstrap Plot - Central Tendency] [] [2011-11-13 11:55:28] [06c08141d7d783218a8164fd2ea166f2]
- RMPD        [Mean Plot] [] [2011-11-13 12:04:44] [06c08141d7d783218a8164fd2ea166f2]
- RM          [Blocked Bootstrap Plot - Central Tendency] [WS 6 - 8] [2011-11-15 14:38:05] [74be16979710d4c4e7c6647856088456]
F  M D      [Blocked Bootstrap Plot - Central Tendency] [WS6 - Assignment ...] [2010-11-06 11:01:41] [8ef49741e164ec6343c90c7935194465]
-   P         [Blocked Bootstrap Plot - Central Tendency] [WS6 assignment 2 ...] [2010-11-16 20:12:34] [8214fe6d084e5ad7598b249a26cc9f06]
-  M D      [Blocked Bootstrap Plot - Central Tendency] [] [2010-11-06 12:46:42] [39e83c7b0ac936e906a817a1bb402750]
- RM D      [Blocked Bootstrap Plot - Central Tendency] [Bootstrap Car Sales] [2010-11-06 16:12:15] [97ad38b1c3b35a5feca8b85f7bc7b3ff]
-    D        [Blocked Bootstrap Plot - Central Tendency] [Blocked bootstrap...] [2010-11-06 16:42:34] [97ad38b1c3b35a5feca8b85f7bc7b3ff]
- R  D          [Blocked Bootstrap Plot - Central Tendency] [] [2011-11-15 16:54:29] [06c08141d7d783218a8164fd2ea166f2]
- R P           [Blocked Bootstrap Plot - Central Tendency] [] [2011-11-15 21:33:36] [ec2187f7727da5d5d939740b21b8b68a]
- RMPD        [Bootstrap Plot - Central Tendency] [] [2011-11-15 15:43:36] [06c08141d7d783218a8164fd2ea166f2]
- R           [Blocked Bootstrap Plot - Central Tendency] [] [2011-11-15 20:51:52] [9401a40688cf36283be626153bc5a38b]
- R P         [Blocked Bootstrap Plot - Central Tendency] [] [2011-11-15 21:02:28] [ec2187f7727da5d5d939740b21b8b68a]
- R           [Blocked Bootstrap Plot - Central Tendency] [Paper - Blocked b...] [2011-12-19 14:23:02] [69d59b79aaf660457acc70a0ef0bfdab]
-  M D      [Blocked Bootstrap Plot - Central Tendency] [Arabica Price in ...] [2010-11-07 12:41:34] [2960375a246cc0628590c95c4038a43c]
-  M D      [Blocked Bootstrap Plot - Central Tendency] [Workshop 6 Boxplo...] [2010-11-07 12:50:07] [247f085ab5b7724f755ad01dc754a3e8]
-    D        [Blocked Bootstrap Plot - Central Tendency] [Boxplots] [2010-11-15 18:00:07] [247f085ab5b7724f755ad01dc754a3e8]

[Truncated]
Feedback Forum

Post a new message
Dataseries X:
87.28
87.28
87.09
86.92
87.59
90.72
90.69
90.3
89.55
88.94
88.41
87.82
87.07
86.82
86.4
86.02
85.66
85.32
85
84.67
83.94
82.83
81.95
81.19
80.48
78.86
69.47
68.77
70.06
73.95
75.8
77.79
81.57
83.07
84.34
85.1
85.25
84.26
83.63
86.44
85.3
84.1
83.36
82.48
81.58
80.47
79.34
82.13
81.69
80.7
79.88
79.16
78.38
77.42
76.47
75.46
74.48
78.27
80.7
79.91
78.75
77.78
81.14
81.08
80.03
78.91
78.01
76.9
75.97
81.93
80.27
78.67
77.42
76.16
74.7
76.39
76.04
74.65
73.29
71.79
74.39
74.91
74.54
73.08
72.75
71.32
70.38
70.35
70.01
69.36
67.77
69.26
69.8
68.38
67.62
68.39
66.95
65.21
66.64
63.45
60.66
62.34
60.32
58.64
60.46
58.59
61.87
61.85
67.44
77.06
91.74
93.15
94.15
93.11
91.51
89.96
88.16
86.98
88.03
86.24
84.65
83.23
81.7
80.25
78.8
77.51
76.2
75.04
74
75.49
77.14
76.15
76.27
78.19
76.49
77.31
76.65
74.99
73.51
72.07
70.59
71.96
76.29
74.86
74.93
71.9
71.01
77.47
75.78
76.6
76.07
74.57
73.02
72.65
73.16
71.53
69.78
67.98
69.96
72.16
70.47
68.86
67.37
65.87
72.16
71.34
69.93
68.44
67.16
66.01
67.25
70.91
69.75
68.59
67.48
66.31
64.81
66.58
65.97
64.7
64.7
60.94
59.08
58.42
57.77
57.11
53.31
49.96
49.4
48.84
48.3
47.74
47.24
46.76
46.29
48.9
49.23
48.53
48.03
54.34
53.79
53.24
52.96
52.17
51.7
58.55
78.2
77.03
76.19
77.15
75.87
95.47
109.67
112.28
112.01
107.93
105.96
105.06
102.98
102.2
105.23
101.85
99.89
96.23
94.76
91.51
91.63
91.54
85.23
87.83
87.38
84.44
85.19
84.03
86.73
102.52
104.45
106.98
107.02
99.26
94.45
113.44
157.33
147.38
171.89
171.95
132.71
126.02
121.18
115.45
110.48
117.85
117.63
124.65
109.59
111.27
99.78
98.21
99.2
97.97
89.55
87.91
93.34
94.42
93.2
90.29
91.46
89.98
88.35
88.41
82.44
79.89
75.69
75.66
84.5
96.73
87.48
82.39
83.48
79.31
78.16
72.77
72.45
68.46
67.62
68.76
70.07
68.55
65.3
58.96
59.17
62.37
66.28
55.62
55.23
55.85
56.75
50.89
53.88
52.95
55.08
53.61
58.78
61.85
55.91
53.32
46.41
44.57
50
50
53.36
46.23
50.45
49.07
45.85
48.45
49.96
46.53
50.51
47.58
48.05
46.84
47.67
49.16
55.54
55.82
58.22
56.19
57.77
63.19
54.76
55.74
62.54
61.39
69.6
79.23
80
93.68
107.63
100.18
97.3
90.45
80.64
80.58
75.82
85.59
89.35
89.42
104.73
95.32
89.27
90.44
86.97
79.98
81.22
87.35
83.64
82.22
94.4
102.18




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

\begin{tabular}{lllllllll}
\hline
Summary of compuational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 12 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=7916&T=0

[TABLE]
[ROW][C]Summary of compuational 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]12 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=7916&T=0

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







Estimation Results of Blocked Bootstrap
statisticQ1EstimateQ3S.D.IQR
mean75.311506944444477.538166666666779.56693055555563.125069245717144.25542361111111
median75.67576.77578.412.655028992365362.735

\begin{tabular}{lllllllll}
\hline
Estimation Results of Blocked Bootstrap \tabularnewline
statistic & Q1 & Estimate & Q3 & S.D. & IQR \tabularnewline
mean & 75.3115069444444 & 77.5381666666667 & 79.5669305555556 & 3.12506924571714 & 4.25542361111111 \tabularnewline
median & 75.675 & 76.775 & 78.41 & 2.65502899236536 & 2.735 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=7916&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]75.3115069444444[/C][C]77.5381666666667[/C][C]79.5669305555556[/C][C]3.12506924571714[/C][C]4.25542361111111[/C][/ROW]
[ROW][C]median[/C][C]75.675[/C][C]76.775[/C][C]78.41[/C][C]2.65502899236536[/C][C]2.735[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=7916&T=1

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

As an alternative you can also use a QR Code:  

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

Estimation Results of Blocked Bootstrap
statisticQ1EstimateQ3S.D.IQR
mean75.311506944444477.538166666666779.56693055555563.125069245717144.25542361111111
median75.67576.77578.412.655028992365362.735







95% Confidence Intervals
MeanMedian
Lower Bound77.061415941305276.417125796534
Upper Bound77.66505628091776.807874203466

\begin{tabular}{lllllllll}
\hline
95% Confidence Intervals \tabularnewline
 & Mean & Median \tabularnewline
Lower Bound & 77.0614159413052 & 76.417125796534 \tabularnewline
Upper Bound & 77.665056280917 & 76.807874203466 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=7916&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]77.0614159413052[/C][C]76.417125796534[/C][/ROW]
[ROW][C]Upper Bound[/C][C]77.665056280917[/C][C]76.807874203466[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=7916&T=2

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

As an alternative you can also use a QR Code:  

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

95% Confidence Intervals
MeanMedian
Lower Bound77.061415941305276.417125796534
Upper Bound77.66505628091776.807874203466



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')