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, 14 Aug 2010 11:52: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/2010/Aug/14/t1281786856qz0iadw0l2ti0fn.htm/, Retrieved Mon, 06 May 2024 08:22:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=78796, Retrieved Mon, 06 May 2024 08:22:32 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsAerts Ellen
Estimated Impact147

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [tijdreeks 1-stap 3] [2010-08-14 11:52:08] [6e43eada780a1520be8ab5bc59456d41] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
25
24
23
21
41
40
25
15
16
16
17
19
18
19
20
21
46
47
30
16
15
18
30
31
32
36
30
31
61
57
45
33
31
36
46
49
34
40
41
48
75
77
71
54
50
56
66
66
48
63
71
70
88
92
91
80
81
81
98
106
85
93
96
92
115
109
119
107
107
106
132
143
120
123
132
136
158
151
155
138
143
139
168
182
154
158
167
170
197
190
196
174
180
171
200
215
184
186
197
186
211
205
218
199
213
207
236
248
211
220
235
223
245
236
253
246
255
248
274
288

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=78796&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=78796&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=78796&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
[0,50[25390.3250.3250.0065
[50,100[75240.20.5250.004
[100,150[125160.1333330.6583330.002667
[150,200[175200.1666670.8250.003333
[200,250[225170.1416670.9666670.002833
[250,300]27540.03333310.000667

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[0,50[ & 25 & 39 & 0.325 & 0.325 & 0.0065 \tabularnewline
[50,100[ & 75 & 24 & 0.2 & 0.525 & 0.004 \tabularnewline
[100,150[ & 125 & 16 & 0.133333 & 0.658333 & 0.002667 \tabularnewline
[150,200[ & 175 & 20 & 0.166667 & 0.825 & 0.003333 \tabularnewline
[200,250[ & 225 & 17 & 0.141667 & 0.966667 & 0.002833 \tabularnewline
[250,300] & 275 & 4 & 0.033333 & 1 & 0.000667 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=78796&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][0,50[[/C][C]25[/C][C]39[/C][C]0.325[/C][C]0.325[/C][C]0.0065[/C][/ROW]
[ROW][C][50,100[[/C][C]75[/C][C]24[/C][C]0.2[/C][C]0.525[/C][C]0.004[/C][/ROW]
[ROW][C][100,150[[/C][C]125[/C][C]16[/C][C]0.133333[/C][C]0.658333[/C][C]0.002667[/C][/ROW]
[ROW][C][150,200[[/C][C]175[/C][C]20[/C][C]0.166667[/C][C]0.825[/C][C]0.003333[/C][/ROW]
[ROW][C][200,250[[/C][C]225[/C][C]17[/C][C]0.141667[/C][C]0.966667[/C][C]0.002833[/C][/ROW]
[ROW][C][250,300][/C][C]275[/C][C]4[/C][C]0.033333[/C][C]1[/C][C]0.000667[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=78796&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=78796&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
[0,50[25390.3250.3250.0065
[50,100[75240.20.5250.004
[100,150[125160.1333330.6583330.002667
[150,200[175200.1666670.8250.003333
[200,250[225170.1416670.9666670.002833
[250,300]27540.03333310.000667


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