Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_varia1.wasp
Title produced by softwareHistogram and QQplot
Date of computationTue, 19 Dec 2023 23:38:24 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2023/Dec/19/t1703025517f7fkkeuaz7tasd8.htm/, Retrieved Mon, 20 May 2024 16:37:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319997, Retrieved Mon, 20 May 2024 16:37:49 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact10
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram and QQplot] [] [2023-12-19 22:38:24] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
28	11	43
31	55	44
70	109	119
90	133	128
126	135	143
132	138	147
132	141	150
138	142	152
140	150	154
141	150	155
143	153	156
145	156	160
146	156	160
146	157	161
149	158	161
150	161	162
155	163	165
155	163	168
155	164	168
159	165	168
160	166	169
160	167	169
161	167	170
162	167	172
163	168	175
165	170	175
168	170	177
170	170	178
171	172	180
175	172	180
176	173	183
176	176	184
177	177	186
178	178	187
179	179	188
179	180	189
179	180	190
179	183	190
180	184	190
180	185	192
180	185	193
181	185	193
189	188	201
199	196	205
200	198	207
231	198	227




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319997&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319997&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319997&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 Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center



Parameters (Session):
par1 = 3 ;
Parameters (R input):
par1 = 3 ;
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')