Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-0.00204571084483972 -0.00283067359213242 -0.0084361337759861 -0.00100157883563286 0.00552789133430058 -0.0097773325684587 0.0037008623592977 -0.00642030822837614 0.00719701196840899 0.00262305115364016 -0.00127110740029994 -0.00361637523257659 0.00129717707614950 0.00261719199218297 0.000582724800817553 -0.00167915132702680 -0.00335413275139399 0.00232667127403374 0.00582091392099778 -0.00334066347103107 -0.0041330370803219 0.00774881947593112 -0.00634148135279762 -0.00566099578208234 -0.00405877963621982 0.0085509759075047 -0.00707214396105319 0.010425131510173 -0.00668403745498932 0.00379050813068932 -0.00324993426129308 0.000226742391370897 0.00230434388712998 -0.00281886460445299 0.00337313318632658 0.00840337336449575 -0.00209978150552735 -0.00297878965583557 -8.0538712325838e-05 0.000634354255519234 -0.0085324150918054 0.000335832194829364 -0.00550713035158494 0.00383522501954013 0.00618077616849003 -0.00197969322858899 -0.00498017524803796 0.00113774236948005 -0.0065547872961444 0.000839304818125273 0.00617892965391168 -0.00704587043257149 -0.000296652134801466 -0.003023626102382 0.00101358450056993 0.000322640390587606 0.00241240601474065 0.00813643317548373 0.0163594234620832 0.0143859819509878 0.00578633446837098 -0.00254190249003666 4.37055206252088e-05 0.00349291035208654 -0.000839579699490873 -0.00561011517767522
Sample Range:
(leave blank to include all observations)
From:
To:
bandwidth of density plot
(?)
# lags (autocorrelation function)
(?)
12
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) 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')
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