Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
6282154 4321023 4111912 223193 1491348 1629616 1398893 1926517 983660 1443586 1073089 984885 1405225 227132 929118 1071292 638830 856956 992426 444477 857217 711969 702380 358589 297978 585715 657954 209458 786690 439798 688779 574339 741409 597793 644190 377934 640273 697458 550608 207393 301607 345783 501749 379983 387475 377305 370837 430866 469107 194493 530670 518365 491303 527021 233773 405972 652925 446211 341340 387699
Sample Range:
(leave blank to include all observations)
From:
To:
bandwidth of density plot
(?)
# lags (autocorrelation function)
(?)
0
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation