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 computationMon, 18 Nov 2013 10:19:38 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2013/Nov/18/t1384788031y8i0a6k7k25si4p.htm/, Retrieved Sat, 27 Apr 2024 07:04:54 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=226124, Retrieved Sat, 27 Apr 2024 07:04:54 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact87
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram, QQplot and Density] [mixture of normals] [2013-11-18 15:19:38] [a9208f4f8d3b118336aae915785f2bd9] [Current]
Feedback Forum

Post a new message
Dataseries X:
50.69013383
36.67956693
24.85707655
63.8493725
71.88026786
61.16237624
51.77302394
53.55707102
58.5107985
27.25571118
48.12138237
59.20163898
39.81231053
70.80206783
23.57497941
47.20356717
34.20659133
76.54794086
51.89976687
65.28921098
63.52570697
45.63928326
39.85545173
45.07682379
62.13143419
44.05921808
76.64175775
56.42622271
69.4648729
73.50011457
69.09070145
64.01001045
92.24611772
74.30389025
71.48474353
67.19219568
45.66494059
65.93982383
83.84624731
51.64621458
74.85431542
63.22230797
60.32625842
86.62157095
71.92293603
57.19007148
68.77682477
80.25406423
64.38230738
72.09997351




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

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







Descriptive Statistics
mean59.5654formula
standard deviation15.7806formula

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

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

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



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