Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software ModuleIan.Hollidayrwasp_Reddy-Moores DAta.wasp
Title produced by softwareHistogram and QQPlot (Reddy-Moores Data)
Date of computationSun, 17 Oct 2010 12:09:06 +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/Oct/17/t128731730193qwjiufpp2hwpb.htm/, Retrieved Fri, 03 May 2024 12:03:34 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=84079, Retrieved Fri, 03 May 2024 12:03:34 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact99
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]
-   P   [Histogram and QQplot] [olivia friday] [2009-10-09 12:41:21] [3fdd735c61ad38cbc9b3393dc997cdb7]
- RMPD    [Histogram and QQplot] [Reddy Moores Hist...] [2009-10-09 13:23:16] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R         [Histogram and QQPlot (Reddy-Moores Data)] [Reddy Moores Hist...] [2010-10-13 14:59:57] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   PD          [Histogram and QQPlot (Reddy-Moores Data)] [] [2010-10-17 12:09:06] [1a378cedcc4b84f9a824122684278c59] [Current]
Feedback Forum

Post a new message
Dataseries X:
66.66666667
66.33333333
64.33333333
64
63.33333333
61.33333333
64.66666667
63
60.66666667
63.66666667
60.66666667
61.66666667
62.33333333
60.33333333
59.66666667
60.33333333
59.33333333
58.66666667
58.66666667
59.33333333
57.33333333
59.33333333
56
53.66666667
58.66666667
49.33333333
71.33333333
70.33333333
69
66
66
63.33333333
65.33333333
64.33333333
64
61.66666667
63.66666667
64.66666667
61.66666667
62
61.33333333
63.66666667
61.33333333
62.33333333
59.66666667
59.33333333
61.66666667
58.66666667
58
56.66666667
59.66666667
58
57
57.66666667
58.66666667
55.33333333
56
55.66666667
53.33333333
53.66666667
51
47
4.333333333
70
68.66666667
67.66666667
66
65.66666667
65.66666667
63.66666667
63.66666667
64
62
62
61.66666667
61.66666667
63.33333333
61
62.33333333
60.33333333
60.33333333
60.66666667
57.66666667
58.33333333
58
57.33333333
56.66666667
58
55.33333333
55.66666667
54.66666667
56.33333333
55
55
54.66666667
54.33333333
49
48.33333333
49.66666667
43.66666667
6.333333333
3
66.66666667
67.33333333
65.33333333
66
65.66666667
66.66666667
65.66666667
65
64.66666667
66.66666667
63.66666667
63.33333333
63.66666667
63.33333333
63.66666667
63
61.66666667
61.33333333
60.66666667
60
61.66666667
61.33333333
58.66666667
60.33333333
59.66666667
59.33333333
59.66666667
61
61
60
60
58.66666667
58.33333333
58
56.33333333
54.66666667
55.33333333
54
52.66666667
44
65.66666667
65
66.33333333
64
62.33333333
61.33333333
63
63.66666667
62
61.33333333
64.66666667
62.66666667
64
61
60.66666667
59.66666667
60.33333333
56.66666667
56.66666667
54.33333333
51
51
47
68
65
64
64
64
62
61
60
60
62
60
59
61
60
60




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time8 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 8 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=84079&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]8 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=84079&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=84079&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 time8 seconds
R Server'George Udny Yule' @ 72.249.76.132







Descriptive Statistics
mean59.4833333336444formula
standard deviation8.6433057882156formula

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=84079&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Descriptive Statistics
mean59.4833333336444formula
standard deviation8.6433057882156formula



Parameters (Session):
par1 = 15 ;
Parameters (R input):
par1 = 15 ;
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, xlab=xlab, main=main)
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')