Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationThu, 19 Sep 2013 09:40:37 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2013/Sep/19/t1379598077llrrsyfjye400hs.htm/, Retrieved Thu, 31 Oct 2024 23:17:34 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=211522, Retrieved Thu, 31 Oct 2024 23:17:34 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact183
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [] [2013-09-19 13:40:37] [17b6b1d507219cce54aa3edb43843a55] [Current]
Feedback Forum

Post a new message
Dataseries X:
45603
46470
50069
56009
58677
49626
36537
35431
37149
39340
42023
42343
38952
38796
42223
48443
52800
51287
34079
32846
35177
37254
39738
41484
40867
41057
45527
51705
58664
57075
39206
37315
40167
41921
45118
45570
48612
44964
47364
53802
59961
57284
40096
35602
37742
39280
39833
39591
36773
34666
37295
41584
47932
46549
29528
24591
27864
28983
30369
32279
33117
33016
37077
43367
52455
51345
30575
27604
29533
31736
34418
37866
37909
40555
46175
58389
63611
62348
41381
40113
42483
42408
46018
46626




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=211522&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 time1 seconds
R Server'George Udny Yule' @ yule.wessa.net







Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[20000,25000[2250010.0119050.0119052e-06
[25000,30000[2750050.0595240.0714291.2e-05
[30000,35000[32500100.1190480.1904762.4e-05
[35000,40000[37500210.250.4404765e-05
[40000,45000[42500170.2023810.6428574e-05
[45000,50000[47500140.1666670.8095243.3e-05
[50000,55000[5250070.0833330.8928571.7e-05
[55000,60000[5750070.0833330.976191.7e-05
[60000,65000]6250020.0238115e-06

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[20000,25000[ & 22500 & 1 & 0.011905 & 0.011905 & 2e-06 \tabularnewline
[25000,30000[ & 27500 & 5 & 0.059524 & 0.071429 & 1.2e-05 \tabularnewline
[30000,35000[ & 32500 & 10 & 0.119048 & 0.190476 & 2.4e-05 \tabularnewline
[35000,40000[ & 37500 & 21 & 0.25 & 0.440476 & 5e-05 \tabularnewline
[40000,45000[ & 42500 & 17 & 0.202381 & 0.642857 & 4e-05 \tabularnewline
[45000,50000[ & 47500 & 14 & 0.166667 & 0.809524 & 3.3e-05 \tabularnewline
[50000,55000[ & 52500 & 7 & 0.083333 & 0.892857 & 1.7e-05 \tabularnewline
[55000,60000[ & 57500 & 7 & 0.083333 & 0.97619 & 1.7e-05 \tabularnewline
[60000,65000] & 62500 & 2 & 0.02381 & 1 & 5e-06 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=211522&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][20000,25000[[/C][C]22500[/C][C]1[/C][C]0.011905[/C][C]0.011905[/C][C]2e-06[/C][/ROW]
[ROW][C][25000,30000[[/C][C]27500[/C][C]5[/C][C]0.059524[/C][C]0.071429[/C][C]1.2e-05[/C][/ROW]
[ROW][C][30000,35000[[/C][C]32500[/C][C]10[/C][C]0.119048[/C][C]0.190476[/C][C]2.4e-05[/C][/ROW]
[ROW][C][35000,40000[[/C][C]37500[/C][C]21[/C][C]0.25[/C][C]0.440476[/C][C]5e-05[/C][/ROW]
[ROW][C][40000,45000[[/C][C]42500[/C][C]17[/C][C]0.202381[/C][C]0.642857[/C][C]4e-05[/C][/ROW]
[ROW][C][45000,50000[[/C][C]47500[/C][C]14[/C][C]0.166667[/C][C]0.809524[/C][C]3.3e-05[/C][/ROW]
[ROW][C][50000,55000[[/C][C]52500[/C][C]7[/C][C]0.083333[/C][C]0.892857[/C][C]1.7e-05[/C][/ROW]
[ROW][C][55000,60000[[/C][C]57500[/C][C]7[/C][C]0.083333[/C][C]0.97619[/C][C]1.7e-05[/C][/ROW]
[ROW][C][60000,65000][/C][C]62500[/C][C]2[/C][C]0.02381[/C][C]1[/C][C]5e-06[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=211522&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=211522&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
[20000,25000[2250010.0119050.0119052e-06
[25000,30000[2750050.0595240.0714291.2e-05
[30000,35000[32500100.1190480.1904762.4e-05
[35000,40000[37500210.250.4404765e-05
[40000,45000[42500170.2023810.6428574e-05
[45000,50000[47500140.1666670.8095243.3e-05
[50000,55000[5250070.0833330.8928571.7e-05
[55000,60000[5750070.0833330.976191.7e-05
[60000,65000]6250020.0238115e-06



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