FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationSun, 15 Jul 2012 07:15:14 -0400
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/Jul/15/t1342350965lxgi63u768eeaz0.htm/, Retrieved Tue, 30 Apr 2024 08:01:52 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168805, Retrieved Tue, 30 Apr 2024 08:01:52 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKhassanova Madina
Estimated Impact167

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [TIJDREEKS A - STAP 3] [2012-07-15 11:15:14] [57781dd4fd8fc2f3d4652fc8b989af11] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
30280
30170
30070
29860
31930
31830
30280
29240
29350
29350
29450
29660
29550
30380
30690
30380
31520
30790
29140
28730
28730
28930
28110
28730
28210
28730
29550
29860
30590
30280
28420
27690
27380
27690
27180
27380
26760
27800
28310
28420
30380
30380
27800
27180
27180
27490
26140
25520
24800
25010
25940
25210
27180
27490
25520
24800
24390
24800
23660
23250
21600
22010
22110
22220
24180
23970
21600
20560
20150
20670
18700
17360
14880
15090
15090
14880
16640
16740
14670
14260
13430
14570
12500
11260
8890
9400
8780
8990
10540
10850
9820
9710
9710
11060
8680
7130
4440
6610
6300
6410
8890
8580
7440
7960
7960
9820
7650
6410
4440
7030
6820
6920
9090
8890
8160
8270
8780
9920
8160
6720

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

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






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[0,5000[250020.0166670.0166673e-06
[5000,10000[7500310.2583330.2755.2e-05
[10000,15000[12500110.0916670.3666671.8e-05
[15000,20000[1750060.050.4166671e-05
[20000,25000[22500160.1333330.552.7e-05
[25000,30000[27500390.3250.8756.5e-05
[30000,35000]32500150.12512.5e-05

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[0,5000[ & 2500 & 2 & 0.016667 & 0.016667 & 3e-06 \tabularnewline
[5000,10000[ & 7500 & 31 & 0.258333 & 0.275 & 5.2e-05 \tabularnewline
[10000,15000[ & 12500 & 11 & 0.091667 & 0.366667 & 1.8e-05 \tabularnewline
[15000,20000[ & 17500 & 6 & 0.05 & 0.416667 & 1e-05 \tabularnewline
[20000,25000[ & 22500 & 16 & 0.133333 & 0.55 & 2.7e-05 \tabularnewline
[25000,30000[ & 27500 & 39 & 0.325 & 0.875 & 6.5e-05 \tabularnewline
[30000,35000] & 32500 & 15 & 0.125 & 1 & 2.5e-05 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168805&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][0,5000[[/C][C]2500[/C][C]2[/C][C]0.016667[/C][C]0.016667[/C][C]3e-06[/C][/ROW]
[ROW][C][5000,10000[[/C][C]7500[/C][C]31[/C][C]0.258333[/C][C]0.275[/C][C]5.2e-05[/C][/ROW]
[ROW][C][10000,15000[[/C][C]12500[/C][C]11[/C][C]0.091667[/C][C]0.366667[/C][C]1.8e-05[/C][/ROW]
[ROW][C][15000,20000[[/C][C]17500[/C][C]6[/C][C]0.05[/C][C]0.416667[/C][C]1e-05[/C][/ROW]
[ROW][C][20000,25000[[/C][C]22500[/C][C]16[/C][C]0.133333[/C][C]0.55[/C][C]2.7e-05[/C][/ROW]
[ROW][C][25000,30000[[/C][C]27500[/C][C]39[/C][C]0.325[/C][C]0.875[/C][C]6.5e-05[/C][/ROW]
[ROW][C][30000,35000][/C][C]32500[/C][C]15[/C][C]0.125[/C][C]1[/C][C]2.5e-05[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168805&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168805&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
[0,5000[250020.0166670.0166673e-06
[5000,10000[7500310.2583330.2755.2e-05
[10000,15000[12500110.0916670.3666671.8e-05
[15000,20000[1750060.050.4166671e-05
[20000,25000[22500160.1333330.552.7e-05
[25000,30000[27500390.3250.8756.5e-05
[30000,35000]32500150.12512.5e-05


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