Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_histogram.wasp

Title produced by software

Histogram

Date of computation

Sat, 10 Nov 2012 04:46:38 -0500

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Nov/10/t1352540819lppwh1cfx4ujagy.htm/, Retrieved Thu, 18 Apr 2024 06:19:24 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=187267, Retrieved Thu, 18 Apr 2024 06:19:24 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

123

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Univariate Data Series] [data set] [2008-12-01 19:54:57] [b98453cac15ba1066b407e146608df68]
- RMP   [Decomposition by Loess] [Seasonal Decompos...] [2012-11-10 09:27:49] [3f1165f0052bdaf7d486f8ac60253253]
- RMPD      [Histogram] [Histogram TA Loess] [2012-11-10 09:46:38] [64435dfec13c3cda39d1733fd4b6eb52] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

-20.2709054693811
13.099061185656
16.9335347772804
29.0528022979499
7.38820069498436
-29.5579220471488
-10.1072501563793
-0.152685277280995
-4.63682018394169
-26.7451626861207
-26.3664036644236
-23.7263688810099
-29.8026955707136
-6.2103351910481
-7.45346787479525
6.32431133421221
36.2182214195845
-4.15831557890209
48.1619420555141
27.4568565571639
3.81307127305456
32.3652568508687
-13.695456047441
0.97126578235617
28.921626139036
44.0917816357488
29.3264440690489
16.9266856701619
10.7430581476398
-17.8149965758874
-3.1762566665119
-25.4760790055699
-3.81460113038702
-16.5390041440843
6.82369436609457
22.0471789340961
-14.5456979710198
-26.4431998412664
-16.5761947749258
-10.56187802827
-1.2314304052494
-34.3455108424754
-14.1627966467986
-7.16529477653486
20.3935073079699
24.6081411075147
28.1098764309357
8.19722256077625
-16.6317927825005
-15.8886322165168
-24.9809647139458
-0.0236209593056742
17.7498536716993
-27.8076294282984
2.43168210460689
19.3204217082976
19.8704615262295
13.5311094314512
5.87885886054912
2.47915020921315
-7.83691991524017
-30.811526703561
-18.4216265552946
14.3138791332485
12.2655156981566
-47.297438552061
-33.1635981693756
-35.2509910252572
-20.8770836668977
-27.8773523556143
-23.1905195204548
-8.87481040621282
19.9245372349118
37.0115920518963
49.4631538054682
59.2627556852162
50.978488441329
-22.4425976560265
-2.86688912047919
11.175673701868
28.3795367384563
0.425431908522626
3.95842860246518
-0.59489764540632
0.935414633604864
-9.63816180253048
-5.24723130207843
28.0306828375036
9.22472785345053
-37.6788163349869
-32.4855658905216
-9.77669919251173
-8.3065322802608
3.68365775668389
8.76094931750475
12.6795480067219
-13.9182147771784
-20.6353499582819
2.51202179720195
4.34118050159435
35.1864700823514
1.25552598858462
5.32137652772064
-13.9388609745915
-14.9377982626625
-15.6073653433434
15.2101690998517
20.4543466175311
3.68216266209305
-17.6808173004925
-21.0792903264907
-3.00272537180729
16.9899704592409
-12.2492128493627
-24.3916015250635
-38.2721164195545
-36.7913310998044
-43.6359683026841
-17.9935039816878
-19.5283807502867
1.12038100799691
39.9251486795142
49.5944232876187
69.8198141935435
57.5613359758332
22.1695891824235
30.6746370219168
18.2882112206891
-13.9369143662975
-18.2928367928593
-25.8616576955449
12.6004798864657
13.2462559953589
16.2652960058122
9.44884295285294
-18.3011186066836
-13.5349492898555
-35.7922295810592
-25.3527152393601
-16.5313537597499
-11.1486920658987
8.68204031415814
27.8998742180912
13.0389596374505
-1.03831641630757
-34.8015338446592
14.6997556635764
-3.58926916477731
-7.2621631167662
-6.58703494926408
-18.4151121488591
-14.8681026131873
-47.6597928632744
-21.293904703775
-11.6409150203995
26.1899365185078
29.7044265842977
45.4646645514389
38.3894094551673
23.0981672860589
21.4230559933152
18.2417705684547
11.157279776497
-0.715531051159587
-15.1270416645751
-7.22130840920806
-11.9284736299649
4.3668514752772
-1.85418489259808
-18.396933394698
-4.57517496021046
-6.36700775201803
28.3572903325393
-15.1385061458589
-28.8375079913542
3.69140933823331
-17.8183731179381
-25.4540690887963
0.697336464221678
0.513021945883395
13.1123459544277
27.375749706785
6.70366039572968
1.72995278986326
18.8723760603616
8.45675736115044
-8.36206670515787
-13.1309014264256
-21.9384359334522
-11.316210111774
15.7931172337804
9.19304281295445
12.0766069190111
-0.158542529553074
1.87081495847008
5.56132937684214
-0.0320253284210139
24.3951859793569
-25.9808080799622
-2.75573658894825
-10.0693648836933
3.01810007287617
-3.00733344667827
7.28490386261939
-8.83922030120033
8.43332454445152
-12.5296236733093
10.5849465226221
8.21564759491815
25.7833624702596
-8.25212802149616
3.96194568339797
-3.76268039746691
5.60193272405382
8.65364736945077
1.61018538247964
-20.3496380776089
-39.7826145245488
-25.4510840349012
-9.77951072936571
19.8081934525346
28.3641637082268
-1.68307140317813
7.85290337413733
-5.54982163430628
8.42796042368923
0.0928440055608917
7.89581561993737
-14.0175742388036
-21.8600192005484
-23.037957225706
-15.1679115432987
-17.2817349845265
25.3301124410899
8.53875449960913
9.13744833432287
21.6974423832777
45.2415933588997
20.6728458583979
3.13644765577152
-31.2163120199723
-16.3833863471703
-26.4859537377811
-28.4965981176658
-23.7911116211856
36.696833525137
21.7815733043625
10.685830460587
13.5513878310525
22.27837801177
9.7924697163636
-5.80466174159562
-30.4181546726723
-34.8358531079964
-29.4890446067332
-12.9710399682596
-18.5369044534211
14.1079604702348
12.4496200267936
7.09166280966235
27.6950058067722
24.8204626418524
-16.7669789991913
-35.666284563673
-38.881951601272
-20.1755054827821
-14.2045524277049
-6.65080261426306
-16.1809219244564
24.2566315261574
15.7909796096739
4.42774397800889
15.2258085605849
18.172916637119
21.7071262375293
16.228155289703
15.1328228687593
4.221479788034
-4.02535635610417
-15.2689128995269
-26.7963385665849
9.45679179427765
15.6067167880431
20.0086736859531
15.1719307981042
4.98222085991449
8.779612445601
-3.12079604344592
1.6624339943898
-8.77900771300335
-3.25594248380924
-13.0611815411808
-24.7502897221875
15.28708151674
17.3212473885702
22.7823530321417
25.9047588899543
29.2833536574919
-6.4509500510942
-16.8458040939865
-26.8570196099963
-13.3300687467932
-17.9386109470027
-8.81107910829854
-21.7674163932296
11.0939195225194
4.9520500711713
0.829786515983244
12.5688231750361
-13.5626083263094
-7.70693830377883
-12.5940635381495
6.8024497543625
4.75206969542046
-16.8338034269343
-33.1144921099329
-38.0790499165669
-4.39061960073718
-10.8053946520047
-42.5701834010817
-19.1736719359176
-48.9071564856791
-36.2535395115642
-24.4263000557075
82.1845779270318
62.3146814178742
66.7092918453038
36.7672342436149
22.6413075182908
39.5702183038967
21.3959237224055
4.89182620853535
8.24902890890621
4.31995604367148
-10.6220152976869
-7.70793075700465
26.1897923105604
8.75615568618377
-13.2129740016054
-33.8277047092123
-67.9263045404545
-3.50643896828501
13.5102212367874
19.6265424537694
7.60416388499254
5.25851506654385
10.8999677719715
5.56674975050043
19.6171702559119
42.4005548988072
15.9484464782897
-36.6024109254785
-50.4371374528818
15.7757585931204
-3.91455072797442
17.9588622881995
12.1935755186144
14.9393101500264
14.2721463053147
-26.0102537907259
11.4909846401163
-6.15575459403772
-1.83798689160437
-37.2946314110783
-35.1351450541873
-16.5044373853491
21.923064916392
6.30580716075735
13.9498496193636
-0.724386281069428
-2.31152065762626
8.28910924278432

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Sir Ronald Aylmer Fisher' @ fisher.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 & 2 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=187267&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=187267&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=187267&T=0

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Sir Ronald Aylmer Fisher' @ fisher.wessa.net

Frequency Table (Histogram)
Bins	Midpoint	Abs. Frequency	Rel. Frequency	Cumul. Rel. Freq.	Density
[-80,-60[	-70	1	0.002688	0.002688	0.000134
[-60,-40[	-50	6	0.016129	0.018817	0.000806
[-40,-20[	-30	62	0.166667	0.185484	0.008333
[-20,0[	-10	115	0.30914	0.494624	0.015457
[0,20[	10	125	0.336022	0.830645	0.016801
[20,40[	30	49	0.13172	0.962366	0.006586
[40,60[	50	10	0.026882	0.989247	0.001344
[60,80[	70	3	0.008065	0.997312	0.000403
[80,100]	90	1	0.002688	1	0.000134

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[-80,-60[ & -70 & 1 & 0.002688 & 0.002688 & 0.000134 \tabularnewline
[-60,-40[ & -50 & 6 & 0.016129 & 0.018817 & 0.000806 \tabularnewline
[-40,-20[ & -30 & 62 & 0.166667 & 0.185484 & 0.008333 \tabularnewline
[-20,0[ & -10 & 115 & 0.30914 & 0.494624 & 0.015457 \tabularnewline
[0,20[ & 10 & 125 & 0.336022 & 0.830645 & 0.016801 \tabularnewline
[20,40[ & 30 & 49 & 0.13172 & 0.962366 & 0.006586 \tabularnewline
[40,60[ & 50 & 10 & 0.026882 & 0.989247 & 0.001344 \tabularnewline
[60,80[ & 70 & 3 & 0.008065 & 0.997312 & 0.000403 \tabularnewline
[80,100] & 90 & 1 & 0.002688 & 1 & 0.000134 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=187267&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][-80,-60[[/C][C]-70[/C][C]1[/C][C]0.002688[/C][C]0.002688[/C][C]0.000134[/C][/ROW]
[ROW][C][-60,-40[[/C][C]-50[/C][C]6[/C][C]0.016129[/C][C]0.018817[/C][C]0.000806[/C][/ROW]
[ROW][C][-40,-20[[/C][C]-30[/C][C]62[/C][C]0.166667[/C][C]0.185484[/C][C]0.008333[/C][/ROW]
[ROW][C][-20,0[[/C][C]-10[/C][C]115[/C][C]0.30914[/C][C]0.494624[/C][C]0.015457[/C][/ROW]
[ROW][C][0,20[[/C][C]10[/C][C]125[/C][C]0.336022[/C][C]0.830645[/C][C]0.016801[/C][/ROW]
[ROW][C][20,40[[/C][C]30[/C][C]49[/C][C]0.13172[/C][C]0.962366[/C][C]0.006586[/C][/ROW]
[ROW][C][40,60[[/C][C]50[/C][C]10[/C][C]0.026882[/C][C]0.989247[/C][C]0.001344[/C][/ROW]
[ROW][C][60,80[[/C][C]70[/C][C]3[/C][C]0.008065[/C][C]0.997312[/C][C]0.000403[/C][/ROW]
[ROW][C][80,100][/C][C]90[/C][C]1[/C][C]0.002688[/C][C]1[/C][C]0.000134[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=187267&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=187267&T=1

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Frequency Table (Histogram)
Bins	Midpoint	Abs. Frequency	Rel. Frequency	Cumul. Rel. Freq.	Density
[-80,-60[	-70	1	0.002688	0.002688	0.000134
[-60,-40[	-50	6	0.016129	0.018817	0.000806
[-40,-20[	-30	62	0.166667	0.185484	0.008333
[-20,0[	-10	115	0.30914	0.494624	0.015457
[0,20[	10	125	0.336022	0.830645	0.016801
[20,40[	30	49	0.13172	0.962366	0.006586
[40,60[	50	10	0.026882	0.989247	0.001344
[60,80[	70	3	0.008065	0.997312	0.000403
[80,100]	90	1	0.002688	1	0.000134

Figure 1

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code