FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationMon, 19 Oct 2009 13:54:04 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Oct/19/t1255982212herq33w8wwuy7aj.htm/, Retrieved Mon, 29 Apr 2024 18:49:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=48198, Retrieved Mon, 29 Apr 2024 18:49:32 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bivariate Data Series] [Bivariate dataset] [2008-01-05 23:51:08] [74be16979710d4c4e7c6647856088456]
F RMPD  [Univariate Explorative Data Analysis] [Colombia Coffee] [2008-01-07 14:21:11] [74be16979710d4c4e7c6647856088456]
F RMPD    [Univariate Data Series] [] [2009-10-14 08:30:28] [74be16979710d4c4e7c6647856088456]
F RMPD      [Central Tendency] [WS3_Part2 Y(t)] [2009-10-19 18:16:03] [2c75a4273e8c314249ceca659377406c]
- RMPD          [Histogram] [WS3_Part 2 Histog...] [2009-10-19 19:54:04] [7a6d96edf94be87996de99db5f42363b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
4409.665392
4414.796117
4262.170253
9180.230906
5623.040685
4793.538038
4556.98594
5228.326489
7065.351724
6277.678356
5815.624297
4815.23135
5050.863095
5328.265957
4828.295238
9732.017094
6617.739726
5110.450928
5026.346667
6108.75
7446.818792
6799.576784
6224.794673
5076.160878
5662.489583
6016.390135
4974.537122
12088.18737
6574.413348
5688.14299
5906.512077
6522.140505
7461.829574
8217.872045
7109.517491
6486.437292
5691.161867
6256.405733
5230.036765
14075.62358
6718.846154
5849.459963
6343.181347
6361.153846
7805.764706
7736.740548
7024.666667
5612.768635
6488.19209
5785.606061
5410.217186
13860.55928
6657.542553
5788.197946
5607.108779
5519.434146
7172.123552
6579.530516
6011.544359
4992.234742
5691.764069
5241.415385
4660.392523
10868.1409
5726.075051
5299.970646
4611.286089
5129.235412
7093.213793
5600.455038
5106.247485
5734.831199
4481.197441
4808.985656
4561.413563
9286.098418
6154.4406
4773.686636
4895.299807
5822.111369
7269.591549
6959.44664
6115.246843
5258.058824
6062.542373
5963.519362
5319.583333

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'George Udny Yule' @ 72.249.76.132

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=48198&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'George Udny Yule' @ 72.249.76.132






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[4000,5000[4500160.1839080.1839080.000184
[5000,6000[5500320.3678160.5517240.000368
[6000,7000[6500210.2413790.7931030.000241
[7000,8000[7500100.1149430.9080460.000115
[8000,9000[850010.0114940.919541.1e-05
[9000,10000[950030.0344830.9540233.4e-05
[10000,11000[1050010.0114940.9655171.1e-05
[11000,12000[11500000.9655170
[12000,13000[1250010.0114940.9770111.1e-05
[13000,14000[1350010.0114940.9885061.1e-05
[14000,15000]1450010.01149411.1e-05

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[4000,5000[ & 4500 & 16 & 0.183908 & 0.183908 & 0.000184 \tabularnewline
[5000,6000[ & 5500 & 32 & 0.367816 & 0.551724 & 0.000368 \tabularnewline
[6000,7000[ & 6500 & 21 & 0.241379 & 0.793103 & 0.000241 \tabularnewline
[7000,8000[ & 7500 & 10 & 0.114943 & 0.908046 & 0.000115 \tabularnewline
[8000,9000[ & 8500 & 1 & 0.011494 & 0.91954 & 1.1e-05 \tabularnewline
[9000,10000[ & 9500 & 3 & 0.034483 & 0.954023 & 3.4e-05 \tabularnewline
[10000,11000[ & 10500 & 1 & 0.011494 & 0.965517 & 1.1e-05 \tabularnewline
[11000,12000[ & 11500 & 0 & 0 & 0.965517 & 0 \tabularnewline
[12000,13000[ & 12500 & 1 & 0.011494 & 0.977011 & 1.1e-05 \tabularnewline
[13000,14000[ & 13500 & 1 & 0.011494 & 0.988506 & 1.1e-05 \tabularnewline
[14000,15000] & 14500 & 1 & 0.011494 & 1 & 1.1e-05 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=48198&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][4000,5000[[/C][C]4500[/C][C]16[/C][C]0.183908[/C][C]0.183908[/C][C]0.000184[/C][/ROW]
[ROW][C][5000,6000[[/C][C]5500[/C][C]32[/C][C]0.367816[/C][C]0.551724[/C][C]0.000368[/C][/ROW]
[ROW][C][6000,7000[[/C][C]6500[/C][C]21[/C][C]0.241379[/C][C]0.793103[/C][C]0.000241[/C][/ROW]
[ROW][C][7000,8000[[/C][C]7500[/C][C]10[/C][C]0.114943[/C][C]0.908046[/C][C]0.000115[/C][/ROW]
[ROW][C][8000,9000[[/C][C]8500[/C][C]1[/C][C]0.011494[/C][C]0.91954[/C][C]1.1e-05[/C][/ROW]
[ROW][C][9000,10000[[/C][C]9500[/C][C]3[/C][C]0.034483[/C][C]0.954023[/C][C]3.4e-05[/C][/ROW]
[ROW][C][10000,11000[[/C][C]10500[/C][C]1[/C][C]0.011494[/C][C]0.965517[/C][C]1.1e-05[/C][/ROW]
[ROW][C][11000,12000[[/C][C]11500[/C][C]0[/C][C]0[/C][C]0.965517[/C][C]0[/C][/ROW]
[ROW][C][12000,13000[[/C][C]12500[/C][C]1[/C][C]0.011494[/C][C]0.977011[/C][C]1.1e-05[/C][/ROW]
[ROW][C][13000,14000[[/C][C]13500[/C][C]1[/C][C]0.011494[/C][C]0.988506[/C][C]1.1e-05[/C][/ROW]
[ROW][C][14000,15000][/C][C]14500[/C][C]1[/C][C]0.011494[/C][C]1[/C][C]1.1e-05[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=48198&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=48198&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
[4000,5000[4500160.1839080.1839080.000184
[5000,6000[5500320.3678160.5517240.000368
[6000,7000[6500210.2413790.7931030.000241
[7000,8000[7500100.1149430.9080460.000115
[8000,9000[850010.0114940.919541.1e-05
[9000,10000[950030.0344830.9540233.4e-05
[10000,11000[1050010.0114940.9655171.1e-05
[11000,12000[11500000.9655170
[12000,13000[1250010.0114940.9770111.1e-05
[13000,14000[1350010.0114940.9885061.1e-05
[14000,15000]1450010.01149411.1e-05


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 0.000 ; par2 = 0.99 ; par3 = 0.005 ;
Parameters (R input):
par1 = ; par2 = blue ; 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.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)
}
dev.off()
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')