Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
167.72 192.92 212.81 252.28 286.61 302.78 298.51 291.40 285.65 280.06 268.99 264.28 259.43 256.08 253.90 242.28 237.24 228.98 223.90 209.33 201.66 198.37 198.35 197.61 194.02 191.54 193.93 191.13 187.94 188.75 208.90 233.51 240.53 243.93 246.96 248.20 236.15 242.74 236.37 228.26 231.40 230.30 237.94 235.72 225.62 220.83 208.16 195.57 192.71 178.10 173.42 171.84 170.02 172.08 169.63 169.04 169.12 165.73 160.10 169.89 169.25 181.62 179.36 179.72 181.27 180.59 178.59 181.00 180.53 172.27 173.03 175.13 178.08 180.94 182.60 176.81 176.76 177.35 177.41 180.41 175.61 176.09 178.86 178.12 182.85 189.78 188.52 189.55 191.19 195.34 199.33 197.14 197.90 200.22 199.88 200.11 201.55 205.29 204.26 206.65 208.64 207.46 209.78 206.26 203.24 206.21 201.83 194.05 208.76 283.04 288.76 280.55 275.65 273.49 267.79 255.84 238.04 237.52 240.07 241.26 239.75 233.27 229.20 221.25 212.90 212.89 211.20 202.66 207.60 212.51 198.86 196.75 206.73 205.11 200.31 207.19 206.05 206.21 213.89 211.03 213.41 213.54 212.91 217.64 221.47 233.30 232.89 234.03 240.52 240.10 246.43 242.53 236.78 231.15 217.14 222.17 221.92 228.52 219.14 216.34 223.33 228.84 238.03 236.83 230.34 231.66 224.57 225.66 227.34 231.09 222.15 221.49 218.15 218.01 213.02 206.09 204.39 204.02 201.33 197.80 202.10 207.86 204.02 202.78 208.23 205.39 211.89 211.34 204.30 200.36 190.80 188.66 187.96 198.44 199.91 198.80 202.17 204.77 206.77 195.66 195.51 188.26 190.34 195.83 201.30 194.35 173.30 174.57 177.31 182.65 258.23 352.53 336.13 332.72 336.19 330.27 333.84 318.34 307.82 306.20 301.47 304.05 302.81 308.87 304.84 294.99 289.77 283.66 272.47 271.17 267.62 268.26 259.21 259.77 251.27 236.48 228.85 227.42 221.28 231.44 235.55 218.16 193.87 242.02 239.01 270.85 330.09 340.88 340.52 323.75 319.82 298.25 284.87 272.65 293.71 284.63 288.02 280.39 277.90 272.43 272.45 262.39 254.86 250.18 250.30 252.51 256.14 256.62 261.15 253.69 259.56 262.91 263.61 272.54 249.20 237.97 266.52 285.31 279.82 279.09 274.94 270.33 272.15 275.94 266.28 262.94 254.23 252.65 257.10 262.74 261.33 250.43 243.42 259.98 254.47 248.75 245.75 250.61 244.92 238.35 238.52 240.99 227.12 235.75 245.19 240.48 251.29 248.33 242.10 237.20 234.84 237.57 249.45 243.33 247.45 252.35 243.74 246.57 243.89 244.52 243.85 235.66 230.23 238.34 233.66 229.78 234.98 234.61 225.33 211.81 233.04 232.06 224.86 222.61 208.20 198.37 224.90 200.32 193.27 223.82 235.60 251.15 252.76 267.62 268.88 259.11 239.95 234.08 218.47 222.08 240.83 238.76 247.93 235.82 234.18 232.25 233.66 231.58 221.40 209.12
Sample Range:
(leave blank to include all observations)
From:
To:
# blockwidth
Chart options
R Code
par1 <- as.numeric(par1) (n <- length(x)) (np <- floor(n / par1)) arr <- array(NA,dim=c(par1,np+1)) darr <- array(NA,dim=c(par1,np+1)) ari <- array(0,dim=par1) dx <- diff(x) j <- 0 for (i in 1:n) { j = j + 1 ari[j] = ari[j] + 1 arr[j,ari[j]] <- x[i] darr[j,ari[j]] <- dx[i] if (j == par1) j = 0 } ari arr darr arr.mean <- array(NA,dim=par1) arr.median <- array(NA,dim=par1) arr.midrange <- array(NA,dim=par1) for (j in 1:par1) { arr.mean[j] <- mean(arr[j,],na.rm=TRUE) arr.median[j] <- median(arr[j,],na.rm=TRUE) arr.midrange[j] <- (quantile(arr[j,],0.75,na.rm=TRUE) + quantile(arr[j,],0.25,na.rm=TRUE)) / 2 } overall.mean <- mean(x) overall.median <- median(x) overall.midrange <- (quantile(x,0.75) + quantile(x,0.25)) / 2 bitmap(file='plot1.png') plot(arr.mean,type='b',ylab='mean',main='Mean Plot',xlab='Periodic Index') mtext(paste('#blocks = ',np)) abline(overall.mean,0) dev.off() bitmap(file='plot2.png') plot(arr.median,type='b',ylab='median',main='Median Plot',xlab='Periodic Index') mtext(paste('#blocks = ',np)) abline(overall.median,0) dev.off() bitmap(file='plot3.png') plot(arr.midrange,type='b',ylab='midrange',main='Midrange Plot',xlab='Periodic Index') mtext(paste('#blocks = ',np)) abline(overall.midrange,0) dev.off() bitmap(file='plot4.png') z <- data.frame(t(arr)) names(z) <- c(1:par1) (boxplot(z,notch=TRUE,col='grey',xlab='Periodic Index',ylab='Value',main='Notched Box Plots - Periodic Subseries')) dev.off() bitmap(file='plot4b.png') z <- data.frame(t(darr)) names(z) <- c(1:par1) (boxplot(z,notch=TRUE,col='grey',xlab='Periodic Index',ylab='Value',main='Notched Box Plots - Differenced Periodic Subseries')) dev.off() bitmap(file='plot5.png') z <- data.frame(arr) names(z) <- c(1:np) (boxplot(z,notch=TRUE,col='grey',xlab='Block Index',ylab='Value',main='Notched Box Plots - Sequential Blocks')) dev.off() bitmap(file='plot6.png') z <- data.frame(cbind(arr.mean,arr.median,arr.midrange)) names(z) <- list('mean','median','midrange') (boxplot(z,notch=TRUE,col='grey',ylab='Overall Central Tendency',main='Notched Box Plots')) dev.off()
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