Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationFri, 21 Dec 2012 14:06:57 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Dec/21/t1356116829vktwafyd49adkc7.htm/, Retrieved Thu, 31 Oct 2024 23:08:13 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=204113, Retrieved Thu, 31 Oct 2024 23:08:13 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact92
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [] [2012-12-21 19:06:57] [9f1ef512d1eac2da3e1af89c6a547aff] [Current]
Feedback Forum

Post a new message
Dataseries X:
26	NA	21	NA	21	NA	23	NA	17	NA	23	NA	4	NA	127	NA
20	NA	16	NA	15	NA	24	NA	17	NA	20	NA	4	NA	108	NA
19	NA	19	NA	18	NA	22	NA	18	NA	20	NA	6	NA	110	NA
NA	19	NA	18	NA	11	NA	20	NA	21	NA	21	NA	8	NA	102
20	NA	16	NA	8	NA	24	NA	20	NA	24	NA	8	NA	104	NA
25	NA	23	NA	19	NA	27	NA	28	NA	22	NA	4	NA	140	NA
NA	25	NA	17	NA	4	NA	28	NA	19	NA	23	NA	4	NA	112
22	NA	12	NA	20	NA	27	NA	22	NA	20	NA	8	NA	115	NA
26	NA	19	NA	16	NA	24	NA	16	NA	25	NA	5	NA	121	NA
22	NA	16	NA	14	NA	23	NA	18	NA	23	NA	4	NA	112	NA
NA	17	NA	19	NA	10	NA	24	NA	25	NA	27	NA	4	NA	118
NA	22	NA	20	NA	13	NA	27	NA	17	NA	27	NA	4	NA	122
19	NA	13	NA	14	NA	27	NA	14	NA	22	NA	4	NA	105	NA
24	NA	20	NA	8	NA	28	NA	11	NA	24	NA	4	NA	111	NA
26	NA	27	NA	23	NA	27	NA	27	NA	25	NA	4	NA	151	NA
NA	21	NA	17	NA	11	NA	23	NA	20	NA	22	NA	8	NA	106
13	NA	8	NA	9	NA	24	NA	22	NA	28	NA	4	NA	100	NA
NA	26	NA	25	NA	24	NA	28	NA	22	NA	28	NA	4	NA	149
NA	20	NA	26	NA	5	NA	27	NA	21	NA	27	NA	4	NA	122
22	NA	13	NA	15	NA	25	NA	23	NA	25	NA	8	NA	115	NA
NA	14	NA	19	NA	5	NA	19	NA	17	NA	16	NA	4	NA	86
21	NA	15	NA	19	NA	24	NA	24	NA	28	NA	7	NA	124	NA
7	NA	5	NA	6	NA	20	NA	14	NA	21	NA	4	NA	69	NA
NA	23	NA	16	NA	13	NA	28	NA	17	NA	24	NA	4	NA	117
17	NA	14	NA	11	NA	26	NA	23	NA	27	NA	5	NA	113	NA
25	NA	24	NA	17	NA	23	NA	24	NA	14	NA	4	NA	123	NA
25	NA	24	NA	17	NA	23	NA	24	NA	14	NA	4	NA	123	NA
19	NA	9	NA	5	NA	20	NA	8	NA	27	NA	4	NA	84	NA
NA	20	NA	19	NA	9	NA	11	NA	22	NA	20	NA	4	NA	97
23	NA	19	NA	15	NA	24	NA	23	NA	21	NA	4	NA	121	NA
NA	22	NA	25	NA	17	NA	25	NA	25	NA	22	NA	4	NA	132
22	NA	19	NA	17	NA	23	NA	21	NA	21	NA	4	NA	119	NA
21	NA	18	NA	20	NA	18	NA	24	NA	12	NA	15	NA	98	NA
NA	15	NA	15	NA	12	NA	20	NA	15	NA	20	NA	10	NA	87
NA	20	NA	12	NA	7	NA	20	NA	22	NA	24	NA	4	NA	101
NA	22	NA	21	NA	16	NA	24	NA	21	NA	19	NA	8	NA	115
18	NA	12	NA	7	NA	23	NA	25	NA	28	NA	4	NA	109	NA
NA	20	NA	15	NA	14	NA	25	NA	16	NA	23	NA	4	NA	109
NA	28	NA	28	NA	24	NA	28	NA	28	NA	27	NA	4	NA	159
22	NA	25	NA	15	NA	26	NA	23	NA	22	NA	4	NA	129	NA
18	NA	19	NA	15	NA	26	NA	21	NA	27	NA	7	NA	119	NA
23	NA	20	NA	10	NA	23	NA	21	NA	26	NA	4	NA	119	NA
20	NA	24	NA	14	NA	22	NA	26	NA	22	NA	6	NA	122	NA
NA	25	NA	26	NA	18	NA	24	NA	22	NA	21	NA	5	NA	131
NA	26	NA	25	NA	12	NA	21	NA	21	NA	19	NA	4	NA	120
15	NA	12	NA	9	NA	20	NA	18	NA	24	NA	16	NA	82	NA
NA	17	NA	12	NA	9	NA	22	NA	12	NA	19	NA	5	NA	86
NA	23	NA	15	NA	8	NA	20	NA	25	NA	26	NA	12	NA	105
21	NA	17	NA	18	NA	25	NA	17	NA	22	NA	6	NA	114	NA
NA	13	NA	14	NA	10	NA	20	NA	24	NA	28	NA	9	NA	100
18	NA	16	NA	17	NA	22	NA	15	NA	21	NA	9	NA	100	NA
19	NA	11	NA	14	NA	23	NA	13	NA	23	NA	4	NA	99	NA
22	NA	20	NA	16	NA	25	NA	26	NA	28	NA	5	NA	132	NA
16	NA	11	NA	10	NA	23	NA	16	NA	10	NA	4	NA	82	NA
NA	24	NA	22	NA	19	NA	23	NA	24	NA	24	NA	4	NA	132
18	NA	20	NA	10	NA	22	NA	21	NA	21	NA	5	NA	107	NA
20	NA	19	NA	14	NA	24	NA	20	NA	21	NA	4	NA	114	NA
24	NA	17	NA	10	NA	25	NA	14	NA	24	NA	4	NA	110	NA
NA	14	NA	21	NA	4	NA	21	NA	25	NA	24	NA	4	NA	105
NA	22	NA	23	NA	19	NA	12	NA	25	NA	25	NA	5	NA	121
24	NA	18	NA	9	NA	17	NA	20	NA	25	NA	4	NA	109	NA
18	NA	17	NA	12	NA	20	NA	22	NA	23	NA	6	NA	106	NA
21	NA	27	NA	16	NA	23	NA	20	NA	21	NA	4	NA	124	NA
NA	23	NA	25	NA	11	NA	23	NA	26	NA	16	NA	4	NA	120
17	NA	19	NA	18	NA	20	NA	18	NA	17	NA	18	NA	91	NA
NA	22	NA	22	NA	11	NA	28	NA	22	NA	25	NA	4	NA	126
NA	24	NA	24	NA	24	NA	24	NA	24	NA	24	NA	6	NA	138
NA	21	NA	20	NA	17	NA	24	NA	17	NA	23	NA	4	NA	118
22	NA	19	NA	18	NA	24	NA	24	NA	25	NA	4	NA	128	NA
16	NA	11	NA	9	NA	24	NA	20	NA	23	NA	5	NA	98	NA
21	NA	22	NA	19	NA	28	NA	19	NA	28	NA	4	NA	133	NA
NA	23	NA	22	NA	18	NA	25	NA	20	NA	26	NA	4	NA	130
NA	22	NA	16	NA	12	NA	21	NA	15	NA	22	NA	5	NA	103
24	NA	20	NA	23	NA	25	NA	23	NA	19	NA	10	NA	124	NA
24	NA	24	NA	22	NA	25	NA	26	NA	26	NA	5	NA	142	NA
16	NA	16	NA	14	NA	18	NA	22	NA	18	NA	8	NA	96	NA
16	NA	16	NA	14	NA	17	NA	20	NA	18	NA	8	NA	93	NA
NA	21	NA	22	NA	16	NA	26	NA	24	NA	25	NA	5	NA	129
NA	26	NA	24	NA	23	NA	28	NA	26	NA	27	NA	4	NA	150
NA	15	NA	16	NA	7	NA	21	NA	21	NA	12	NA	4	NA	88
NA	25	NA	27	NA	10	NA	27	NA	25	NA	15	NA	4	NA	125
18	NA	11	NA	12	NA	22	NA	13	NA	21	NA	5	NA	92	NA
NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
20	NA	20	NA	12	NA	25	NA	22	NA	22	NA	4	NA	117	NA
NA	17	NA	20	NA	17	NA	22	NA	23	NA	21	NA	8	NA	112
NA	25	NA	27	NA	21	NA	23	NA	28	NA	24	NA	4	NA	144
24	NA	20	NA	16	NA	26	NA	22	NA	27	NA	5	NA	130	NA
17	NA	12	NA	11	NA	19	NA	20	NA	22	NA	14	NA	87	NA
19	NA	8	NA	14	NA	25	NA	6	NA	28	NA	8	NA	92	NA
20	NA	21	NA	13	NA	21	NA	21	NA	26	NA	8	NA	114	NA
15	NA	18	NA	9	NA	13	NA	20	NA	10	NA	4	NA	81	NA
NA	27	NA	24	NA	19	NA	24	NA	18	NA	19	NA	4	NA	127
22	NA	16	NA	13	NA	25	NA	23	NA	22	NA	6	NA	115	NA
23	NA	18	NA	19	NA	26	NA	20	NA	21	NA	4	NA	123	NA
16	NA	20	NA	13	NA	25	NA	24	NA	24	NA	7	NA	115	NA
19	NA	20	NA	13	NA	25	NA	22	NA	25	NA	7	NA	117	NA
NA	25	NA	19	NA	13	NA	22	NA	21	NA	21	NA	4	NA	117
19	NA	17	NA	14	NA	21	NA	18	NA	20	NA	6	NA	103	NA
NA	19	NA	16	NA	12	NA	23	NA	21	NA	21	NA	4	NA	108
NA	26	NA	26	NA	22	NA	25	NA	23	NA	24	NA	7	NA	139
21	NA	15	NA	11	NA	24	NA	23	NA	23	NA	4	NA	113	NA
NA	20	NA	22	NA	5	NA	21	NA	15	NA	18	NA	4	NA	97
24	NA	17	NA	18	NA	21	NA	21	NA	24	NA	8	NA	117	NA
22	NA	23	NA	19	NA	25	NA	24	NA	24	NA	4	NA	133	NA
NA	20	NA	21	NA	14	NA	22	NA	23	NA	19	NA	4	NA	115
18	NA	19	NA	15	NA	20	NA	21	NA	20	NA	10	NA	103	NA
NA	18	NA	14	NA	12	NA	20	NA	21	NA	18	NA	8	NA	95
24	NA	17	NA	19	NA	23	NA	20	NA	20	NA	6	NA	117	NA
24	NA	12	NA	15	NA	28	NA	11	NA	27	NA	4	NA	113	NA
22	NA	24	NA	17	NA	23	NA	22	NA	23	NA	4	NA	127	NA
23	NA	18	NA	8	NA	28	NA	27	NA	26	NA	4	NA	126	NA
22	NA	20	NA	10	NA	24	NA	25	NA	23	NA	5	NA	119	NA
20	NA	16	NA	12	NA	18	NA	18	NA	17	NA	4	NA	97	NA
18	NA	20	NA	12	NA	20	NA	20	NA	21	NA	6	NA	105	NA
25	NA	22	NA	20	NA	28	NA	24	NA	25	NA	4	NA	140	NA
NA	18	NA	12	NA	12	NA	21	NA	10	NA	23	NA	5	NA	91
16	NA	16	NA	12	NA	21	NA	27	NA	27	NA	7	NA	112	NA
20	NA	17	NA	14	NA	25	NA	21	NA	24	NA	8	NA	113	NA
NA	19	NA	22	NA	6	NA	19	NA	21	NA	20	NA	5	NA	102
15	NA	12	NA	10	NA	18	NA	18	NA	27	NA	8	NA	92	NA
19	NA	14	NA	18	NA	21	NA	15	NA	21	NA	10	NA	98	NA
19	NA	23	NA	18	NA	22	NA	24	NA	24	NA	8	NA	122	NA
16	NA	15	NA	7	NA	24	NA	22	NA	21	NA	5	NA	100	NA
17	NA	17	NA	18	NA	15	NA	14	NA	15	NA	12	NA	84	NA
28	NA	28	NA	9	NA	28	NA	28	NA	25	NA	4	NA	142	NA
NA	23	NA	20	NA	17	NA	26	NA	18	NA	25	NA	5	NA	124
25	NA	23	NA	22	NA	23	NA	26	NA	22	NA	4	NA	137	NA
20	NA	13	NA	11	NA	26	NA	17	NA	24	NA	6	NA	105	NA
NA	17	NA	18	NA	15	NA	20	NA	19	NA	21	NA	4	NA	106
NA	23	NA	23	NA	17	NA	22	NA	22	NA	22	NA	4	NA	125
16	NA	19	NA	15	NA	20	NA	18	NA	23	NA	7	NA	104	NA
NA	23	NA	23	NA	22	NA	23	NA	24	NA	22	NA	7	NA	130
NA	11	NA	12	NA	9	NA	22	NA	15	NA	20	NA	10	NA	79
NA	18	NA	16	NA	13	NA	24	NA	18	NA	23	NA	4	NA	108
NA	24	NA	23	NA	20	NA	23	NA	26	NA	25	NA	5	NA	136
23	NA	13	NA	14	NA	22	NA	11	NA	23	NA	8	NA	98	NA
21	NA	22	NA	14	NA	26	NA	26	NA	22	NA	11	NA	120	NA
NA	16	NA	18	NA	12	NA	23	NA	21	NA	25	NA	7	NA	108
NA	24	NA	23	NA	20	NA	27	NA	23	NA	26	NA	4	NA	139
23	NA	20	NA	20	NA	23	NA	23	NA	22	NA	8	NA	123	NA
18	NA	10	NA	8	NA	21	NA	15	NA	24	NA	6	NA	90	NA
20	NA	17	NA	17	NA	26	NA	22	NA	24	NA	7	NA	119	NA
9	NA	18	NA	9	NA	23	NA	26	NA	25	NA	5	NA	105	NA
NA	24	NA	15	NA	18	NA	21	NA	16	NA	20	NA	4	NA	110
25	NA	23	NA	22	NA	27	NA	20	NA	26	NA	8	NA	135	NA
20	NA	17	NA	10	NA	19	NA	18	NA	21	NA	4	NA	101	NA
NA	21	NA	17	NA	13	NA	23	NA	22	NA	26	NA	8	NA	114
NA	25	NA	22	NA	15	NA	25	NA	16	NA	21	NA	6	NA	118
NA	22	NA	20	NA	18	NA	23	NA	19	NA	22	NA	4	NA	120
NA	21	NA	20	NA	18	NA	22	NA	20	NA	16	NA	9	NA	108
21	NA	19	NA	12	NA	22	NA	19	NA	26	NA	5	NA	114	NA
22	NA	18	NA	12	NA	25	NA	23	NA	28	NA	6	NA	122	NA
27	NA	22	NA	20	NA	25	NA	24	NA	18	NA	4	NA	132	NA
NA	24	NA	20	NA	12	NA	28	NA	25	NA	25	NA	4	NA	130
NA	24	NA	22	NA	16	NA	28	NA	21	NA	23	NA	4	NA	130
NA	21	NA	18	NA	16	NA	20	NA	21	NA	21	NA	5	NA	112
18	NA	16	NA	18	NA	25	NA	23	NA	20	NA	6	NA	114	NA
16	NA	16	NA	16	NA	19	NA	27	NA	25	NA	16	NA	103	NA
22	NA	16	NA	13	NA	25	NA	23	NA	22	NA	6	NA	115	NA
20	NA	16	NA	17	NA	22	NA	18	NA	21	NA	6	NA	108	NA
NA	18	NA	17	NA	13	NA	18	NA	16	NA	16	NA	4	NA	94
20	NA	18	NA	17	NA	20	NA	16	NA	18	NA	4	NA	105	NA




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=204113&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' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=204113&T=0

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



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