Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_edauni.wasp

Title produced by software

Univariate Explorative Data Analysis

Date of computation

Thu, 24 Nov 2011 12:38:00 -0500

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Nov/24/t1322156294tm7qd3kr9ac87aw.htm/, Retrieved Tue, 23 Apr 2024 18:10:39 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=147116, Retrieved Tue, 23 Apr 2024 18:10:39 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Univariate Explorative Data Analysis] [univariate EDA WS7] [2011-11-24 17:38:00] [c38c32477296496b546025b407c5c736] [Current]
- R PD    [Univariate Explorative Data Analysis] [univariate EDA mi...] [2011-11-24 17:39:33] [cd6e7488bdf368f344c8d209e8917833] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

920	68284	53	266
564	68479	26	165
186	7176	17	70
1405	78306	66	360
2185	145811	89	758
3726	269638	132	974
845	69266	36	287
663	83529	33	154
1181	73226	33	311
1836	178519	65	617
1023	68104	41	322
1272	102982	47	393
993	50001	69	369
1685	91093	61	558
766	80112	27	226
868	72961	41	315
999	77159	35	243
395	27805	22	113
1603	71693	55	494
525	19920	17	155
629	39403	38	234
1313	107061	54	372
767	56088	28	280
1156	62006	32	331
1120	81665	51	378
635	69451	15	230
1203	88794	98	396
745	90642	53	179
1570	207069	63	524
1235	99340	26	504
758	56695	29	225
1088	108143	24	366
1170	64204	61	372
593	29101	41	171
1305	113060	29	437
0	0	0	0
706	65773	34	313
1188	67047	34	366
1111	41953	22	232
1118	113787	37	402
1087	86584	35	349
748	59588	26	316
404	40064	12	140
1133	76344	48	446
674	60437	30	226
552	55118	40	173
354	40295	13	103
1012	103397	55	356
891	78982	40	293
1198	67317	29	460
518	39887	21	156
785	59682	37	204
1128	132740	45	455
929	104816	45	321
1009	101395	34	367
951	72824	30	309
779	76018	27	235
439	33891	12	137
580	63694	39	198
669	33239	25	248
500	35093	22	149
824	35252	35	306
541	36977	20	178
476	42406	19	145
434	56353	13	144
819	58817	24	270
1255	81204	45	316
1720	70872	49	501
549	42372	20	153
157	19144	12	40
1594	114177	73	500
668	59414	28	209
657	51379	34	242
920	40756	39	265
885	53398	23	311
497	17799	20	141
864	71154	30	234
995	58305	39	336
443	27454	16	124
615	34323	34	241
525	44761	33	127
900	113862	28	327
557	35027	17	175
896	62396	22	331
516	29613	26	176
895	65559	29	281
1413	121205	120	305
585	36149	31	159
478	40215	26	157
639	53398	22	194
795	56435	23	300
1365	86791	47	403
559	71738	30	187
584	48503	31	212
440	25214	23	185
1319	119424	65	449
766	79201	28	234
222	19349	11	67
965	78760	54	316
881	62707	37	363
317	21623	16	116
425	25497	11	141
711	69535	38	236
364	30709	22	98
427	37043	23	97
465	24716	15	152
628	60734	19	153
369	27246	19	97
0	0	0	0
597	38814	14	165
479	27646	32	153
715	67385	19	227
639	43021	34	182
478	43116	41	172
38	3058	4	1
0	0	0	0
593	96347	25	196
762	56197	37	284
1075	73321	51	307
495	45266	22	183
778	43410	19	292
876	83842	35	257
491	39296	22	141
713	38490	25	192
485	39841	19	129
285	19764	12	75
984	68578	24	315
554	64589	16	204
753	63339	14	257
256	11796	9	79
80	7627	8	25
618	68998	30	217
41	6836	3	11
550	35414	17	228
42	5118	3	6
347	20898	13	115
0	0	0	0
442	42690	19	167
281	14507	11	75
81	7131	4	27
61	4194	11	14
314	21416	10	96
419	39000	17	117
554	42419	10	228

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'AstonUniversity' @ aston.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 & 1 seconds \tabularnewline
R Server & 'AstonUniversity' @ aston.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=147116&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]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'AstonUniversity' @ aston.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=147116&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=147116&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'AstonUniversity' @ aston.wessa.net

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code