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 computationTue, 09 Dec 2014 11:36:56 +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/09/t1418125032hfhhlw1csmf6875.htm/, Retrieved Thu, 16 May 2024 15:43:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=264470, Retrieved Thu, 16 May 2024 15:43:24 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [1.1 AMSI - histogram] [2014-12-09 11:36:56] [d784cae208306d5933987ca1a74122e8] [Current]
- RMPD    [Percentiles] [1.1 Normal Q-Q pl...] [2014-12-10 11:54:39] [765bd0d5d4a0c852014c120c6930661d]
- R PD      [Percentiles] [1.1 Normal Q-Q pl...] [2014-12-10 12:18:58] [765bd0d5d4a0c852014c120c6930661d]
- R  D      [Percentiles] [1.1 AMSE : Normal...] [2014-12-10 13:03:38] [765bd0d5d4a0c852014c120c6930661d]
-    D        [Percentiles] [1.1 AMSE : Normal...] [2014-12-10 13:10:19] [765bd0d5d4a0c852014c120c6930661d]
- R  D    [Histogram] [1.1 Histogram I.F] [2014-12-10 12:04:38] [765bd0d5d4a0c852014c120c6930661d]
- R  D    [Histogram] [1.1 AMSE : Histog...] [2014-12-10 13:00:22] [765bd0d5d4a0c852014c120c6930661d]
-    D      [Histogram] [1.1 AMSE : Histog...] [2014-12-10 13:05:51] [765bd0d5d4a0c852014c120c6930661d]
- RMPD      [Cronbach Alpha] [1.1 AMSI : Cronba...] [2014-12-10 13:58:26] [765bd0d5d4a0c852014c120c6930661d]
- R  D        [Cronbach Alpha] [1.1 AMSI : Cronba...] [2014-12-10 14:00:13] [765bd0d5d4a0c852014c120c6930661d]
- R  D        [Cronbach Alpha] [1.1 AMSI : Cronba...] [2014-12-10 14:01:50] [765bd0d5d4a0c852014c120c6930661d]
- R  D        [Cronbach Alpha] [1.1 AMSE : Cronba...] [2014-12-10 14:06:06] [765bd0d5d4a0c852014c120c6930661d]
- R  D        [Cronbach Alpha] [1.1 AMSE : Cronba...] [2014-12-10 14:08:25] [765bd0d5d4a0c852014c120c6930661d]
- R  D        [Cronbach Alpha] [1.1 AMSE : Cronba...] [2014-12-10 14:10:13] [765bd0d5d4a0c852014c120c6930661d]
-   PD      [Histogram] [1.1 AMSA : Histogram] [2014-12-10 14:13:39] [765bd0d5d4a0c852014c120c6930661d]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
52
16
46
56
NA
55
50
NA
60
NA
NA
67
52
55
37
54
72
51
48
NA
50
63
33
67
46
54
NA
61
33
47
69
52
NA
NA
NA
73
NA
NA
NA
51
NA
56
56
NA
66
66
73
NA
NA
NA
NA
58
NA
61
NA
50
NA
54
NA
NA
80
NA
56
56
56
53
47
NA
47
NA
NA
NA
51
NA
35
NA
NA
NA
NA
53
46
67
59
NA
NA
50
NA
NA
NA
NA
47
63
NA
NA
51
NA
55
38
56
NA
50
54
57
NA
NA
NA
49
37
NA
59
46
NA
NA
NA
53
48
NA
NA
NA
62
62
NA
NA
NA
67
50
54
58
NA
63
31
65
NA
NA
57
NA
54
47
57
NA
41
NA
63
56
NA
50
NA
41
NA
56
NA
NA
42
52
NA
44
62
NA
50
NA
NA
66
62
NA
47
NA
NA
60
NA
NA
45
58
51
NA
30
46
51
56
NA
44
NA
NA
42
NA
44
NA
NA
46
NA
50
54
NA
NA
NA
55
NA
59
54
66
55
NA
51
NA
42
NA
NA
NA
NA
NA
NA
63
43
65
NA
NA
NA
NA
NA
67
52
52
69
NA
46
NA
40
70
NA
77
NA
NA
NA
NA
NA
NA
41
NA
NA
51
69
60
45
NA
39
51
NA
NA
NA
NA
51
NA
NA
NA
NA
NA
NA
51
65
51
NA
NA
58
NA
54
52
72
50
65
NA
NA
NA
NA
NA
50
NA
NA
52
NA
NA
59
NA
52
45
NA
70
NA
71
NA
58
39
46
NA
67
44
NA
41
68
63
57
NA
39
NA
NA
38
NA
51
59
NA
NA
47
50
57
21
NA
51
37
67
43
NA
NA
40
NA
58
64
NA
58
NA
59
NA
NA
58
41
56
63
NA
NA
58
NA
47
NA
62
60
50
46
44
58
56
43
NA
54
NA
NA
66
62
58
67
25
56
53
NA
59
46
49
NA
76
33
49
53
NA
72
51
NA
NA
51
54
52
59
NA
67
NA
58
NA
NA
NA
NA
53
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264470&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,20[1510.0025130.0025130.000469
[20,30[2520.0050250.0075380.000939
[30,40[35140.0351760.0427140.006573
[40,50[45440.1105530.1532660.020657
[50,60[55990.2487440.402010.046479
[60,70[65420.1055280.5075380.019718
[70,80]75110.0276380.5351760.005164

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[10,20[ & 15 & 1 & 0.002513 & 0.002513 & 0.000469 \tabularnewline
[20,30[ & 25 & 2 & 0.005025 & 0.007538 & 0.000939 \tabularnewline
[30,40[ & 35 & 14 & 0.035176 & 0.042714 & 0.006573 \tabularnewline
[40,50[ & 45 & 44 & 0.110553 & 0.153266 & 0.020657 \tabularnewline
[50,60[ & 55 & 99 & 0.248744 & 0.40201 & 0.046479 \tabularnewline
[60,70[ & 65 & 42 & 0.105528 & 0.507538 & 0.019718 \tabularnewline
[70,80] & 75 & 11 & 0.027638 & 0.535176 & 0.005164 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264470&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,20[[/C][C]15[/C][C]1[/C][C]0.002513[/C][C]0.002513[/C][C]0.000469[/C][/ROW]
[ROW][C][20,30[[/C][C]25[/C][C]2[/C][C]0.005025[/C][C]0.007538[/C][C]0.000939[/C][/ROW]
[ROW][C][30,40[[/C][C]35[/C][C]14[/C][C]0.035176[/C][C]0.042714[/C][C]0.006573[/C][/ROW]
[ROW][C][40,50[[/C][C]45[/C][C]44[/C][C]0.110553[/C][C]0.153266[/C][C]0.020657[/C][/ROW]
[ROW][C][50,60[[/C][C]55[/C][C]99[/C][C]0.248744[/C][C]0.40201[/C][C]0.046479[/C][/ROW]
[ROW][C][60,70[[/C][C]65[/C][C]42[/C][C]0.105528[/C][C]0.507538[/C][C]0.019718[/C][/ROW]
[ROW][C][70,80][/C][C]75[/C][C]11[/C][C]0.027638[/C][C]0.535176[/C][C]0.005164[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264470&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264470&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,20[1510.0025130.0025130.000469
[20,30[2520.0050250.0075380.000939
[30,40[35140.0351760.0427140.006573
[40,50[45440.1105530.1532660.020657
[50,60[55990.2487440.402010.046479
[60,70[65420.1055280.5075380.019718
[70,80]75110.0276380.5351760.005164


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):
par4 <- 'Unknown'
par3 <- 'FALSE'
par2 <- 'grey'
par1 <- ''
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')
}