Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_histogram.wasp

Title produced by software

Histogram

Date of computation

Thu, 13 Dec 2012 09:34:15 -0500

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/2012/Dec/13/t135540928938d8atc70q89h4h.htm/, Retrieved Sun, 28 Apr 2024 22:14:42 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=199256, Retrieved Sun, 28 Apr 2024 22:14:42 +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

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

-       [Histogram] [] [2012-12-13 14:34:15] [4b6fdd269237d5d28b13f97475f55381] [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 Maurice George Kendall' @ kendall.wessa.net

\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 Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=199256&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 Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=199256&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=199256&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 Maurice George Kendall' @ kendall.wessa.net

Frequency Table (Histogram)
Bins	Midpoint	Abs. Frequency	Rel. Frequency	Cumul. Rel. Freq.	Density
[104,104.5[	104.25	10	0.138889	0.138889	0.277778
[104.5,105[	104.75	0	0	0.138889	0
[105,105.5[	105.25	3	0.041667	0.180556	0.083333
[105.5,106[	105.75	0	0	0.180556	0
[106,106.5[	106.25	6	0.083333	0.263889	0.166667
[106.5,107[	106.75	3	0.041667	0.305556	0.083333
[107,107.5[	107.25	0	0	0.305556	0
[107.5,108[	107.75	0	0	0.305556	0
[108,108.5[	108.25	0	0	0.305556	0
[108.5,109[	108.75	2	0.027778	0.333333	0.055556
[109,109.5[	109.25	0	0	0.333333	0
[109.5,110[	109.75	8	0.111111	0.444444	0.222222
[110,110.5[	110.25	0	0	0.444444	0
[110.5,111[	110.75	0	0	0.444444	0
[111,111.5[	111.25	0	0	0.444444	0
[111.5,112[	111.75	0	0	0.444444	0
[112,112.5[	112.25	5	0.069444	0.513889	0.138889
[112.5,113[	112.75	0	0	0.513889	0
[113,113.5[	113.25	0	0	0.513889	0
[113.5,114[	113.75	0	0	0.513889	0
[114,114.5[	114.25	0	0	0.513889	0
[114.5,115[	114.75	6	0.083333	0.597222	0.166667
[115,115.5[	115.25	0	0	0.597222	0
[115.5,116[	115.75	0	0	0.597222	0
[116,116.5[	116.25	1	0.013889	0.611111	0.027778
[116.5,117[	116.75	4	0.055556	0.666667	0.111111
[117,117.5[	117.25	0	0	0.666667	0
[117.5,118[	117.75	0	0	0.666667	0
[118,118.5[	118.25	0	0	0.666667	0
[118.5,119[	118.75	7	0.097222	0.763889	0.194444
[119,119.5[	119.25	5	0.069444	0.833333	0.138889
[119.5,120[	119.75	0	0	0.833333	0
[120,120.5[	120.25	0	0	0.833333	0
[120.5,121[	120.75	0	0	0.833333	0
[121,121.5[	121.25	5	0.069444	0.902778	0.138889
[121.5,122[	121.75	0	0	0.902778	0
[122,122.5[	122.25	0	0	0.902778	0
[122.5,123]	122.75	7	0.097222	1	0.194444

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[104,104.5[ & 104.25 & 10 & 0.138889 & 0.138889 & 0.277778 \tabularnewline
[104.5,105[ & 104.75 & 0 & 0 & 0.138889 & 0 \tabularnewline
[105,105.5[ & 105.25 & 3 & 0.041667 & 0.180556 & 0.083333 \tabularnewline
[105.5,106[ & 105.75 & 0 & 0 & 0.180556 & 0 \tabularnewline
[106,106.5[ & 106.25 & 6 & 0.083333 & 0.263889 & 0.166667 \tabularnewline
[106.5,107[ & 106.75 & 3 & 0.041667 & 0.305556 & 0.083333 \tabularnewline
[107,107.5[ & 107.25 & 0 & 0 & 0.305556 & 0 \tabularnewline
[107.5,108[ & 107.75 & 0 & 0 & 0.305556 & 0 \tabularnewline
[108,108.5[ & 108.25 & 0 & 0 & 0.305556 & 0 \tabularnewline
[108.5,109[ & 108.75 & 2 & 0.027778 & 0.333333 & 0.055556 \tabularnewline
[109,109.5[ & 109.25 & 0 & 0 & 0.333333 & 0 \tabularnewline
[109.5,110[ & 109.75 & 8 & 0.111111 & 0.444444 & 0.222222 \tabularnewline
[110,110.5[ & 110.25 & 0 & 0 & 0.444444 & 0 \tabularnewline
[110.5,111[ & 110.75 & 0 & 0 & 0.444444 & 0 \tabularnewline
[111,111.5[ & 111.25 & 0 & 0 & 0.444444 & 0 \tabularnewline
[111.5,112[ & 111.75 & 0 & 0 & 0.444444 & 0 \tabularnewline
[112,112.5[ & 112.25 & 5 & 0.069444 & 0.513889 & 0.138889 \tabularnewline
[112.5,113[ & 112.75 & 0 & 0 & 0.513889 & 0 \tabularnewline
[113,113.5[ & 113.25 & 0 & 0 & 0.513889 & 0 \tabularnewline
[113.5,114[ & 113.75 & 0 & 0 & 0.513889 & 0 \tabularnewline
[114,114.5[ & 114.25 & 0 & 0 & 0.513889 & 0 \tabularnewline
[114.5,115[ & 114.75 & 6 & 0.083333 & 0.597222 & 0.166667 \tabularnewline
[115,115.5[ & 115.25 & 0 & 0 & 0.597222 & 0 \tabularnewline
[115.5,116[ & 115.75 & 0 & 0 & 0.597222 & 0 \tabularnewline
[116,116.5[ & 116.25 & 1 & 0.013889 & 0.611111 & 0.027778 \tabularnewline
[116.5,117[ & 116.75 & 4 & 0.055556 & 0.666667 & 0.111111 \tabularnewline
[117,117.5[ & 117.25 & 0 & 0 & 0.666667 & 0 \tabularnewline
[117.5,118[ & 117.75 & 0 & 0 & 0.666667 & 0 \tabularnewline
[118,118.5[ & 118.25 & 0 & 0 & 0.666667 & 0 \tabularnewline
[118.5,119[ & 118.75 & 7 & 0.097222 & 0.763889 & 0.194444 \tabularnewline
[119,119.5[ & 119.25 & 5 & 0.069444 & 0.833333 & 0.138889 \tabularnewline
[119.5,120[ & 119.75 & 0 & 0 & 0.833333 & 0 \tabularnewline
[120,120.5[ & 120.25 & 0 & 0 & 0.833333 & 0 \tabularnewline
[120.5,121[ & 120.75 & 0 & 0 & 0.833333 & 0 \tabularnewline
[121,121.5[ & 121.25 & 5 & 0.069444 & 0.902778 & 0.138889 \tabularnewline
[121.5,122[ & 121.75 & 0 & 0 & 0.902778 & 0 \tabularnewline
[122,122.5[ & 122.25 & 0 & 0 & 0.902778 & 0 \tabularnewline
[122.5,123] & 122.75 & 7 & 0.097222 & 1 & 0.194444 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=199256&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][104,104.5[[/C][C]104.25[/C][C]10[/C][C]0.138889[/C][C]0.138889[/C][C]0.277778[/C][/ROW]
[ROW][C][104.5,105[[/C][C]104.75[/C][C]0[/C][C]0[/C][C]0.138889[/C][C]0[/C][/ROW]
[ROW][C][105,105.5[[/C][C]105.25[/C][C]3[/C][C]0.041667[/C][C]0.180556[/C][C]0.083333[/C][/ROW]
[ROW][C][105.5,106[[/C][C]105.75[/C][C]0[/C][C]0[/C][C]0.180556[/C][C]0[/C][/ROW]
[ROW][C][106,106.5[[/C][C]106.25[/C][C]6[/C][C]0.083333[/C][C]0.263889[/C][C]0.166667[/C][/ROW]
[ROW][C][106.5,107[[/C][C]106.75[/C][C]3[/C][C]0.041667[/C][C]0.305556[/C][C]0.083333[/C][/ROW]
[ROW][C][107,107.5[[/C][C]107.25[/C][C]0[/C][C]0[/C][C]0.305556[/C][C]0[/C][/ROW]
[ROW][C][107.5,108[[/C][C]107.75[/C][C]0[/C][C]0[/C][C]0.305556[/C][C]0[/C][/ROW]
[ROW][C][108,108.5[[/C][C]108.25[/C][C]0[/C][C]0[/C][C]0.305556[/C][C]0[/C][/ROW]
[ROW][C][108.5,109[[/C][C]108.75[/C][C]2[/C][C]0.027778[/C][C]0.333333[/C][C]0.055556[/C][/ROW]
[ROW][C][109,109.5[[/C][C]109.25[/C][C]0[/C][C]0[/C][C]0.333333[/C][C]0[/C][/ROW]
[ROW][C][109.5,110[[/C][C]109.75[/C][C]8[/C][C]0.111111[/C][C]0.444444[/C][C]0.222222[/C][/ROW]
[ROW][C][110,110.5[[/C][C]110.25[/C][C]0[/C][C]0[/C][C]0.444444[/C][C]0[/C][/ROW]
[ROW][C][110.5,111[[/C][C]110.75[/C][C]0[/C][C]0[/C][C]0.444444[/C][C]0[/C][/ROW]
[ROW][C][111,111.5[[/C][C]111.25[/C][C]0[/C][C]0[/C][C]0.444444[/C][C]0[/C][/ROW]
[ROW][C][111.5,112[[/C][C]111.75[/C][C]0[/C][C]0[/C][C]0.444444[/C][C]0[/C][/ROW]
[ROW][C][112,112.5[[/C][C]112.25[/C][C]5[/C][C]0.069444[/C][C]0.513889[/C][C]0.138889[/C][/ROW]
[ROW][C][112.5,113[[/C][C]112.75[/C][C]0[/C][C]0[/C][C]0.513889[/C][C]0[/C][/ROW]
[ROW][C][113,113.5[[/C][C]113.25[/C][C]0[/C][C]0[/C][C]0.513889[/C][C]0[/C][/ROW]
[ROW][C][113.5,114[[/C][C]113.75[/C][C]0[/C][C]0[/C][C]0.513889[/C][C]0[/C][/ROW]
[ROW][C][114,114.5[[/C][C]114.25[/C][C]0[/C][C]0[/C][C]0.513889[/C][C]0[/C][/ROW]
[ROW][C][114.5,115[[/C][C]114.75[/C][C]6[/C][C]0.083333[/C][C]0.597222[/C][C]0.166667[/C][/ROW]
[ROW][C][115,115.5[[/C][C]115.25[/C][C]0[/C][C]0[/C][C]0.597222[/C][C]0[/C][/ROW]
[ROW][C][115.5,116[[/C][C]115.75[/C][C]0[/C][C]0[/C][C]0.597222[/C][C]0[/C][/ROW]
[ROW][C][116,116.5[[/C][C]116.25[/C][C]1[/C][C]0.013889[/C][C]0.611111[/C][C]0.027778[/C][/ROW]
[ROW][C][116.5,117[[/C][C]116.75[/C][C]4[/C][C]0.055556[/C][C]0.666667[/C][C]0.111111[/C][/ROW]
[ROW][C][117,117.5[[/C][C]117.25[/C][C]0[/C][C]0[/C][C]0.666667[/C][C]0[/C][/ROW]
[ROW][C][117.5,118[[/C][C]117.75[/C][C]0[/C][C]0[/C][C]0.666667[/C][C]0[/C][/ROW]
[ROW][C][118,118.5[[/C][C]118.25[/C][C]0[/C][C]0[/C][C]0.666667[/C][C]0[/C][/ROW]
[ROW][C][118.5,119[[/C][C]118.75[/C][C]7[/C][C]0.097222[/C][C]0.763889[/C][C]0.194444[/C][/ROW]
[ROW][C][119,119.5[[/C][C]119.25[/C][C]5[/C][C]0.069444[/C][C]0.833333[/C][C]0.138889[/C][/ROW]
[ROW][C][119.5,120[[/C][C]119.75[/C][C]0[/C][C]0[/C][C]0.833333[/C][C]0[/C][/ROW]
[ROW][C][120,120.5[[/C][C]120.25[/C][C]0[/C][C]0[/C][C]0.833333[/C][C]0[/C][/ROW]
[ROW][C][120.5,121[[/C][C]120.75[/C][C]0[/C][C]0[/C][C]0.833333[/C][C]0[/C][/ROW]
[ROW][C][121,121.5[[/C][C]121.25[/C][C]5[/C][C]0.069444[/C][C]0.902778[/C][C]0.138889[/C][/ROW]
[ROW][C][121.5,122[[/C][C]121.75[/C][C]0[/C][C]0[/C][C]0.902778[/C][C]0[/C][/ROW]
[ROW][C][122,122.5[[/C][C]122.25[/C][C]0[/C][C]0[/C][C]0.902778[/C][C]0[/C][/ROW]
[ROW][C][122.5,123][/C][C]122.75[/C][C]7[/C][C]0.097222[/C][C]1[/C][C]0.194444[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=199256&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=199256&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
[104,104.5[	104.25	10	0.138889	0.138889	0.277778
[104.5,105[	104.75	0	0	0.138889	0
[105,105.5[	105.25	3	0.041667	0.180556	0.083333
[105.5,106[	105.75	0	0	0.180556	0
[106,106.5[	106.25	6	0.083333	0.263889	0.166667
[106.5,107[	106.75	3	0.041667	0.305556	0.083333
[107,107.5[	107.25	0	0	0.305556	0
[107.5,108[	107.75	0	0	0.305556	0
[108,108.5[	108.25	0	0	0.305556	0
[108.5,109[	108.75	2	0.027778	0.333333	0.055556
[109,109.5[	109.25	0	0	0.333333	0
[109.5,110[	109.75	8	0.111111	0.444444	0.222222
[110,110.5[	110.25	0	0	0.444444	0
[110.5,111[	110.75	0	0	0.444444	0
[111,111.5[	111.25	0	0	0.444444	0
[111.5,112[	111.75	0	0	0.444444	0
[112,112.5[	112.25	5	0.069444	0.513889	0.138889
[112.5,113[	112.75	0	0	0.513889	0
[113,113.5[	113.25	0	0	0.513889	0
[113.5,114[	113.75	0	0	0.513889	0
[114,114.5[	114.25	0	0	0.513889	0
[114.5,115[	114.75	6	0.083333	0.597222	0.166667
[115,115.5[	115.25	0	0	0.597222	0
[115.5,116[	115.75	0	0	0.597222	0
[116,116.5[	116.25	1	0.013889	0.611111	0.027778
[116.5,117[	116.75	4	0.055556	0.666667	0.111111
[117,117.5[	117.25	0	0	0.666667	0
[117.5,118[	117.75	0	0	0.666667	0
[118,118.5[	118.25	0	0	0.666667	0
[118.5,119[	118.75	7	0.097222	0.763889	0.194444
[119,119.5[	119.25	5	0.069444	0.833333	0.138889
[119.5,120[	119.75	0	0	0.833333	0
[120,120.5[	120.25	0	0	0.833333	0
[120.5,121[	120.75	0	0	0.833333	0
[121,121.5[	121.25	5	0.069444	0.902778	0.138889
[121.5,122[	121.75	0	0	0.902778	0
[122,122.5[	122.25	0	0	0.902778	0
[122.5,123]	122.75	7	0.097222	1	0.194444

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

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

Parameters (R input):

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

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

par4 <- 'Unknown'
par3 <- 'FALSE'
par2 <- 'grey'
par1 <- '20'
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.numeric(x[1])) {
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)
}
} else {
plot(mytab <- table(x),col=par2,main='Frequency Plot',xlab=xlab,ylab='Absolute Frequency')
}
dev.off()
if(is.numeric(x[1])) {
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')
} else {
mytab
reltab <- mytab / sum(mytab)
n <- length(mytab)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Frequency Table (Categorical Data)',3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Category',header=TRUE)
a<-table.element(a,'Abs. Frequency',header=TRUE)
a<-table.element(a,'Rel. Frequency',header=TRUE)
a<-table.row.end(a)
for (i in 1:n) {
a<-table.row.start(a)
a<-table.element(a,labels(mytab)$x[i],header=TRUE)
a<-table.element(a,mytab[i])
a<-table.element(a,round(reltab[i],4))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')
}

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code