Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_Distributional Plots.wasp
Title produced by softwareHistogram, QQplot and Density
Date of computationFri, 01 Jun 2012 06:18:45 -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/Jun/01/t133854593461wjzhdghs5d77i.htm/, Retrieved Thu, 02 May 2024 02:00:17 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168635, Retrieved Thu, 02 May 2024 02:00:17 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact91
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram, QQplot and Density] [] [2012-06-01 10:18:45] [c47e4aae1f3ed626fc7d48f49ae2654c] [Current]
Feedback Forum

Post a new message
Dataseries X:
58	161
53	161
59	157
166	57
51	161
64	168
52	163
65	166
62	168
61	175
61	170
54	171
50	166
63	169
58	166
39	157
71	166
52	164
68	169
56	166
54	164
63	163
54	160
49	161
54	174
75	162
56	165
66	170
78	173
60	162
64	165
64	164
52	158
62	175
55	165
56	163
50	166
50	171
50	160
63	160
61	165
53	169
60	167
56	170
53	165
57	163
57	162
56	161
56	165
50	169
52	159
55	155
55	164
47	163
45	163
62	175
53	164
52	152
57	167
64	166
59	166
55	174
76	167
62	168
68	178
55	165
52	169
47	153
45	157
68	171
44	157
62	166
56	160
50	148
53	162
64	172
62	167
52	163
53	165
54	176
64	171
55	160
55	165
59	157
70	173
57	168
47	162
47	150
55	162
48	163
59	170
58	169
57	167
51	163
54	161
53	162
59	172
59	159
63	170
66	166
53	158
54	163
60	174
43	154
63	165
56	162
60	172
58	169
50	158
59	164
51	156
62	164
77	182
68	177
76	170
76	167
69	186
71	178
65	171
70	175
92	187
76	197
119	180
65	175
66	173
101	183
75	178
79	173
64	176
69	174
88	178
65	187
80	178
78	183
85	179
73	180
82	182
74	169
102	185
64	177
65	176
73	183
75	172
57	173
68	165
71	177
71	180
97	189
80	178
66	173
69	182
69	183
55	168
59	182
62	178
70	173
84	184
69	180
88	189
103	185
63	178
84	183
79	179
67	179
83	184
96	184
75	169
65	178
78	178
69	167
67	179
87	185
83	177
90	188
85	191
66	175
88	184
54	169
69	172
56	163
96	191
76	169
61	170
82	176
62	168
71	178
66	170
81	178
68	174
80	176
82	181
70	173
76	183
88	185
89	173
74	175
83	180
81	175
90	181
79	177




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

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



Parameters (Session):
par1 = a-102737846_0.0822436781600118_Fri Jun 1 05:53:58 2012 ; par2 = wnga ; par3 = 889201a3dd5cfc1ceae68e330da06215 ; par4 = 20 ;
Parameters (R input):
par1 = 10 ;
R code (references can be found in the software module):
par1 <- '10'
x <- x[!is.na(x)]
bitmap(file='test1.png')
par1 <- as.numeric(par1)
myhist<-hist(x, breaks=par1, col=2, xlab=xlab, main=main)
dev.off()
bitmap(file='test2.png')
qqnorm(x)
qqline(x, col=2)
dev.off()
bitmap(file='test3.png')
plot(density(x), xlab=xlab, main=main)
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,signif(mean(x), 6))
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,signif(sd(x), 6))
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')