Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
9.3 9.3 8.7 8.2 8.3 8.5 8.6 8.5 8.2 8.1 7.9 8.6 8.7 8.7 8.5 8.4 8.5 8.7 8.7 8.6 8.5 8.3 8 8.2 8.1 8.1 8 7.9 7.9 8 8 7.9 8 7.7 7.2 7.5 7.3 7 7 7 7.2 7.3 7.1 6.8 6.4 6.1 6.5 7.7 7.9 7.5 6.9 6.6 6.9 7.7 8 8 7.7 7.3 7.4 8.1 8.3
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# 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