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:29:06 -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/t133854655690upgyuzdkwi8ct.htm/, Retrieved Thu, 02 May 2024 09:32:11 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168695, Retrieved Thu, 02 May 2024 09:32:11 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact59
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Simple Linear Regression] [Triglyceridge Reg...] [2011-07-07 15:11:49] [74be16979710d4c4e7c6647856088456]
- R     [Simple Linear Regression] [Triglyceride] [2012-05-04 19:33:41] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RMPD      [Histogram, QQplot and Density] [] [2012-06-01 10:29:06] [3ae9b3697992de4804cbefe734eb7ca5] [Current]
-   PD        [Histogram, QQplot and Density] [] [2012-06-01 10:33:28] [c38772d0dfefbe8aa8c718965b197cf4]
Feedback Forum

Post a new message
Dataseries X:
77	180
51	159
54	158
70	175
59	155
76	165
77	165
73	180
71	175
64	170
75	174
56	163
52	158
64	165
57	160
66	165
101	185
62	165
75	200
61	171
124	178
61	170
66	173
70	170
59	168
50	165
61	168
60	160
41	153
100	180
71	165
73	175
76	173
52	161
63	170
65	175
54	165
69	171
86	175
67	188
53	160
80	178
59	159
80	180
82	175
55	158
56	173
75	158
85	183
57	163
73	170
107	185
64	172
74	180
70	169
58	170
69	165
71	170
76	175
75	169
98	185
59	160
63	163
62	161
51	155
76	175
61	171
66	175
54	163
57	159
50	161
55	150
64	158
70	180
70	183
60	163
56	170
52	175
55	163
56	170
61	183
66	175
53	165
59	160
56	160
68	170
56	161
86	183
71	180
87	185
57	160
101	182
50	165
52	153
NA	154
55	163
63	175
47	160
45	160
63	173
51	160
51	150
55	164
64	165
55	163
90	183
79	171
57	171
67	179
77	165
62	163
83	181
94	183
76	165
66	178
77	175
73	165
68	175
55	163
45	153
68	169
44	155
61	163
89	185
53	158
47	148
84	175
53	160
62	168
91	185
83	188
68	175
53	160
55	163
55	176
66	171
55	155
55	165
55	158
67	170
86	183
58	165
47	160
45	152
44	160
58	165
68	174
56	165
50	160
54	160
52	158
58	171
58	161
59	155
62	168
66	165
95	188
50	155
75	165
61	170
64	168
68	178
67	165
82	175
68	173
78	175
59	160
70	173
56	160
55	168
54	166
75	180
49	155
93	188
86	173
59	165
51	158
61	161
71	175
80	180
91	178
81	178




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=168695&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=168695&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168695&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-102947412_0.912390330806375_Fri Jun 1 06:00:18 2012 ; par2 = wnga ; par3 = b4d7fcb1aac27e05e0c3a7f456088aef ; par4 = 8 ;
Parameters (R input):
par1 = 10 ;
R code (references can be found in the software module):
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')