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 computationFri, 10 Dec 2010 10:51:45 +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/2010/Dec/10/t12919782313ch4blvazv8jjia.htm/, Retrieved Mon, 29 Apr 2024 12:55:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=107525, Retrieved Mon, 29 Apr 2024 12:55:03 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Histogram] [Frequency Plot (C...] [2010-09-25 09:09:15] [b98453cac15ba1066b407e146608df68]
-    D  [Histogram] [Frequency Plot] [2010-10-03 18:43:48] [afe9379cca749d06b3d6872e02cc47ed]
F    D    [Histogram] [Frequency Plot] [2010-10-03 18:53:52] [afe9379cca749d06b3d6872e02cc47ed]
-   PD        [Histogram] [] [2010-12-10 10:51:45] [654685de0cfe147799201b811b9d7a56] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
216.234
213.586
209.465
204.045
200.237
203.666
241.476
260.307
243.324
244.460
233.575
237.217
235.243
230.354
227.184
221.678
217.142
219.452
256.446
265.845
248.624
241.114
229.245
231.805
219.277
219.313
212.610
214.771
211.142
211.457
240.048
240.636
230.580
208.795
197.922
194.596
194.581
185.686
178.106
172.608
167.302
168.053
202.300
202.388
182.516
173.476
166.444
171.297
169.701
164.182
161.914
159.612
151.001
158.114
186.530
187.069
174.330
169.362
166.827
178.037
186.413
189.226
191.563
188.906
186.005
195.309
223.532
226.899
214.126
206.903
204.442
220.375

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'RServer@AstonUniversity' @ vre.aston.ac.uk

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=107525&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'RServer@AstonUniversity' @ vre.aston.ac.uk






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[140,160[15030.0416670.0416670.002083
[160,180[170140.1944440.2361110.009722
[180,200[190130.1805560.4166670.009028
[200,220[210200.2777780.6944440.013889
[220,240[230120.1666670.8611110.008333
[240,260[25080.1111110.9722220.005556
[260,280]27020.02777810.001389

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[140,160[ & 150 & 3 & 0.041667 & 0.041667 & 0.002083 \tabularnewline
[160,180[ & 170 & 14 & 0.194444 & 0.236111 & 0.009722 \tabularnewline
[180,200[ & 190 & 13 & 0.180556 & 0.416667 & 0.009028 \tabularnewline
[200,220[ & 210 & 20 & 0.277778 & 0.694444 & 0.013889 \tabularnewline
[220,240[ & 230 & 12 & 0.166667 & 0.861111 & 0.008333 \tabularnewline
[240,260[ & 250 & 8 & 0.111111 & 0.972222 & 0.005556 \tabularnewline
[260,280] & 270 & 2 & 0.027778 & 1 & 0.001389 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=107525&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][140,160[[/C][C]150[/C][C]3[/C][C]0.041667[/C][C]0.041667[/C][C]0.002083[/C][/ROW]
[ROW][C][160,180[[/C][C]170[/C][C]14[/C][C]0.194444[/C][C]0.236111[/C][C]0.009722[/C][/ROW]
[ROW][C][180,200[[/C][C]190[/C][C]13[/C][C]0.180556[/C][C]0.416667[/C][C]0.009028[/C][/ROW]
[ROW][C][200,220[[/C][C]210[/C][C]20[/C][C]0.277778[/C][C]0.694444[/C][C]0.013889[/C][/ROW]
[ROW][C][220,240[[/C][C]230[/C][C]12[/C][C]0.166667[/C][C]0.861111[/C][C]0.008333[/C][/ROW]
[ROW][C][240,260[[/C][C]250[/C][C]8[/C][C]0.111111[/C][C]0.972222[/C][C]0.005556[/C][/ROW]
[ROW][C][260,280][/C][C]270[/C][C]2[/C][C]0.027778[/C][C]1[/C][C]0.001389[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=107525&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=107525&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
[140,160[15030.0416670.0416670.002083
[160,180[170140.1944440.2361110.009722
[180,200[190130.1805560.4166670.009028
[200,220[210200.2777780.6944440.013889
[220,240[230120.1666670.8611110.008333
[240,260[25080.1111110.9722220.005556
[260,280]27020.02777810.001389


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