Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-0.350799688370536 -0.140769858461987 -0.176994002962568 0.562290817956577 0.144201690134944 -0.111030533067628 -0.243045038133344 -0.151508019282699 -0.396513842133135 0.0329753101728757 -0.0833088349918484 0.156956311022783 0.523621600794454 -0.216145977751341 -0.208014642793551 -0.341520041804527 -0.114593780635957 -0.558823753124076 0.155427432046773 0.138052779163656 -0.4090756185683 0.110316654295769 -0.250998024914370 0.329481615878391 0.346878506478169 0.323299830417798 -0.0310312875854553 -0.84926656008146 -0.77680329705359 0.250909338924582 0.0831309127438593 0.435693250316565 -0.130263895758751 -0.232129238451711 0.165342569504054 0.142248180166828 -0.280455237088636 0.155402490351535 -0.142784384867873 0.28524670566859 0.157418555269204 -0.172706911536110 -0.0149928813013760 0.306296873369522 -0.345207720981392 0.722409122191829 -0.158636568880998 -0.431031704131918 -0.308095207623409 0.447320732827413 0.447799821943335 0.0214235496574372 0.152471875346584 0.163942423990300 -0.00498382593447193 0.308356992481182 -0.230794586105762 -0.0542129596699259 -0.137751473869932 0.137775171895457 -0.208611181469940 0.530877388565287 -0.307691326359942 0.287643632777539 0.239698181689028 -0.0324235808931527 -0.110760321621385 0.187857496084540 -0.629717422499043 -0.464897710438974 0.381446921054368 0.388355710424064 -0.59380461268784 0.456215309938507 -0.35419239371042 0.278101258603134 -0.32386448817015 -0.115433965509661 -0.0483653154188056 -0.0424966476262035 -0.179962353470623 0.634520247547924 1.07894182435992 0.395987866990447 -0.219758520860607 0.361998505460662 0.660014172078838 -0.331005583090054 0.695781527796754 0.646124350414131 -0.0835481139905882 -0.763493350940545 0.0627068862169823 -0.0788278540379063 -1.01076620067800 -0.208872220642831 -0.515267639977992 0.319253920126987 -0.739240050461461 -0.0632470686715278 -0.182648154761123 -0.242076757818195 -0.704413262583499 0.851791451893186 -0.183365626294880
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