Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_histogram.wasp

Title produced by software

Histogram

Date of computation

Fri, 16 Oct 2009 06:08:42 -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/Oct/16/t1255694977yitb8j6eb28jzr9.htm/, Retrieved Tue, 30 Apr 2024 06:15:05 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=46979, Retrieved Tue, 30 Apr 2024 06:15:05 +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

122

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]
F RMPD  [Univariate Explorative Data Analysis] [Colombia Coffee] [2008-01-07 14:21:11] [74be16979710d4c4e7c6647856088456]
F RMPD    [Univariate Data Series] [] [2009-10-14 08:30:28] [74be16979710d4c4e7c6647856088456]
- RM D        [Histogram] [SHW WS3 - Part 1 ...] [2009-10-16 12:08:42] [b7e46d23597387652ca7420fdeb9acca] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

10.5
10.5
10.31
10.14
10.81
13.94
13.91
13.52
12.77
12.16
11.63
11.04
10.29
10.04
9.62
9.24
8.88
8.54
8.22
7.89
7.16
6.05
5.17
4.41
3.7
2.08
-7.31
-8.01
-6.72
-2.83
-0.98
1.01
4.79
6.29
7.56
8.32
8.47
7.48
6.85
9.66
8.52
7.32
6.58
5.7
4.8
3.69
2.56
5.35
4.91
3.92
3.1
2.38
1.6
0.64
-0.31
-1.32
-2.3
1.49
3.92
3.13
1.97
1
4.36
4.3
3.25
2.13
1.23
0.12
-0.81
5.15
3.49
1.89
0.64
-0.62
-2.08
-0.39
-0.74
-2.13
-3.49
-4.99
-2.39
-1.87
-2.24
-3.7
-4.03
-5.46
-6.4
-6.43
-6.77
-7.42
-9.01
-7.52
-6.98
-8.4
-9.16
-8.39
-9.83
-11.57
-10.14
-13.33
-16.12
-14.44
-16.46
-18.14
-16.32
-18.19
-14.91
-14.93
-9.34
0.28
14.96
16.37
17.37
16.33
14.73
13.18
11.38
10.2
11.25
9.46
7.87
6.45
4.92
3.47
2.02
0.73
-0.58
-1.74
-2.78
-1.29
0.36
-0.63
-0.51
1.41
-0.29
0.53
-0.13
-1.79
-3.27
-4.71
-6.19
-4.82
-0.49
-1.92
-1.85
-4.88
-5.77
0.69
-1
-0.18
-0.71
-2.21
-3.76
-4.13
-3.62
-5.25
-7
-8.8
-6.82
-4.62
-6.31
-7.92
-9.41
-10.91
-4.62
-5.44
-6.85
-8.34
-9.62
-10.77
-9.53
-5.87
-7.03
-8.19
-9.3
-10.47
-11.97
-10.2
-10.81
-12.08
-12.08
-15.84
-17.7
-18.36
-19.01
-19.67
-23.47
-26.82
-27.38
-27.94
-28.48
-29.04
-29.54
-30.02
-30.49
-27.88
-27.55
-28.25
-28.75
-22.44
-22.99
-23.54
-23.82
-24.61
-25.08
-18.23
1.42
0.25
-0.59
0.37
-0.91
18.69
32.89
35.5
35.23
31.15
29.18
28.28
26.2
25.42
28.45
25.07
23.11
19.45
17.98
14.73
14.85
14.76
8.45
11.05
10.6
7.66
8.41
7.25
9.95
25.74
27.67
30.2
30.24
22.48
17.67
36.66
80.55
70.6
95.11
95.17
55.93
49.24
44.4
38.67
33.7
41.07
40.85
47.87
32.81
34.49
23
21.43
22.42
21.19
12.77
11.13
16.56
17.64
16.42
13.51
14.68
13.2
11.57
11.63
5.66
3.11
-1.09
-1.12
7.72
19.95
10.7
5.61
6.7
2.53
1.38
-4.01
-4.33
-8.32
-9.16
-8.02
-6.71
-8.23
-11.48
-17.82
-17.61
-14.41
-10.5
-21.16
-21.55
-20.93
-20.03
-25.89
-22.9
-23.83
-21.7
-23.17
-18
-14.93
-20.87
-23.46
-30.37
-32.21
-26.78
-26.78
-23.42
-30.55
-26.33
-27.71
-30.93
-28.33
-26.82
-30.25
-26.27
-29.2
-28.73
-29.94
-29.11
-27.62
-21.24
-20.96
-18.56
-20.59
-19.01
-13.59
-22.02
-21.04
-14.24
-15.39
-7.18
2.45
3.22
16.9
30.85
23.4
20.52
13.67
3.86
3.8
-0.96
8.81
12.57
12.64
27.95
18.54
12.49
13.66
10.19
3.2
4.44
10.57
6.86
5.44
17.62
25.4

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=46979&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=46979&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=46979&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	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Frequency Table (Histogram)
Bins	Midpoint	Abs. Frequency	Rel. Frequency	Cumul. Rel. Freq.	Density
[-40,-30[	-35	7	0.019444	0.019444	0.001944
[-30,-20[	-25	46	0.127778	0.147222	0.012778
[-20,-10[	-15	37	0.102778	0.25	0.010278
[-10,0[	-5	90	0.25	0.5	0.025
[0,10[	5	86	0.238889	0.738889	0.023889
[10,20[	15	54	0.15	0.888889	0.015
[20,30[	25	18	0.05	0.938889	0.005
[30,40[	35	12	0.033333	0.972222	0.003333
[40,50[	45	5	0.013889	0.986111	0.001389
[50,60[	55	1	0.002778	0.988889	0.000278
[60,70[	65	0	0	0.988889	0
[70,80[	75	1	0.002778	0.991667	0.000278
[80,90[	85	1	0.002778	0.994444	0.000278
[90,100]	95	2	0.005556	1	0.000556

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[-40,-30[ & -35 & 7 & 0.019444 & 0.019444 & 0.001944 \tabularnewline
[-30,-20[ & -25 & 46 & 0.127778 & 0.147222 & 0.012778 \tabularnewline
[-20,-10[ & -15 & 37 & 0.102778 & 0.25 & 0.010278 \tabularnewline
[-10,0[ & -5 & 90 & 0.25 & 0.5 & 0.025 \tabularnewline
[0,10[ & 5 & 86 & 0.238889 & 0.738889 & 0.023889 \tabularnewline
[10,20[ & 15 & 54 & 0.15 & 0.888889 & 0.015 \tabularnewline
[20,30[ & 25 & 18 & 0.05 & 0.938889 & 0.005 \tabularnewline
[30,40[ & 35 & 12 & 0.033333 & 0.972222 & 0.003333 \tabularnewline
[40,50[ & 45 & 5 & 0.013889 & 0.986111 & 0.001389 \tabularnewline
[50,60[ & 55 & 1 & 0.002778 & 0.988889 & 0.000278 \tabularnewline
[60,70[ & 65 & 0 & 0 & 0.988889 & 0 \tabularnewline
[70,80[ & 75 & 1 & 0.002778 & 0.991667 & 0.000278 \tabularnewline
[80,90[ & 85 & 1 & 0.002778 & 0.994444 & 0.000278 \tabularnewline
[90,100] & 95 & 2 & 0.005556 & 1 & 0.000556 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=46979&T=1

[TABLE]
[ROW][C]Frequency Table (Histogram)[/C][/ROW]
[ROW][C]Bins[/C][C]Midpoint[/C][C]Abs. Frequency[/C][C]Rel. Frequency[/C][C]Cumul. Rel. Freq.[/C][C]Density[/C][/ROW]
[ROW][C][-40,-30[[/C][C]-35[/C][C]7[/C][C]0.019444[/C][C]0.019444[/C][C]0.001944[/C][/ROW]
[ROW][C][-30,-20[[/C][C]-25[/C][C]46[/C][C]0.127778[/C][C]0.147222[/C][C]0.012778[/C][/ROW]
[ROW][C][-20,-10[[/C][C]-15[/C][C]37[/C][C]0.102778[/C][C]0.25[/C][C]0.010278[/C][/ROW]
[ROW][C][-10,0[[/C][C]-5[/C][C]90[/C][C]0.25[/C][C]0.5[/C][C]0.025[/C][/ROW]
[ROW][C][0,10[[/C][C]5[/C][C]86[/C][C]0.238889[/C][C]0.738889[/C][C]0.023889[/C][/ROW]
[ROW][C][10,20[[/C][C]15[/C][C]54[/C][C]0.15[/C][C]0.888889[/C][C]0.015[/C][/ROW]
[ROW][C][20,30[[/C][C]25[/C][C]18[/C][C]0.05[/C][C]0.938889[/C][C]0.005[/C][/ROW]
[ROW][C][30,40[[/C][C]35[/C][C]12[/C][C]0.033333[/C][C]0.972222[/C][C]0.003333[/C][/ROW]
[ROW][C][40,50[[/C][C]45[/C][C]5[/C][C]0.013889[/C][C]0.986111[/C][C]0.001389[/C][/ROW]
[ROW][C][50,60[[/C][C]55[/C][C]1[/C][C]0.002778[/C][C]0.988889[/C][C]0.000278[/C][/ROW]
[ROW][C][60,70[[/C][C]65[/C][C]0[/C][C]0[/C][C]0.988889[/C][C]0[/C][/ROW]
[ROW][C][70,80[[/C][C]75[/C][C]1[/C][C]0.002778[/C][C]0.991667[/C][C]0.000278[/C][/ROW]
[ROW][C][80,90[[/C][C]85[/C][C]1[/C][C]0.002778[/C][C]0.994444[/C][C]0.000278[/C][/ROW]
[ROW][C][90,100][/C][C]95[/C][C]2[/C][C]0.005556[/C][C]1[/C][C]0.000556[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=46979&T=1

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

As an alternative you can also use a QR Code:

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

Frequency Table (Histogram)
Bins	Midpoint	Abs. Frequency	Rel. Frequency	Cumul. Rel. Freq.	Density
[-40,-30[	-35	7	0.019444	0.019444	0.001944
[-30,-20[	-25	46	0.127778	0.147222	0.012778
[-20,-10[	-15	37	0.102778	0.25	0.010278
[-10,0[	-5	90	0.25	0.5	0.025
[0,10[	5	86	0.238889	0.738889	0.023889
[10,20[	15	54	0.15	0.888889	0.015
[20,30[	25	18	0.05	0.938889	0.005
[30,40[	35	12	0.033333	0.972222	0.003333
[40,50[	45	5	0.013889	0.986111	0.001389
[50,60[	55	1	0.002778	0.988889	0.000278
[60,70[	65	0	0	0.988889	0
[70,80[	75	1	0.002778	0.991667	0.000278
[80,90[	85	1	0.002778	0.994444	0.000278
[90,100]	95	2	0.005556	1	0.000556

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = price time series ; par2 = not disclosed ; par3 = not available ;

Parameters (R input):

par1 = ; par2 = grey ; par3 = FALSE ; par4 = Unknown ;

R code (references can be found in the software module):

par1 <- as.numeric(par1)
if (par3 == 'TRUE') par3 <- TRUE
if (par3 == 'FALSE') par3 <- FALSE
if (par4 == 'Unknown') par1 <- as.numeric(par1)
if (par4 == 'Interval/Ratio') par1 <- as.numeric(par1)
if (par4 == '3-point Likert') par1 <- c(1:3 - 0.5, 3.5)
if (par4 == '4-point Likert') par1 <- c(1:4 - 0.5, 4.5)
if (par4 == '5-point Likert') par1 <- c(1:5 - 0.5, 5.5)
if (par4 == '6-point Likert') par1 <- c(1:6 - 0.5, 6.5)
if (par4 == '7-point Likert') par1 <- c(1:7 - 0.5, 7.5)
if (par4 == '8-point Likert') par1 <- c(1:8 - 0.5, 8.5)
if (par4 == '9-point Likert') par1 <- c(1:9 - 0.5, 9.5)
if (par4 == '10-point Likert') par1 <- c(1:10 - 0.5, 10.5)
bitmap(file='test1.png')
if (is.na(par1)) {
myhist<-hist(x,col=par2,main=main,xlab=xlab,right=par3)
} else {
if (par1 < 0) par1 <- 3
if (par1 > 50) par1 <- 50
myhist<-hist(x,breaks=par1,col=par2,main=main,xlab=xlab,right=par3)
}
dev.off()
myhist
n <- length(x)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('histogram.htm','Frequency Table (Histogram)',''),6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Bins',header=TRUE)
a<-table.element(a,'Midpoint',header=TRUE)
a<-table.element(a,'Abs. Frequency',header=TRUE)
a<-table.element(a,'Rel. Frequency',header=TRUE)
a<-table.element(a,'Cumul. Rel. Freq.',header=TRUE)
a<-table.element(a,'Density',header=TRUE)
a<-table.row.end(a)
crf <- 0
if (par3 == FALSE) mybracket <- '[' else mybracket <- ']'
mynumrows <- (length(myhist$breaks)-1)
for (i in 1:mynumrows) {
a<-table.row.start(a)
if (i == 1)
dum <- paste('[',myhist$breaks[i],sep='')
else
dum <- paste(mybracket,myhist$breaks[i],sep='')
dum <- paste(dum,myhist$breaks[i+1],sep=',')
if (i==mynumrows)
dum <- paste(dum,']',sep='')
else
dum <- paste(dum,mybracket,sep='')
a<-table.element(a,dum,header=TRUE)
a<-table.element(a,myhist$mids[i])
a<-table.element(a,myhist$counts[i])
rf <- myhist$counts[i]/n
crf <- crf + rf
a<-table.element(a,round(rf,6))
a<-table.element(a,round(crf,6))
a<-table.element(a,round(myhist$density[i],6))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code