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 computationWed, 10 Dec 2014 11:26:01 +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/10/t1418210805q3sz379r8l8suog.htm/, Retrieved Sun, 19 May 2024 14:05:34 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=264932, Retrieved Sun, 19 May 2024 14:05:34 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Cronbach Alpha] [Intrinsic Motivat...] [2010-10-12 11:46:14] [b98453cac15ba1066b407e146608df68]
- RMPD  [Cronbach Alpha] [] [2014-12-09 22:15:28] [6b382800c0d3804662889dbce999b8c7]
- RMPD    [Notched Boxplots] [] [2014-12-10 09:38:26] [6b382800c0d3804662889dbce999b8c7]
- R  D      [Notched Boxplots] [] [2014-12-10 09:44:14] [6b382800c0d3804662889dbce999b8c7]
- RMPD          [Histogram] [] [2014-12-10 11:26:01] [6993448de96b8662e47595bfdf466bf3] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
-0,932343
-6,93751
-0,153995
-1,26882
-4,352
-5,16395
1,24985
-0,00577569
0,0753537
-0,87223
-4,18554
-1,30858
-5,82164
-1,75675
-1,52103
-7,14674
-1,78067
-0,805482
-3,84196
-1,70174
-2,84754
-6,08901
1,8923
-2,20805
1,52879
-2,03975
-0,842343
4,1337
-0,266316
-3,36874
-2,77459
-4,71072
-1,41622
-6,85399
-4,0306
-3,20961
-2,35945
-3,76688
-2,88869
0,694623
-3,81923
-2,35161
-7,21958
-1,82887
0,597197
-2,5172
0,142261
-3,20274
0,425312
-3,76359
0,76412
-0,38652
-1,90772
-4,82032
-2,68886
0,757643
0,777656
-3,39756
-8,23879
3,26931
-4,80957
1,14018
-4,13672
-0,193295
-7,53944
2,8151
-3,91622
-3,82707
-3,32881
-0,00829538
0,814966
-0,827151
-0,976729
-2,52133
-4,53535
2,12512
-5,70245
-0,538191
-0,220272
5,77E-05
-0,53168
-2,8334
-4,15335
-2,75487
0,926821
-2,86148
-7,40381
-2,92332
0,246003
-1,17476
-2,58725
-5,47279
1,25415
0,145427
-6,55047
-0,807706
-4,59654
-3,14515
-2,91593
-4,25982
-1,78403
1,26256
-4,66386
-1,92292
-3,99028
-2,42777
-1,59663
2,9061
-4,10674
1,22893
-8,81813
-6,82817
-2,93204
-1,89102
-0,920299
-7,96448
-1,11297
4,76162
3,40514
2,30939
1,26557
4,07216
3,90352
3,64147
0,201754
4,4769
1,75495
-2,17429
1,27342
4,69019
1,69783
6,665
0,837149
0,24104
2,69079
1,8991
1,99346
-1,42577
0,385293
3,67447
-4,61032
4,46897
2,88118
-1,62456
4,79743
3,96682
4,42113
2,46181
2,70047
3,68022
1,93659
-1,57563
0,727305
1,72528
4,17729
-3,24789
2,2606
5,44239
4,05359
1,18126
2,32385
4,91746
1,54566
1,45203
-2,52856
4,33116
3,48216
2,30281
2,16197
4,93456
-1,74403
4,81768
1,00884
0,961538
-2,54927
3,20609
4,93642
1,61455
1,81346
1,81346
5,71029
0,721124
6,5277
3,20166
-5,68328
-0,283099
0,919556
5,32037
2,63386
0,0909615
2,65191
3,90191
-0,298088
-1,24963
1,72848
-2,03625
2,92044
-3,01499
5,85464
0,957987
1,52265
1,07297
1,72582
2,13369
3,22561
6,79147
2,09446
0,267959
1,39749
-0,149357
0,612753
-2,02367
0,483979
0,20624
7,15744
4,02144
-1,89505
2,52386
-1,15913
0,696459
2,87975
1,66967
3,59513
0,725288
4,42637
-1,0606
2,11525
4,5554
-5,55071
-0,686779
3,36487
3,99497
1,80857
3,19035
2,4527
5,23231
5,00184
5,8833
4,81238
0,438872
-0,235254
-1,83164
-8,49351
-0,776198
1,38897
0,416817
0,532063
-1,07649
-0,74235
2,75464
4,93456
4,1724
-1,00035
2,67596
4,15148
1,26791
2,75968
1,07844
-0,0662818
-2,15722
1,71199
2,70773
-0,11166
3,08883
-4,75021
-6,65185
-0,280772
-2,86038
-1,74403
-1,45963
-1,45913
2,75464
2,4199
-0,217014
0,382371
3,89367
3,74675
-2,31064
2,60426
-0,956236
2,82273
4,0287
3,25808
0,446726
3,25857
-3,86352

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

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






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[-10,-8[-930.010490.010490.005245
[-8,-6[-7110.0384620.0489510.019231
[-6,-4[-5210.0734270.1223780.036713
[-4,-2[-3420.1468530.2692310.073427
[-2,0[-1580.2027970.4720280.101399
[0,2[1670.2342660.7062940.117133
[2,4[3500.1748250.8811190.087413
[4,6[5300.1048950.9860140.052448
[6,8]740.01398610.006993

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[-10,-8[ & -9 & 3 & 0.01049 & 0.01049 & 0.005245 \tabularnewline
[-8,-6[ & -7 & 11 & 0.038462 & 0.048951 & 0.019231 \tabularnewline
[-6,-4[ & -5 & 21 & 0.073427 & 0.122378 & 0.036713 \tabularnewline
[-4,-2[ & -3 & 42 & 0.146853 & 0.269231 & 0.073427 \tabularnewline
[-2,0[ & -1 & 58 & 0.202797 & 0.472028 & 0.101399 \tabularnewline
[0,2[ & 1 & 67 & 0.234266 & 0.706294 & 0.117133 \tabularnewline
[2,4[ & 3 & 50 & 0.174825 & 0.881119 & 0.087413 \tabularnewline
[4,6[ & 5 & 30 & 0.104895 & 0.986014 & 0.052448 \tabularnewline
[6,8] & 7 & 4 & 0.013986 & 1 & 0.006993 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264932&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][-10,-8[[/C][C]-9[/C][C]3[/C][C]0.01049[/C][C]0.01049[/C][C]0.005245[/C][/ROW]
[ROW][C][-8,-6[[/C][C]-7[/C][C]11[/C][C]0.038462[/C][C]0.048951[/C][C]0.019231[/C][/ROW]
[ROW][C][-6,-4[[/C][C]-5[/C][C]21[/C][C]0.073427[/C][C]0.122378[/C][C]0.036713[/C][/ROW]
[ROW][C][-4,-2[[/C][C]-3[/C][C]42[/C][C]0.146853[/C][C]0.269231[/C][C]0.073427[/C][/ROW]
[ROW][C][-2,0[[/C][C]-1[/C][C]58[/C][C]0.202797[/C][C]0.472028[/C][C]0.101399[/C][/ROW]
[ROW][C][0,2[[/C][C]1[/C][C]67[/C][C]0.234266[/C][C]0.706294[/C][C]0.117133[/C][/ROW]
[ROW][C][2,4[[/C][C]3[/C][C]50[/C][C]0.174825[/C][C]0.881119[/C][C]0.087413[/C][/ROW]
[ROW][C][4,6[[/C][C]5[/C][C]30[/C][C]0.104895[/C][C]0.986014[/C][C]0.052448[/C][/ROW]
[ROW][C][6,8][/C][C]7[/C][C]4[/C][C]0.013986[/C][C]1[/C][C]0.006993[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264932&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264932&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
[-10,-8[-930.010490.010490.005245
[-8,-6[-7110.0384620.0489510.019231
[-6,-4[-5210.0734270.1223780.036713
[-4,-2[-3420.1468530.2692310.073427
[-2,0[-1580.2027970.4720280.101399
[0,2[1670.2342660.7062940.117133
[2,4[3500.1748250.8811190.087413
[4,6[5300.1048950.9860140.052448
[6,8]740.01398610.006993


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