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 ModuleIan.Hollidayrwasp_varia1.wasp
Title produced by softwareHistogram and QQplot
Date of computationSun, 25 Oct 2009 08:49:43 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Oct/25/t1256482222l9im4r0bt8y6z8m.htm/, Retrieved Mon, 29 Apr 2024 10:13:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=50321, Retrieved Mon, 29 Apr 2024 10:13:32 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram and QQplot] [PY2224 Aston Work...] [2009-10-06 09:57:09] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R  D  [Histogram and QQplot] [Histogram week 3 ...] [2009-10-22 17:05:03] [cb1b5098fbe5e6779d164349741d91ea]
-   P     [Histogram and QQplot] [Histogram week 3 ...] [2009-10-25 08:40:37] [cb1b5098fbe5e6779d164349741d91ea]
-   PD      [Histogram and QQplot] [Histogram week 3 ...] [2009-10-25 09:59:01] [cb1b5098fbe5e6779d164349741d91ea]
-    D          [Histogram and QQplot] [Histogram week 3 ...] [2009-10-25 14:49:43] [fd4f510ca22152ae67cc1e51e700ce02] [Current]
-    D            [Histogram and QQplot] [Histogram week 3 ...] [2009-10-26 11:50:16] [cb1b5098fbe5e6779d164349741d91ea]
-    D              [Histogram and QQplot] [Histogram week 3 ...] [2009-10-26 11:55:41] [cb1b5098fbe5e6779d164349741d91ea]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
95
87
91
84
92
84
84
69
84
84
85
89
83
86
91
90
77
88
88
88
102
103
84
87
88
93
101
88
113
95
99
85
105
105
96
88
93
93
69
83
83
93
69
86
90
87
92
75
89
88
87
113
102
101
87
105
101
79
86
95
104
79
86
81
92
95
97
87
94
105
94
88
105
113
69
69
100
113
88
104
94
91
103
95
69
86
108
83
102
94
113
113
93
105
88
90
92
81
86
85
86
97
103
102
81
90
91
87
89
85
81
80
75
84
91
87
90
72
96
88
73
86
67
89
94
88
77
89
104
89
107
96
111
84
83
82
105
100
111
90
87
90
67
84
84
96
67
90
83
78
100
67
94
89
89
111
88
94
111
111
105
97
83
105
69
80
87
67
92
102
90
98
94
101
96
94
105
105
84
72
96
94
107
103
95
73
110
84
67
73
84
79
91
92
107
111
89
110
98
95
84
73
86
98
90
97
106
106
84
97
88
87
92
91
80
73
73
77
86
82
82
73
99
90
78
100
73
95
93
91
81
98
88
90
85
79
107
82
98
84
99
89
105
94
92
81
86
90
101
73
88
90
84
89
73
98
82
77
107
84
93
96
107
95
89
82
92
100
75
94
83
92
102
98
94
83
107
107
91
83
100
77
74
92
100
92
93
89
86
97
82
73
93
97
93
89
86
89
107
90
104
96
93
104
83
92
83
83
96
84
107

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' @ 72.249.127.135

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

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






Descriptive Statistics
mean90.5466237942122formula
standard deviation10.5388794707952formula

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
mean & 90.5466237942122 & formula \tabularnewline
standard deviation & 10.5388794707952 & formula \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=50321&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]mean[/C][C]90.5466237942122[/C][C]formula[/C][/ROW]
[ROW][C]standard deviation[/C][C]10.5388794707952[/C][C]formula[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=50321&T=1

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

Descriptive Statistics
mean90.5466237942122formula
standard deviation10.5388794707952formula


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 20 ;
Parameters (R input):
par1 = 20 ;
R code (references can be found in the software module):
bitmap(file='test1.png')
par1 <- as.numeric(par1)
myhist<-hist(x, breaks=par1, col=2)
dev.off()
bitmap(file='test2.png')
qqnorm(x)
qqline(x, col=2)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Descriptive Statistics',3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean',header=TRUE)
a<-table.element(a,mean(x))
a<-table.element(a,hyperlink('arithmetic_mean.htm','formula','click to see the formula'))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'standard deviation',header=TRUE)
a<-table.element(a,sd(x))
a<-table.element(a,hyperlink('unbiased1.htm','formula','click to see the formula'))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')