Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationTue, 03 Mar 2009 00:10:45 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Mar/03/t1236064283iakbmwpr1hvjx17.htm/, Retrieved Fri, 07 Oct 2022 00:18:11 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=38453, Retrieved Fri, 07 Oct 2022 00:18:11 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact166
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram] [Dow Jones] [2009-02-08 13:53:16] [74be16979710d4c4e7c6647856088456]
-         [Histogram] [DOW JONES HISTOGR...] [2009-03-03 07:10:45] [23fb7a586ae7811d7719db820c9fb3e7] [Current]
Feedback Forum

Post a new message
Dataseries X:
12.182
12.242
12.368
12.552
12.377
12.350
12.333
12.427
12.281
12.381
12.569
12.684
12.689
12.580
12.264
12.259
12.205
12.255
12.039
11.893
11.741
12.149
12.096
12.146
11.946
11.976
12.392
12.102
12.362
12.547
12.532
12.422
12.304
12.216
12.267
12.652
12.605
12.626
12.613
12.603
12.575
12.527
12.580
12.325
12.304
12.372
12.617
12.627
12.851
12.825
12.721
12.765
12.848
12.891
12.870
12.831
12.818
13.013
13.057
12.969
13.011
12.815
12.861
12.746
12.872
12.825
12.891
12.993
12.985
13.026
12.825
12.598
12.621
12.480
12.543
12.594
12.647
12.638
12.503
12.392
12.389
12.603
12.210
12.278
12.286
12.090
12.145
12.307
12.270
12.159
12.023
12.062
11.844
11.842
11.805
11.809
11.453
11.346
11.345
11.382
11.216
11.289
11.225
11.382
11.148
11.226
11.104
11.051
10.962
11.238
11.437
11.495
11.458
11.603
11.630
11.341
11.369
11.133
11.398
11.578
11.380
11.326
11.286
11.604
11.655
11.432
11.730
11.782
11.633
11.532
11.611
11.660
11.478
11.346
11.415
11.427
11.626
11.384
11.412
11.500
11.713
11.546
11.506
11.532
11.186
11.225
11.515
11.234
11.264
11.429
11.416
10.906
11.057
10.609
11.028
11.394
11.016
10.850
10.827
11.019
11.140
10.372
10.847
10.826
10.484
10.323
9.955
9.437
9.262
8.569
8.462
9.389
9.302
8.577
8.975
8.852
9.263
9.028
8.520
8.683
8.376
8.179
9.062
9.005
9.179
9.326
9.324
9.617
9.134
8.696
8.947
8.864
8.685
8.822
8.495
8.273
8.421
7.996
7.552
8.048
8.445
8.464
8.725
8.827
8.154
8.409
8.587
8.376
8.638
8.934
8.693
8.750
8.563
8.629
8.566
8.922
8.824
8.607
8.573
8.519
8.417
8.469
8.516
8.488
8.666
8.772
9.027
8.955
8.997
8.770
8.739
8.599
8.475
8.446
8.196
8.216
8.280
7.949
8.224
8.109
8.078
8.117
8.176
8.373
8.149
8.001
7.937
8.070
7.955
8.056




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=38453&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[7.5,8[7.7550.020.020.04
[8,8.5[8.25300.120.140.24
[8.5,9[8.75340.1360.2760.272
[9,9.5[9.25130.0520.3280.104
[9.5,10[9.7520.0080.3360.016
[10,10.5[10.2530.0120.3480.024
[10.5,11[10.7570.0280.3760.056
[11,11.5[11.25420.1680.5440.336
[11.5,12[11.75260.1040.6480.208
[12,12.5[12.25400.160.8080.32
[12.5,13[12.75440.1760.9840.352
[13,13.5]13.2540.01610.032

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[7.5,8[ & 7.75 & 5 & 0.02 & 0.02 & 0.04 \tabularnewline
[8,8.5[ & 8.25 & 30 & 0.12 & 0.14 & 0.24 \tabularnewline
[8.5,9[ & 8.75 & 34 & 0.136 & 0.276 & 0.272 \tabularnewline
[9,9.5[ & 9.25 & 13 & 0.052 & 0.328 & 0.104 \tabularnewline
[9.5,10[ & 9.75 & 2 & 0.008 & 0.336 & 0.016 \tabularnewline
[10,10.5[ & 10.25 & 3 & 0.012 & 0.348 & 0.024 \tabularnewline
[10.5,11[ & 10.75 & 7 & 0.028 & 0.376 & 0.056 \tabularnewline
[11,11.5[ & 11.25 & 42 & 0.168 & 0.544 & 0.336 \tabularnewline
[11.5,12[ & 11.75 & 26 & 0.104 & 0.648 & 0.208 \tabularnewline
[12,12.5[ & 12.25 & 40 & 0.16 & 0.808 & 0.32 \tabularnewline
[12.5,13[ & 12.75 & 44 & 0.176 & 0.984 & 0.352 \tabularnewline
[13,13.5] & 13.25 & 4 & 0.016 & 1 & 0.032 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=38453&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][7.5,8[[/C][C]7.75[/C][C]5[/C][C]0.02[/C][C]0.02[/C][C]0.04[/C][/ROW]
[ROW][C][8,8.5[[/C][C]8.25[/C][C]30[/C][C]0.12[/C][C]0.14[/C][C]0.24[/C][/ROW]
[ROW][C][8.5,9[[/C][C]8.75[/C][C]34[/C][C]0.136[/C][C]0.276[/C][C]0.272[/C][/ROW]
[ROW][C][9,9.5[[/C][C]9.25[/C][C]13[/C][C]0.052[/C][C]0.328[/C][C]0.104[/C][/ROW]
[ROW][C][9.5,10[[/C][C]9.75[/C][C]2[/C][C]0.008[/C][C]0.336[/C][C]0.016[/C][/ROW]
[ROW][C][10,10.5[[/C][C]10.25[/C][C]3[/C][C]0.012[/C][C]0.348[/C][C]0.024[/C][/ROW]
[ROW][C][10.5,11[[/C][C]10.75[/C][C]7[/C][C]0.028[/C][C]0.376[/C][C]0.056[/C][/ROW]
[ROW][C][11,11.5[[/C][C]11.25[/C][C]42[/C][C]0.168[/C][C]0.544[/C][C]0.336[/C][/ROW]
[ROW][C][11.5,12[[/C][C]11.75[/C][C]26[/C][C]0.104[/C][C]0.648[/C][C]0.208[/C][/ROW]
[ROW][C][12,12.5[[/C][C]12.25[/C][C]40[/C][C]0.16[/C][C]0.808[/C][C]0.32[/C][/ROW]
[ROW][C][12.5,13[[/C][C]12.75[/C][C]44[/C][C]0.176[/C][C]0.984[/C][C]0.352[/C][/ROW]
[ROW][C][13,13.5][/C][C]13.25[/C][C]4[/C][C]0.016[/C][C]1[/C][C]0.032[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=38453&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=38453&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)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[7.5,8[7.7550.020.020.04
[8,8.5[8.25300.120.140.24
[8.5,9[8.75340.1360.2760.272
[9,9.5[9.25130.0520.3280.104
[9.5,10[9.7520.0080.3360.016
[10,10.5[10.2530.0120.3480.024
[10.5,11[10.7570.0280.3760.056
[11,11.5[11.25420.1680.5440.336
[11.5,12[11.75260.1040.6480.208
[12,12.5[12.25400.160.8080.32
[12.5,13[12.75440.1760.9840.352
[13,13.5]13.2540.01610.032



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