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 computationTue, 15 Feb 2011 15:25:08 +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/15/t1297783599ts1la2aglkq08vc.htm/, Retrieved Sun, 19 May 2024 15:58:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=118302, Retrieved Sun, 19 May 2024 15:58:47 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [Opdracht 1: Histo...] [2011-02-15 15:25:08] [ca43b4c5762010cc52dfab9381e992c0] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
18387
27534
38030
31917
26414
35306
38271
41454
52408
53536
53152
56421
21538
33625
42625
31295
33795
41227
45382
47206
46235
51378
46865
58608
21124
33591
40974
32717
32370
37348
44795
52760
53785
63955
59249
58972
23849
33658
38930
35735
31994
39191
49822
41052
48554
55756
45694
59968
21629
32194
39892
32602
30186
37107
42928
38883
48950
46380
44446
48527
20253
25189
34507
30429
24050
33025
37842
33730
41913
40357
40129
45504
17952
24859
33527
26588
21560
33892
35366
37967
41032
46532
45272
43738
16723
28599
30733
25727
23899
26281

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=118302&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'Gwilym Jenkins' @ www.wessa.org






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[15000,20000[1750030.0333330.0333337e-06
[20000,25000[2250090.10.1333332e-05
[25000,30000[2750070.0777780.2111111.6e-05
[30000,35000[32500190.2111110.4222224.2e-05
[35000,40000[37500130.1444440.5666672.9e-05
[40000,45000[42500130.1444440.7111112.9e-05
[45000,50000[47500130.1444440.8555562.9e-05
[50000,55000[5250060.0666670.9222221.3e-05
[55000,60000[5750060.0666670.9888891.3e-05
[60000,65000]6250010.01111112e-06

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[15000,20000[ & 17500 & 3 & 0.033333 & 0.033333 & 7e-06 \tabularnewline
[20000,25000[ & 22500 & 9 & 0.1 & 0.133333 & 2e-05 \tabularnewline
[25000,30000[ & 27500 & 7 & 0.077778 & 0.211111 & 1.6e-05 \tabularnewline
[30000,35000[ & 32500 & 19 & 0.211111 & 0.422222 & 4.2e-05 \tabularnewline
[35000,40000[ & 37500 & 13 & 0.144444 & 0.566667 & 2.9e-05 \tabularnewline
[40000,45000[ & 42500 & 13 & 0.144444 & 0.711111 & 2.9e-05 \tabularnewline
[45000,50000[ & 47500 & 13 & 0.144444 & 0.855556 & 2.9e-05 \tabularnewline
[50000,55000[ & 52500 & 6 & 0.066667 & 0.922222 & 1.3e-05 \tabularnewline
[55000,60000[ & 57500 & 6 & 0.066667 & 0.988889 & 1.3e-05 \tabularnewline
[60000,65000] & 62500 & 1 & 0.011111 & 1 & 2e-06 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=118302&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][15000,20000[[/C][C]17500[/C][C]3[/C][C]0.033333[/C][C]0.033333[/C][C]7e-06[/C][/ROW]
[ROW][C][20000,25000[[/C][C]22500[/C][C]9[/C][C]0.1[/C][C]0.133333[/C][C]2e-05[/C][/ROW]
[ROW][C][25000,30000[[/C][C]27500[/C][C]7[/C][C]0.077778[/C][C]0.211111[/C][C]1.6e-05[/C][/ROW]
[ROW][C][30000,35000[[/C][C]32500[/C][C]19[/C][C]0.211111[/C][C]0.422222[/C][C]4.2e-05[/C][/ROW]
[ROW][C][35000,40000[[/C][C]37500[/C][C]13[/C][C]0.144444[/C][C]0.566667[/C][C]2.9e-05[/C][/ROW]
[ROW][C][40000,45000[[/C][C]42500[/C][C]13[/C][C]0.144444[/C][C]0.711111[/C][C]2.9e-05[/C][/ROW]
[ROW][C][45000,50000[[/C][C]47500[/C][C]13[/C][C]0.144444[/C][C]0.855556[/C][C]2.9e-05[/C][/ROW]
[ROW][C][50000,55000[[/C][C]52500[/C][C]6[/C][C]0.066667[/C][C]0.922222[/C][C]1.3e-05[/C][/ROW]
[ROW][C][55000,60000[[/C][C]57500[/C][C]6[/C][C]0.066667[/C][C]0.988889[/C][C]1.3e-05[/C][/ROW]
[ROW][C][60000,65000][/C][C]62500[/C][C]1[/C][C]0.011111[/C][C]1[/C][C]2e-06[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=118302&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=118302&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
[15000,20000[1750030.0333330.0333337e-06
[20000,25000[2250090.10.1333332e-05
[25000,30000[2750070.0777780.2111111.6e-05
[30000,35000[32500190.2111110.4222224.2e-05
[35000,40000[37500130.1444440.5666672.9e-05
[40000,45000[42500130.1444440.7111112.9e-05
[45000,50000[47500130.1444440.8555562.9e-05
[50000,55000[5250060.0666670.9222221.3e-05
[55000,60000[5750060.0666670.9888891.3e-05
[60000,65000]6250010.01111112e-06


Figures (Output of Computation)

Input Parameters & R Code

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