Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationSat, 17 Dec 2011 05:04:28 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/17/t132411633873mzrgr4apmqm6k.htm/, Retrieved Fri, 29 Mar 2024 00:04:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=156167, Retrieved Fri, 29 Mar 2024 00:04:27 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact151
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [Paper - Histogram] [2011-12-17 10:04:28] [e598b5cd83fcb010b35e92a01f5e81e9] [Current]
Feedback Forum

Post a new message
Dataseries X:
6827
6178
7084
8162
8462
9644
10466
10748
9963
8194
6848
7027
7269
6775
7819
8371
9069
10248
11030
10882
10333
9109
7685
7602
8350
7829
8829
9948
10638
11253
11424
11391
10665
9396
7775
7933
8186
7444
8484
9864
10252
12282
11637
11577
12417
9637
8094
9280
8334
7899
9994
10078
10801
12950
12222
12246
13281
10366
8730
9614
8639
8772
10894
10455
11179
10588
10794
12770
13812
10857
9290
10925
9491
8919
11607
8852
12537
14759
13667
13731
15110
12185
10645
12161
10840
10436
13589
13402
13103
14933
14147
14057
16234
12389
11595
12772




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gertrude Mary Cox' @ cox.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 & 0 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=156167&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=156167&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156167&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 time0 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net







Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[6000,7000[650040.0416670.0416674.2e-05
[7000,8000[7500110.1145830.156250.000115
[8000,9000[8500150.156250.31250.000156
[9000,10000[9500130.1354170.4479170.000135
[10000,11000[10500200.2083330.656250.000208
[11000,12000[1150090.093750.759.4e-05
[12000,13000[12500110.1145830.8645830.000115
[13000,14000[1350070.0729170.93757.3e-05
[14000,15000[1450040.0416670.9791674.2e-05
[15000,16000[1550010.0104170.9895831e-05
[16000,17000]1650010.01041711e-05

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[6000,7000[ & 6500 & 4 & 0.041667 & 0.041667 & 4.2e-05 \tabularnewline
[7000,8000[ & 7500 & 11 & 0.114583 & 0.15625 & 0.000115 \tabularnewline
[8000,9000[ & 8500 & 15 & 0.15625 & 0.3125 & 0.000156 \tabularnewline
[9000,10000[ & 9500 & 13 & 0.135417 & 0.447917 & 0.000135 \tabularnewline
[10000,11000[ & 10500 & 20 & 0.208333 & 0.65625 & 0.000208 \tabularnewline
[11000,12000[ & 11500 & 9 & 0.09375 & 0.75 & 9.4e-05 \tabularnewline
[12000,13000[ & 12500 & 11 & 0.114583 & 0.864583 & 0.000115 \tabularnewline
[13000,14000[ & 13500 & 7 & 0.072917 & 0.9375 & 7.3e-05 \tabularnewline
[14000,15000[ & 14500 & 4 & 0.041667 & 0.979167 & 4.2e-05 \tabularnewline
[15000,16000[ & 15500 & 1 & 0.010417 & 0.989583 & 1e-05 \tabularnewline
[16000,17000] & 16500 & 1 & 0.010417 & 1 & 1e-05 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=156167&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][6000,7000[[/C][C]6500[/C][C]4[/C][C]0.041667[/C][C]0.041667[/C][C]4.2e-05[/C][/ROW]
[ROW][C][7000,8000[[/C][C]7500[/C][C]11[/C][C]0.114583[/C][C]0.15625[/C][C]0.000115[/C][/ROW]
[ROW][C][8000,9000[[/C][C]8500[/C][C]15[/C][C]0.15625[/C][C]0.3125[/C][C]0.000156[/C][/ROW]
[ROW][C][9000,10000[[/C][C]9500[/C][C]13[/C][C]0.135417[/C][C]0.447917[/C][C]0.000135[/C][/ROW]
[ROW][C][10000,11000[[/C][C]10500[/C][C]20[/C][C]0.208333[/C][C]0.65625[/C][C]0.000208[/C][/ROW]
[ROW][C][11000,12000[[/C][C]11500[/C][C]9[/C][C]0.09375[/C][C]0.75[/C][C]9.4e-05[/C][/ROW]
[ROW][C][12000,13000[[/C][C]12500[/C][C]11[/C][C]0.114583[/C][C]0.864583[/C][C]0.000115[/C][/ROW]
[ROW][C][13000,14000[[/C][C]13500[/C][C]7[/C][C]0.072917[/C][C]0.9375[/C][C]7.3e-05[/C][/ROW]
[ROW][C][14000,15000[[/C][C]14500[/C][C]4[/C][C]0.041667[/C][C]0.979167[/C][C]4.2e-05[/C][/ROW]
[ROW][C][15000,16000[[/C][C]15500[/C][C]1[/C][C]0.010417[/C][C]0.989583[/C][C]1e-05[/C][/ROW]
[ROW][C][16000,17000][/C][C]16500[/C][C]1[/C][C]0.010417[/C][C]1[/C][C]1e-05[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=156167&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156167&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)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[6000,7000[650040.0416670.0416674.2e-05
[7000,8000[7500110.1145830.156250.000115
[8000,9000[8500150.156250.31250.000156
[9000,10000[9500130.1354170.4479170.000135
[10000,11000[10500200.2083330.656250.000208
[11000,12000[1150090.093750.759.4e-05
[12000,13000[12500110.1145830.8645830.000115
[13000,14000[1350070.0729170.93757.3e-05
[14000,15000[1450040.0416670.9791674.2e-05
[15000,16000[1550010.0104170.9895831e-05
[16000,17000]1650010.01041711e-05



Parameters (Session):
par2 = grey ; par3 = FALSE ; par4 = Unknown ;
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.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')
}