Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
255.00 280.20 299.90 339.20 374.20 393.50 389.20 381.70 375.20 369.00 357.40 352.10 346.50 342.90 340.30 328.30 322.90 314.30 308.90 294.00 285.60 281.20 280.30 278.80 274.50 270.40 263.40 259.90 258.00 262.70 284.70 311.30 322.10 327.00 331.30 333.30 321.40 327.00 320.00 314.70 316.70 314.40 321.30 318.20 307.20 301.30 287.50 277.70 274.40 258.80 253.30 251.00 248.40 249.50 246.10 244.50 243.60 244.00 240.80 249.80 248.00 259.40 260.50 260.80 261.30 259.50 256.60 257.90 256.50 254.20 253.30 253.80 255.50 257.10 257.30 253.20 252.80 252.00 250.70 252.20 250.00 251.00 253.40 251.20 255.60 261.10 258.90 259.90 261.20 264.70 267.10 266.40 267.70 268.60 267.50 268.50 268.50 270.50 270.90 270.10 269.30 269.80 270.10 264.90 263.70 264.80 263.70 255.90 276.20 360.10 380.50 373.70 369.80 366.60 359.30 345.80 326.20 324.50 328.10 327.50 324.40 316.50 310.90 301.50 291.70 290.40 287.40 277.70 281.60 288.00 276.00 272.90 283.00 283.30 276.80 284.50 282.70 281.20 287.40 283.10 284.00 285.50 289.20 292.50 296.40 305.20 303.90 311.50 316.30 316.70 322.50 317.10 309.80 303.80 290.30 293.70 291.70 296.50 289.10 288.50 293.80 297.70 305.40 302.70 302.50 303.00 294.50 294.10 294.50 297.10 289.40 292.40 287.90 286.60 280.50 272.40 269.20 270.60 267.30 262.50 266.80 268.80 263.10 261.20 266.00 262.50 265.20 261.30 253.70 249.20 239.10 236.40 235.20 245.20 246.20 247.70 251.40 253.30 254.80 250.00 249.30 241.50 243.30 248.00 253.00 252.90 251.50 251.60 253.50 259.80 334.10 448.00 445.80 445.00 448.20 438.20 439.80 423.40 410.80 408.40 406.70 405.90 402.70 405.10 399.60 386.50 381.40 375.20 357.70 359.00 355.00 352.70 344.40 343.80 338.00 339.00 333.30 334.40 328.30 330.70 330.00 331.60 351.20 389.40 410.90 442.80 462.80 466.90 461.70 439.20 430.30 416.10 402.50 397.30 403.30 395.90 387.80 378.60 377.10 370.40 362.00 350.30 348.20 344.60 343.50 342.80 347.60 346.60 349.50 342.10 342.00 342.80 339.30 348.20 333.70 334.70 354.00 367.70 363.30 358.40 353.10 343.10 344.60 344.40 333.90 331.70 324.30 321.20 322.40 321.70 320.50 312.80 309.70 315.60 309.70 304.60 302.50 301.50 298.80 291.30 293.60 294.60 285.90 297.60 301.10 293.80 297.70 292.90 292.10 287.20 288.20 283.80 299.90 292.40 293.30 300.80 293.70 293.10 294.40 292.10 291.90 282.50 277.90 287.50 289.20 285.60 293.20 290.80 283.10 275.00 287.80 287.80 287.40 284.00 277.80 277.60 304.90 294.00 300.90 324.00 332.90 341.60 333.40 348.20 344.70 344.70 329.30 323.50 323.20 317.40 330.10 329.20 334.90 315.80 315.40 319.60 317.30 313.80 315.80 311.30
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