Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_edauni.wasp
Title produced by softwareUnivariate Explorative Data Analysis
Date of computationThu, 02 Dec 2010 15:42:43 +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/Dec/02/t1291304625pan5kwoyv4pjzrx.htm/, Retrieved Thu, 28 Mar 2024 09:02:41 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=104336, Retrieved Thu, 28 Mar 2024 09:02:41 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact153
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [Competence to learn] [2010-11-17 07:43:53] [b98453cac15ba1066b407e146608df68]
- R PD  [Multiple Regression] [WS7 Tutorial] [2010-11-18 16:04:53] [afe9379cca749d06b3d6872e02cc47ed]
-    D    [Multiple Regression] [WS7 Tutorial Popu...] [2010-11-22 10:41:15] [afe9379cca749d06b3d6872e02cc47ed]
- RMPD        [Univariate Explorative Data Analysis] [] [2010-12-02 15:42:43] [f3ebcd8ed76b32fdadb8ee7c5dc81ded] [Current]
- R  D          [Univariate Explorative Data Analysis] [Run Sequence Plot...] [2010-12-02 19:58:40] [69c775ce4d55db2aa75a88e773e8d700]
Feedback Forum

Post a new message
Dataseries X:
6282929
4324047
4108272
-1212617
1485329
1779876
1367203
2519076
912684
1443586
1220017
984885
1457425
-572920
929144
1151176
790090
774497
990576
454195
876607
711969
702380
264449
450033
541063
588864
-37216
783310
467359
688779
608419
696348
597793
821730
377934
651939
697458
700368
225986
348695
373683
501709
413743
379825
336260
636765
481231
469107
211928
563925
511939
521016
543856
329304
423262
509665
455881
367772
406339
493408
232942
416002
337430
361517
360962
235561
408247
450296
418799
247405
378519
326638
328233
386225
283662
370225
269236
365732
420383
345811
431809
418876
297476
416776
357257
458343
388386
358934
407560
392558
373177
428370
369419
358649
376641
467427
364885
436230
329118
317365
286849
376685
407198
377772
271483
153661
513294
324881
264512
420968
129302
191521
268673
353179
354624
363713
456657
211742
338381
418530
351483
372928
485538
279268
219060
325560
325314
322046
325560
325599
377028
325560
323850
325560
331514
325632
325560
325560
325560
322265
325560
325906
325985
346145
325898
325560
325356
325560
325930
318020
326389
325560
302925
325540
325560
325560
326736
340580
325560
325560
325560
325560
331828
323299
325560
325560
387722
325560
325560
325560
324598
325560
328726
325560
325043
325560
325806
325560
325560
387732
349729
332202
305442
329537
327055
356245
328451
307062
325560
331345
325560
331824
325560
325685
325560
404480
325560
325560
318314
325560
325560
325560
311807
337724
326431
327556
325560
356850
325560
325560
325560
322741
310902
324295
325560
326156
326960
325560
333411
297761
325560
325536
325560
325762
327957
325560
325560
318521
325560
319775
325560
325560
332128
325560
325486
325560
325838
325560
325560
325560
331767
325560
324523
339995
325560
325560
319582
325560
325560
307245
325560
317967
331488
335452
325560
334184
313213
325560
325560
325560
325560
348678
328727
325560
325560
325560
387978
325560
336704
325560
325560
325560
322076
325560
334272
338197
325560
321024
322145
325560
325560
323351
325560
327748
325560
325560
328157
325560
311594
325560
335962
372426
325560
319844
355822
325560
325560
325560
325560
324047
311464
325560
325560
353417
325590
325560
328576
326126
325560
325560
369376
325560
332013
325871
342165
324967
314832
325557
325560
325560
325560
325560
325560
325560
322649
325560
325560
325560
325560
325560
325560
325560
324598
325567
325560
324005
325560
325748
323385
315409
325560
325560
325560
325560
325560
312275
325560
325560
325560
320576
325246
332961
323010
325560
325560
345253
325560
325560
325560
325559
325560
325560
319634
319951
325560
325560
325560
325560
325560
325560
318519
343222
317234
325560
325560
314025
320249
325560
325560
325560
349365
289197
325560
329245
240869
327182
322876
323117
306351
335137
308271
301731
382409
279230
298731
243650
532682
319771
171493
347262
343945
311874
302211
316708
333463
344282
319635
301186
300381
318765
286146
306844
307705
312448
299715
373399
299446
325586
291221
261173
255027
-78375
-58143
227033
235098
21267
238675
197687
418341
-297706




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

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







Descriptive Statistics
# observations431
minimum-1212617
Q1325280
median325560
mean399177.635730858
Q3350606
maximum6282929

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 431 \tabularnewline
minimum & -1212617 \tabularnewline
Q1 & 325280 \tabularnewline
median & 325560 \tabularnewline
mean & 399177.635730858 \tabularnewline
Q3 & 350606 \tabularnewline
maximum & 6282929 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=104336&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]431[/C][/ROW]
[ROW][C]minimum[/C][C]-1212617[/C][/ROW]
[ROW][C]Q1[/C][C]325280[/C][/ROW]
[ROW][C]median[/C][C]325560[/C][/ROW]
[ROW][C]mean[/C][C]399177.635730858[/C][/ROW]
[ROW][C]Q3[/C][C]350606[/C][/ROW]
[ROW][C]maximum[/C][C]6282929[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=104336&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=104336&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
# observations431
minimum-1212617
Q1325280
median325560
mean399177.635730858
Q3350606
maximum6282929



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