FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationSun, 13 Feb 2011 20:25:10 +0000
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/Feb/13/t1297628934wafwj6v4bfdlj1q.htm/, Retrieved Wed, 15 May 2024 18:44:43 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=118211, Retrieved Wed, 15 May 2024 18:44:43 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact195

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [Datareeks - BBP B...] [2011-02-13 20:25:10] [27d67796c93aa2f19be3a7f001ce610e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
50479
50261
50848
51191
51450
52171
51537
51696
51059
50671
51183
51345
51834
52199
52799
52947
53837
64597
64795
65246
65338
65307
65630
65732
66184
66995
68216
68776
69144
69375
69525
69705
69763
70647
71539
72526
73478
73957
74507
74962
75705
75397
75532
75223
75110
75836
75836
76212
76592
76720
76621
76672
76973
77488
78540
79004
79779
79873
80060
80602
81206
81736
82268
82521
83329
84190
85032
85268
85557
85730
86385
86851
86464
84603
83178
83298
84163
84531
84594
85514
85826

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Herman Ole Andreas Wold' @ www.yougetit.org

\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 & 'Herman Ole Andreas Wold' @ www.yougetit.org \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=118211&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]'Herman Ole Andreas Wold' @ www.yougetit.org[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=118211&T=0

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

As an alternative you can also use a QR Code:  
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'Herman Ole Andreas Wold' @ www.yougetit.org






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[50000,55000[52500170.2098770.2098774.2e-05
[55000,60000[57500000.2098770
[60000,65000[6250020.0246910.2345685e-06
[65000,70000[67500140.172840.4074073.5e-05
[70000,75000[7250070.086420.4938271.7e-05
[75000,80000[77500180.2222220.7160494.4e-05
[80000,85000[82500140.172840.8888893.5e-05
[85000,90000]8750090.11111112.2e-05

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[50000,55000[ & 52500 & 17 & 0.209877 & 0.209877 & 4.2e-05 \tabularnewline
[55000,60000[ & 57500 & 0 & 0 & 0.209877 & 0 \tabularnewline
[60000,65000[ & 62500 & 2 & 0.024691 & 0.234568 & 5e-06 \tabularnewline
[65000,70000[ & 67500 & 14 & 0.17284 & 0.407407 & 3.5e-05 \tabularnewline
[70000,75000[ & 72500 & 7 & 0.08642 & 0.493827 & 1.7e-05 \tabularnewline
[75000,80000[ & 77500 & 18 & 0.222222 & 0.716049 & 4.4e-05 \tabularnewline
[80000,85000[ & 82500 & 14 & 0.17284 & 0.888889 & 3.5e-05 \tabularnewline
[85000,90000] & 87500 & 9 & 0.111111 & 1 & 2.2e-05 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=118211&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][50000,55000[[/C][C]52500[/C][C]17[/C][C]0.209877[/C][C]0.209877[/C][C]4.2e-05[/C][/ROW]
[ROW][C][55000,60000[[/C][C]57500[/C][C]0[/C][C]0[/C][C]0.209877[/C][C]0[/C][/ROW]
[ROW][C][60000,65000[[/C][C]62500[/C][C]2[/C][C]0.024691[/C][C]0.234568[/C][C]5e-06[/C][/ROW]
[ROW][C][65000,70000[[/C][C]67500[/C][C]14[/C][C]0.17284[/C][C]0.407407[/C][C]3.5e-05[/C][/ROW]
[ROW][C][70000,75000[[/C][C]72500[/C][C]7[/C][C]0.08642[/C][C]0.493827[/C][C]1.7e-05[/C][/ROW]
[ROW][C][75000,80000[[/C][C]77500[/C][C]18[/C][C]0.222222[/C][C]0.716049[/C][C]4.4e-05[/C][/ROW]
[ROW][C][80000,85000[[/C][C]82500[/C][C]14[/C][C]0.17284[/C][C]0.888889[/C][C]3.5e-05[/C][/ROW]
[ROW][C][85000,90000][/C][C]87500[/C][C]9[/C][C]0.111111[/C][C]1[/C][C]2.2e-05[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=118211&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[50000,55000[52500170.2098770.2098774.2e-05
[55000,60000[57500000.2098770
[60000,65000[6250020.0246910.2345685e-06
[65000,70000[67500140.172840.4074073.5e-05
[70000,75000[7250070.086420.4938271.7e-05
[75000,80000[77500180.2222220.7160494.4e-05
[80000,85000[82500140.172840.8888893.5e-05
[85000,90000]8750090.11111112.2e-05


Figures (Output of Computation)

Input Parameters & R Code

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