Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_histogram.wasp

Title produced by software

Histogram

Date of computation

Thu, 24 Feb 2011 07:50:44 +0000

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/2011/Feb/24/t12985337129bkzohjy5m8bvja.htm/, Retrieved Sun, 19 May 2024 13:07:42 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=119052, Retrieved Sun, 19 May 2024 13:07:42 +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

KDGP1W1

Estimated Impact

161

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

-     [Histogram] [Histogram 1- Maxi...] [2011-02-17 10:52:34] [fd5863f3ff552f0a3287d8c21ebcfe62]
- R P     [Histogram] [Histogram 1 gecor...] [2011-02-24 07:50:44] [d41d8cd98f00b204e9800998ecf8427e] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gwilym Jenkins' @ www.wessa.org

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=119052&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	1 seconds
R Server	'Gwilym Jenkins' @ www.wessa.org

Parameters (Session):

par2 = grey ; par3 = FALSE ; par4 = Interval/Ratio ;

Parameters (R input):

par1 = ; par2 = grey ; par3 = FALSE ; par4 = Interval/Ratio ;

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#'http://www#xycoon#com/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