Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.0640061800725882 0.055543390675083 0.032601938563982 0.0408184280409284 0.0462166153670518 -0.0137516738094333 -0.00063153303605741 -0.00233761316721433 0.0483117836462727 0.0729374241986308 0.0573703673438476 0.0732313798761501 0.0182045786194426 0.0203594752119119 0.0227844996034191 -0.0378014755630382 -0.0646039043977659 -0.0373526591017259 -0.0233447045393399 -0.0482940754041509 0.00826205351002031 -0.0234440266211367 -0.0252275371441901 -0.0430726405517209 -0.125589104079991 -0.112546393698512 -0.099426252925136 0.000565864129830549 0.0438787023103477 0.0542958079481452 0.0126671582088848 0.0115787640677000 0.0285598815647022 0.0626452665189847 0.0379660234532115 0.00888554806573639 0.0313105724572436 0.00713374836619783 0.0321843775013869 -0.00380766793622727 -0.0143558064793364 -0.0633588514749149 -0.0538295596261275 -0.0658057675563223 -0.0597898942402267 -0.0415734047632801 -0.0616191243316618 -0.0630550766637809 -0.0515952964531803 -0.0327611209862616 0.00676817086252592 -0.0325050019320905 -0.0721257329176413 -0.0613610690889093 -0.0588586143055058 0.00260116590509487 0.0317828995629480 -0.0113512499552947 -0.00444756285018907 0.00956039171219682 -0.0324932466098945 -0.0454346987209958 -0.0467157902693218 0.0301878968357837 0.0413001188554499 0.0635324458398158 0.0644519704523407 0.0643288204920626 0.0764837170845318 0.150066683064087 0.0873953587520234 0.0134886624600154
Sample Range:
(leave blank to include all observations)
From:
To:
bandwidth of density plot
(?)
# lags (autocorrelation function)
(?)
36
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation