FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_edauni.wasp
Title produced by softwareUnivariate Explorative Data Analysis
Date of computationTue, 22 Nov 2011 10:03:06 -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/2011/Nov/22/t1321974277ki7kbizv0hmod9o.htm/, Retrieved Thu, 18 Apr 2024 13:23:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=146262, Retrieved Thu, 18 Apr 2024 13:23:46 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Explorative Data Analysis] [time effect in su...] [2010-11-17 08:55:33] [b98453cac15ba1066b407e146608df68]
-    D  [Univariate Explorative Data Analysis] [Run sequency plot...] [2010-11-20 14:46:56] [95e8426e0df851c9330605aa1e892ab5]
- R PD      [Univariate Explorative Data Analysis] [WS7 - mini tutori...] [2011-11-22 15:03:06] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
84
72
49
85
36
53
74
22
68
47
102
131
81
108
63
146
91
61
53
112
97
92
51
132
99
98
59
98
71
100
113
92
127
96
100
69
106
51
18
91
75
75
79
59
29
85
66
106
113
101
65
7
111
61
41
70
136
87
102
84
101
57
61
92
80
46
80
88
80
68
101
63
111
65
91
92
90
70
94
75
55
80
95
42
27
62
97
88
59
92
40
91
63
88
85
76
75
69
150
77
103
81
37
64
22
38
61
93
69
80
97
87
0
61
30
82
56
0
40
9
94
110
71
50
21
78
118
102
109
104
124
76
57
95
109
74
98
63
89
74
20
65
74
78
91
132
79
100
0
0
0
0
0
0
48
63
0
0
0
13
4
31
0
29

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=146262&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 time2 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net






Descriptive Statistics
# observations164
minimum0
Q153
median75
mean70.8475609756098
Q394.25
maximum150

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 164 \tabularnewline
minimum & 0 \tabularnewline
Q1 & 53 \tabularnewline
median & 75 \tabularnewline
mean & 70.8475609756098 \tabularnewline
Q3 & 94.25 \tabularnewline
maximum & 150 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=146262&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]164[/C][/ROW]
[ROW][C]minimum[/C][C]0[/C][/ROW]
[ROW][C]Q1[/C][C]53[/C][/ROW]
[ROW][C]median[/C][C]75[/C][/ROW]
[ROW][C]mean[/C][C]70.8475609756098[/C][/ROW]
[ROW][C]Q3[/C][C]94.25[/C][/ROW]
[ROW][C]maximum[/C][C]150[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=146262&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=146262&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
# observations164
minimum0
Q153
median75
mean70.8475609756098
Q394.25
maximum150


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 0 ; par2 = 0 ;
Parameters (R input):
par1 = 0 ; par2 = 0 ;
R code (references can be found in the software module):
par1 <- as.numeric(par1)
par2 <- as.numeric(par2)
x <- as.ts(x)
library(lattice)
bitmap(file='pic1.png')
plot(x,type='l',main='Run Sequence Plot',xlab='time or index',ylab='value')
grid()
dev.off()
bitmap(file='pic2.png')
hist(x)
grid()
dev.off()
bitmap(file='pic3.png')
if (par1 > 0)
{
densityplot(~x,col='black',main=paste('Density Plot   bw = ',par1),bw=par1)
} else {
densityplot(~x,col='black',main='Density Plot')
}
dev.off()
bitmap(file='pic4.png')
qqnorm(x)
qqline(x)
grid()
dev.off()
if (par2 > 0)
{
bitmap(file='lagplot1.png')
dum <- cbind(lag(x,k=1),x)
dum
dum1 <- dum[2:length(x),]
dum1
z <- as.data.frame(dum1)
z
plot(z,main='Lag plot (k=1), lowess, and regression line')
lines(lowess(z))
abline(lm(z))
dev.off()
if (par2 > 1) {
bitmap(file='lagplotpar2.png')
dum <- cbind(lag(x,k=par2),x)
dum
dum1 <- dum[(par2+1):length(x),]
dum1
z <- as.data.frame(dum1)
z
mylagtitle <- 'Lag plot (k='
mylagtitle <- paste(mylagtitle,par2,sep='')
mylagtitle <- paste(mylagtitle,'), and lowess',sep='')
plot(z,main=mylagtitle)
lines(lowess(z))
dev.off()
}
bitmap(file='pic5.png')
acf(x,lag.max=par2,main='Autocorrelation Function')
grid()
dev.off()
}
summary(x)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Descriptive Statistics',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'# observations',header=TRUE)
a<-table.element(a,length(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'minimum',header=TRUE)
a<-table.element(a,min(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Q1',header=TRUE)
a<-table.element(a,quantile(x,0.25))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'median',header=TRUE)
a<-table.element(a,median(x))
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.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Q3',header=TRUE)
a<-table.element(a,quantile(x,0.75))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'maximum',header=TRUE)
a<-table.element(a,max(x))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')