FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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 computationTue, 21 May 2013 10:25:28 -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/2013/May/21/t1369146341gx402y94s1fegu7.htm/, Retrieved Thu, 02 May 2024 00:44:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=209218, Retrieved Thu, 02 May 2024 00:44:46 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact80

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram, QQplot and Density] [] [2013-05-21 14:25:28] [0b0dba78d6906383d09f0ee03b825a5b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
99
94
80
70
100
109
62
81
74
121
100
73
88
87
73
65
89
86
146
107
58
89
74
147
82
91
93
131
88
107
63
135
74
82
71
125
66
85
92
74
88
62
91
99
121
96
95
101
87
79
68
102
95
78
117
96
93
61
61
80
81
79
82
112
102
94
99
75
135
81
78
102
86
83
111
72
86
101
80
111
77
84
83
65
100
92
106
70
90
91
99
118
66
77
84
101
64
88
83
105
127
78
70
109
104
86
97

Tables (Output of Computation)





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

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

As an alternative you can also use a QR Code:  
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'Herman Ole Andreas Wold' @ wold.wessa.net






Descriptive Statistics
mean90.3271formula
standard deviation18.8078formula

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

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

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

As an alternative you can also use a QR Code:  
QR Code


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

Descriptive Statistics
mean90.3271formula
standard deviation18.8078formula


Figures (Output of Computation)

Input Parameters & R Code

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')