Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationWed, 19 May 2010 13:20:28 +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/2010/May/19/t127427525949aws9obflta5qc.htm/, Retrieved Tue, 07 Feb 2023 17:29:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=76193, Retrieved Tue, 07 Feb 2023 17:29:30 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W22
Estimated Impact173
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [historisch overzi...] [2010-02-09 19:37:30] [ebacbce6da0b74118b3de0fd7beb3336]
- RMPD  [Histogram] [] [2010-02-22 20:20:51] [5a3034bcadf7735f2909fd8cdba599d5]
- R         [Histogram] [] [2010-05-19 13:20:28] [ac302f869d0778eba7cafda3b14e71eb] [Current]
Feedback Forum

Post a new message
Dataseries X:
4.50
4.65
4.71
15.80
14.99
15.26
17.21
16.94
16.80
18.37
18.53
18.48
18.73
18.63
19.15
19.76
20.02
20.26
20.32
20.52
20.81
21.26
22.15
23.05
24.01
24.69
25.38
26.33
27.36
28.55
30.10
32.20
36.28
40.91
44.66
47.83
49.97
52.20
55.67
59.92
65.15
70.14
74.60
78.23
79.24
80.47
81.41
83.94
86.83
89.61
91.79
94.32
96.56
97.98
100.00
101.63
102.60
103.75
106.39
109.02
110.81
112.57
114.93
118.13
120.25
122.44
127.94
127.87




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=76193&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 time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24



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