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 computationThu, 18 Dec 2014 17:49:05 +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/2014/Dec/18/t1418925016r80ncnxqkg4h9ly.htm/, Retrieved Sat, 18 May 2024 15:19:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=271178, Retrieved Sat, 18 May 2024 15:19:39 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [] [2014-12-18 17:49:05] [feba87b71495ef91d18b6c2716812399] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
-20.0103
9.7238
-11.7416
9.75259
-5.55083
-0.320366
-5.7244
-3.24147
17.2411
21.337
-6.14217
15.9418
-4.75499
-1.46151
14.9843
6.16021
-12.5253
0.0708488
5.38295
15.236
5.82309
5.87092
-1.82017
3.55206
6.71267
-2.13024
0.58214
-0.974793
8.51374
-6.77129
-24.6045
1.43582
0.278207
-13.4254
-6.18907
5.11068
5.26177
2.30334
10.1572
-9.13784
-8.34781
-1.46907
-7.14648
-25.6822
-22.7239
17.4212
-1.46815
6.53869
15.359
-4.22856
-1.55343
1.07467
-9.41178
5.95449
6.49263
0.883404
-17.2033
2.68814
0.0590176
-6.64258
5.61443
2.17344
-11.8402
-10.8801
3.07135
-4.71201
9.00069
5.49482
-7.02547
-15.5301
-3.46804
-1.14747
8.39787
21.1313
-14.9856
-12.383
-10.9545
11.3527
-17.5833
-4.47459
-4.02592
1.22045
-8.09547
4.93943
-9.85972
3.86895
6.62671
8.32527
3.41316
-0.443259
2.94532
-16.9452
10.6284
-20.5673
-1.05396
10.0769
3.27931
4.47008
-5.69767
10.588
2.7374
7.43125
-21.8438
2.43317
0.518565
-0.332044
10.8458
-4.733
10.1769
7.86067
8.00527
14.1001
4.68844
-33.3573
-9.90749
-1.62393
2.76403
7.0529
-1.00883
5.11966
3.54052
1.52897
2.32267
8.0686
-0.453911
-1.066
-17.1699
-2.35055
14.1253
-3.77852
-4.90567
4.54947
-4.63375
7.46809
-18.4607
15.406
-8.33941
-4.62488
2.74744
12.3333
-8.3592
-10.3217
14.6054
-7.78704
-1.70855
-4.6664
25.3994
0.902002
0.615837
0.101931
0.820176
3.2846
2.48447
-22.6277
13.0915
14.9615
16.4707
-1.53971
12.0135
-13.5255
-8.87142
1.61178
-7.40536
9.4446
7.68667
-2.9323
-5.73991
-0.838065
16.0878
5.75811
16.9895
-0.249015
1.06971
3.80367
2.92451
-4.2305
-2.83262
-23.9018
-6.88269
-1.45641
2.82006
-6.21565
-5.40163
1.34174
-16.6684
5.09313
7.41601
7.56244
10.8351
-3.02935
-5.34284
10.4499
10.9755
11.599
-5.67017
2.63862
-9.28199
-1.31292
-2.05871
12.1733
10.4783
16.7962
4.18899
-12.4073
-5.44996
-11.5178
-1.29862
-5.66373
-1.97151
-0.26441
-0.973273
-2.68797
4.3488
2.63272
-1.66586
4.45
-13.4291
-0.686557
-9.58575
-3.22303
-1.23696
3.91756
-0.15096
-5.58504
-6.16955
-1.53986
6.04984
5.97465
0.782091
-3.70614
13.0273
0.274719
5.18653
-8.69762
-0.81313
6.04521
4.82026
7.46733
-3.69529
8.18797
14.4236
-11.7636
3.51596
-0.709141
-1.11413
-1.83407
-10.4226
-8.64429
8.5234
8.17814
-2.16161
-2.52619
-5.22119
-29.1761
-12.2677
4.14454
-2.33823
5.63576
1.15231
-6.63362
6.54058
-0.936218
-2.61261
8.51596
-0.295666
1.36872
-9.48038
16.6812
9.57957
4.56142
3.14183
-14.9254
3.31462
1.06213
6.01922
-6.38438
2.94154
-1.91801

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271178&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'Gertrude Mary Cox' @ cox.wessa.net






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[-35,-30[-32.510.0035970.0035970.000719
[-30,-25[-27.520.0071940.0107910.001439
[-25,-20[-22.570.025180.0359710.005036
[-20,-15[-17.570.025180.0611510.005036
[-15,-10[-12.5170.0611510.1223020.01223
[-10,-5[-7.5380.1366910.2589930.027338
[-5,0[-2.5650.2338130.4928060.046763
[0,5[2.5590.212230.7050360.042446
[5,10[7.5450.1618710.8669060.032374
[10,15[12.5230.0827340.949640.016547
[15,20[17.5110.0395680.9892090.007914
[20,25[22.520.0071940.9964030.001439
[25,30]27.510.00359710.000719

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[-35,-30[ & -32.5 & 1 & 0.003597 & 0.003597 & 0.000719 \tabularnewline
[-30,-25[ & -27.5 & 2 & 0.007194 & 0.010791 & 0.001439 \tabularnewline
[-25,-20[ & -22.5 & 7 & 0.02518 & 0.035971 & 0.005036 \tabularnewline
[-20,-15[ & -17.5 & 7 & 0.02518 & 0.061151 & 0.005036 \tabularnewline
[-15,-10[ & -12.5 & 17 & 0.061151 & 0.122302 & 0.01223 \tabularnewline
[-10,-5[ & -7.5 & 38 & 0.136691 & 0.258993 & 0.027338 \tabularnewline
[-5,0[ & -2.5 & 65 & 0.233813 & 0.492806 & 0.046763 \tabularnewline
[0,5[ & 2.5 & 59 & 0.21223 & 0.705036 & 0.042446 \tabularnewline
[5,10[ & 7.5 & 45 & 0.161871 & 0.866906 & 0.032374 \tabularnewline
[10,15[ & 12.5 & 23 & 0.082734 & 0.94964 & 0.016547 \tabularnewline
[15,20[ & 17.5 & 11 & 0.039568 & 0.989209 & 0.007914 \tabularnewline
[20,25[ & 22.5 & 2 & 0.007194 & 0.996403 & 0.001439 \tabularnewline
[25,30] & 27.5 & 1 & 0.003597 & 1 & 0.000719 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=271178&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][-35,-30[[/C][C]-32.5[/C][C]1[/C][C]0.003597[/C][C]0.003597[/C][C]0.000719[/C][/ROW]
[ROW][C][-30,-25[[/C][C]-27.5[/C][C]2[/C][C]0.007194[/C][C]0.010791[/C][C]0.001439[/C][/ROW]
[ROW][C][-25,-20[[/C][C]-22.5[/C][C]7[/C][C]0.02518[/C][C]0.035971[/C][C]0.005036[/C][/ROW]
[ROW][C][-20,-15[[/C][C]-17.5[/C][C]7[/C][C]0.02518[/C][C]0.061151[/C][C]0.005036[/C][/ROW]
[ROW][C][-15,-10[[/C][C]-12.5[/C][C]17[/C][C]0.061151[/C][C]0.122302[/C][C]0.01223[/C][/ROW]
[ROW][C][-10,-5[[/C][C]-7.5[/C][C]38[/C][C]0.136691[/C][C]0.258993[/C][C]0.027338[/C][/ROW]
[ROW][C][-5,0[[/C][C]-2.5[/C][C]65[/C][C]0.233813[/C][C]0.492806[/C][C]0.046763[/C][/ROW]
[ROW][C][0,5[[/C][C]2.5[/C][C]59[/C][C]0.21223[/C][C]0.705036[/C][C]0.042446[/C][/ROW]
[ROW][C][5,10[[/C][C]7.5[/C][C]45[/C][C]0.161871[/C][C]0.866906[/C][C]0.032374[/C][/ROW]
[ROW][C][10,15[[/C][C]12.5[/C][C]23[/C][C]0.082734[/C][C]0.94964[/C][C]0.016547[/C][/ROW]
[ROW][C][15,20[[/C][C]17.5[/C][C]11[/C][C]0.039568[/C][C]0.989209[/C][C]0.007914[/C][/ROW]
[ROW][C][20,25[[/C][C]22.5[/C][C]2[/C][C]0.007194[/C][C]0.996403[/C][C]0.001439[/C][/ROW]
[ROW][C][25,30][/C][C]27.5[/C][C]1[/C][C]0.003597[/C][C]1[/C][C]0.000719[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=271178&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271178&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
[-35,-30[-32.510.0035970.0035970.000719
[-30,-25[-27.520.0071940.0107910.001439
[-25,-20[-22.570.025180.0359710.005036
[-20,-15[-17.570.025180.0611510.005036
[-15,-10[-12.5170.0611510.1223020.01223
[-10,-5[-7.5380.1366910.2589930.027338
[-5,0[-2.5650.2338130.4928060.046763
[0,5[2.5590.212230.7050360.042446
[5,10[7.5450.1618710.8669060.032374
[10,15[12.5230.0827340.949640.016547
[15,20[17.5110.0395680.9892090.007914
[20,25[22.520.0071940.9964030.001439
[25,30]27.510.00359710.000719


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
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')
}