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 computationSat, 13 Aug 2016 10:39:38 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Aug/13/t1471081204nfasapikn6ifjvb.htm/, Retrieved Wed, 01 May 2024 13:08:00 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=296495, Retrieved Wed, 01 May 2024 13:08:00 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [] [2016-08-13 09:35:09] [74be16979710d4c4e7c6647856088456]
- RMP     [Histogram] [] [2016-08-13 09:39:38] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
29312
29336
29357
29380
29402
29426
29448
29471
29495
29517
29540
29563
29586
29609
29631
29654
29677
29700
29723
29746
29769
29792
29815
29837
29861
29884
29905
29928
29951
29974
29996
30020
30043
30065
30089
30111
30134
30158
30179
30202
30224
30248
30270
30293
30317
30339
30362
30385
30408
30431
30452
30476
30498
30521
30544
30567
30590
30613
30636
30659
30682
30705
30727
30750
30773
30796
30818
30842
30865
30887
30911
30933
30956
30980
31001
31024
31046
31070
31092
31115
31139
31161
31184
31207
31230
31253
31274
31298
31320
31343
31366
31389
31412
31435
31458
31481
31504
31527
31548
31571
31594
31617
31640
31663
31686
31709
31732
31754

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

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






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[29000,29500[2925090.0833330.0833330.000167
[29500,30000[29750220.2037040.2870370.000407
[30000,30500[30250220.2037040.4907410.000407
[30500,31000[30750210.1944440.6851850.000389
[31000,31500[31250220.2037040.8888890.000407
[31500,32000]31750120.11111110.000222

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[29000,29500[ & 29250 & 9 & 0.083333 & 0.083333 & 0.000167 \tabularnewline
[29500,30000[ & 29750 & 22 & 0.203704 & 0.287037 & 0.000407 \tabularnewline
[30000,30500[ & 30250 & 22 & 0.203704 & 0.490741 & 0.000407 \tabularnewline
[30500,31000[ & 30750 & 21 & 0.194444 & 0.685185 & 0.000389 \tabularnewline
[31000,31500[ & 31250 & 22 & 0.203704 & 0.888889 & 0.000407 \tabularnewline
[31500,32000] & 31750 & 12 & 0.111111 & 1 & 0.000222 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296495&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][29000,29500[[/C][C]29250[/C][C]9[/C][C]0.083333[/C][C]0.083333[/C][C]0.000167[/C][/ROW]
[ROW][C][29500,30000[[/C][C]29750[/C][C]22[/C][C]0.203704[/C][C]0.287037[/C][C]0.000407[/C][/ROW]
[ROW][C][30000,30500[[/C][C]30250[/C][C]22[/C][C]0.203704[/C][C]0.490741[/C][C]0.000407[/C][/ROW]
[ROW][C][30500,31000[[/C][C]30750[/C][C]21[/C][C]0.194444[/C][C]0.685185[/C][C]0.000389[/C][/ROW]
[ROW][C][31000,31500[[/C][C]31250[/C][C]22[/C][C]0.203704[/C][C]0.888889[/C][C]0.000407[/C][/ROW]
[ROW][C][31500,32000][/C][C]31750[/C][C]12[/C][C]0.111111[/C][C]1[/C][C]0.000222[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=296495&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296495&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
[29000,29500[2925090.0833330.0833330.000167
[29500,30000[29750220.2037040.2870370.000407
[30000,30500[30250220.2037040.4907410.000407
[30500,31000[30750210.1944440.6851850.000389
[31000,31500[31250220.2037040.8888890.000407
[31500,32000]31750120.11111110.000222


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 {
barplot(mytab <- sort(table(x),T),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')
}