Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.000249254412317267 0.000299603588409276 0.000322518965091164 -0.000329538636649367 -6.43325994869136e-05 0.000218734547908577 -0.000186123790106601 0.000320044464404368 0.000105079817925291 -3.21375723064676e-05 -9.31379372201002e-05 0.000863880329915967 -0.000955068293604838 0.000191654585176615 -0.000687217159304088 -0.00133295077536133 -8.40818637339591e-05 0.000480643586810492 -0.00133724173345948 -0.00078463864413933 -9.63012198662017e-05 -0.000267289029594886 -0.000415973064666258 -0.00145962546732839 0.00114159591731011 -0.00146064163655782 -0.00105351430012057 0.000585759739068242 -0.00113140931418457 -0.00138720915811827 0.000330704048772557 0.00089730707501226 -0.00282718491905784 0.00130177229774819 0.000106725469179531 0.00194958872561832 0.000635002216373137 -0.000802593879913022 0.000669740048378942 -0.00184856803744929 -0.00115402862422859 0.000720565693177494 0.00127635646932789 0.000280808847524822 -0.00124166740902709 0.00220850912079990 0.00014951799778537 0.000246824748826507 -0.000329567131906322 -0.000100055638308394 -0.000843374093922739 -0.00182816513524967 0.000762276721414934 0.000547214397100731 -0.000261835368196878 -0.000145977686326793 -0.000418138010040314 -0.000275994456749945 0.00096506287877901 -0.000122679144738069 -0.00077104475183501 -0.000772836964526374 -9.74711304966847e-05 0.00132936498148101 0.000993746723184863 -0.000451847013386047 -0.000138456169144319 -0.00109488862631829 -0.000236567991803771 0.000228265967558205 -0.000141243730919727 7.13248149721013e-05 0.000100146168015486 -0.000101542587067266 -0.00103071143157252 -0.000910687763439777 -0.00169775499641645 0.000648520060953617 -0.00081739205188841 -0.000440416182630077 -0.000143836644462325 -0.00086105174113707 0.00118491489582653 0.00092521493356959 0.000685499195885314 -0.00170870319900812 -0.000681671133016343 -0.00207056008076914 0.000710534206097013 -0.00163014844752510 -0.00123315260753790 -0.000307767159812872 -0.000896177657593727 0.000651475976366861 0.00196454841594412 0.000447156493560086
Sample Range:
(leave blank to include all observations)
From:
To:
bandwidth of density plot
(?)
# lags (autocorrelation function)
(?)
1
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Chart options
R Code
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) grid() dev.off() if (par2 > 0) { bitmap(file='lagplot.png') dum <- cbind(lag(x,k=1),x) dum dum1 <- dum[2:length(x),] dum1 z <- as.data.frame(dum1) z plot(z,main=paste('Lag plot, lowess, and regression line')) lines(lowess(z)) abline(lm(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')
Compute
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
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation