R version 3.0.2 (2013-09-25) -- "Frisbee Sailing" Copyright (C) 2013 The R Foundation for Statistical Computing Platform: x86_64-pc-linux-gnu (64-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > x <- c(5119676,4737614,5425255,5195396,5779583,6298652,6175944,6217653,6086619,5060250,3950207,3096398,3287215,2970037,3436547,3339099,3661160,3675026,3917675,3942501,3848079,3993974,3977059,4406890,4827736,4507189,5249062,5009908,5195771,5079423,5531062,5109363,4773753,5347125,5379543,6114549,6346091,5900935,7265533,6115096,7062343,7027841,6644644,7359822,7192534,7065705,7788175,6934803,7492202,8478866,8748316,8382956,8414863,7501787,8031203,9198243,8500998,9260617,9494903,8791918,8568871,8570003,8066695,7800532,8136832,7713840,7986953,7479868,7917564,8055845,7490221,7648110) > par3 = '512' > par2 = 'no' > par1 = '0' > ylab = 'Density' > xlab = 'Value' > par3 <- '512' > par2 <- 'no' > par1 <- '0' > #'GNU S' R Code compiled by R2WASP v. 1.2.291 () > #Author: root > #To cite this work: Wessa, P. (2012), Kernel Density Estimation (v1.0.11) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_density.wasp/ > #Source of accompanying publication: http://www.xycoon.com/density_trace.htm > # > if (par1 == '0') bw <- 'nrd0' > if (par1 != '0') bw <- as.numeric(par1) > par3 <- as.numeric(par3) > mydensity <- array(NA, dim=c(par3,8)) > postscript(file="/var/wessaorg/rcomp/tmp/1a5fc1423083425.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity1<-density(x,bw=bw,kernel='gaussian',na.rm=TRUE) > mydensity[,8] = signif(mydensity1$x,3) > mydensity[,1] = signif(mydensity1$y,3) > plot(mydensity1,main='Gaussian Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > mydensity1 Call: density.default(x = x, bw = bw, kernel = "gaussian", na.rm = TRUE) Data: x (72 obs.); Bandwidth 'bw' = 6.862e+05 x y Min. : 911350 Min. :1.512e-10 1st Qu.: 3571910 1st Qu.:1.653e-08 Median : 6232470 Median :1.113e-07 Mean : 6232470 Mean :9.387e-08 3rd Qu.: 8893030 3rd Qu.:1.574e-07 Max. :11553590 Max. :1.858e-07 > postscript(file="/var/wessaorg/rcomp/tmp/2akr31423083425.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity2<-density(x,bw=bw,kernel='epanechnikov',na.rm=TRUE) > mydensity[,2] = signif(mydensity2$y,3) > plot(mydensity2,main='Epanechnikov Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/39am91423083425.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity3<-density(x,bw=bw,kernel='rectangular',na.rm=TRUE) > mydensity[,3] = signif(mydensity3$y,3) > plot(mydensity3,main='Rectangular Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/4nr4r1423083425.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity4<-density(x,bw=bw,kernel='triangular',na.rm=TRUE) > mydensity[,4] = signif(mydensity4$y,3) > plot(mydensity4,main='Triangular Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/5ws811423083425.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity5<-density(x,bw=bw,kernel='biweight',na.rm=TRUE) > mydensity[,5] = signif(mydensity5$y,3) > plot(mydensity5,main='Biweight Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/6qz7x1423083425.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity6<-density(x,bw=bw,kernel='cosine',na.rm=TRUE) > mydensity[,6] = signif(mydensity6$y,3) > plot(mydensity6,main='Cosine Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/7jco71423083425.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity7<-density(x,bw=bw,kernel='optcosine',na.rm=TRUE) > mydensity[,7] = signif(mydensity7$y,3) > plot(mydensity7,main='Optcosine Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > > #Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/wessaorg/rcomp/createtable") > > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Properties of Density Trace',2,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Bandwidth',header=TRUE) > a<-table.element(a,mydensity1$bw) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'#Observations',header=TRUE) > a<-table.element(a,mydensity1$n) > a<-table.row.end(a) > a<-table.end(a) > table.save(a,file="/var/wessaorg/rcomp/tmp/8ivr81423083425.tab") > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Maximum Density Values',3,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Kernel',1,TRUE) > a<-table.element(a,'x-value',1,TRUE) > a<-table.element(a,'max. density',1,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Gaussian',1,TRUE) > a<-table.element(a,mydensity1$x[mydensity1$y==max(mydensity1$y)],1) > a<-table.element(a,mydensity1$y[mydensity1$y==max(mydensity1$y)],1) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Epanechnikov',1,TRUE) > a<-table.element(a,mydensity2$x[mydensity2$y==max(mydensity2$y)],1) > a<-table.element(a,mydensity2$y[mydensity2$y==max(mydensity2$y)],1) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Rectangular',1,TRUE) > a<-table.element(a,mydensity3$x[mydensity3$y==max(mydensity3$y)],1) > a<-table.element(a,mydensity3$y[mydensity3$y==max(mydensity3$y)],1) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Triangular',1,TRUE) > a<-table.element(a,mydensity4$x[mydensity4$y==max(mydensity4$y)],1) > a<-table.element(a,mydensity4$y[mydensity4$y==max(mydensity4$y)],1) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Biweight',1,TRUE) > a<-table.element(a,mydensity5$x[mydensity5$y==max(mydensity5$y)],1) > a<-table.element(a,mydensity5$y[mydensity5$y==max(mydensity5$y)],1) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Cosine',1,TRUE) > a<-table.element(a,mydensity6$x[mydensity6$y==max(mydensity6$y)],1) > a<-table.element(a,mydensity6$y[mydensity6$y==max(mydensity6$y)],1) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Optcosine',1,TRUE) > a<-table.element(a,mydensity7$x[mydensity7$y==max(mydensity7$y)],1) > a<-table.element(a,mydensity7$y[mydensity7$y==max(mydensity7$y)],1) > a<-table.row.end(a) > a<-table.end(a) > table.save(a,file="/var/wessaorg/rcomp/tmp/92gn21423083425.tab") > if (par2=='yes') { + a<-table.start() + a<-table.row.start(a) + a<-table.element(a,'Kernel Density Values',8,TRUE) + a<-table.row.end(a) + a<-table.row.start(a) + a<-table.element(a,'x-value',1,TRUE) + a<-table.element(a,'Gaussian',1,TRUE) + a<-table.element(a,'Epanechnikov',1,TRUE) + a<-table.element(a,'Rectangular',1,TRUE) + a<-table.element(a,'Triangular',1,TRUE) + a<-table.element(a,'Biweight',1,TRUE) + a<-table.element(a,'Cosine',1,TRUE) + a<-table.element(a,'Optcosine',1,TRUE) + a<-table.row.end(a) + for(i in 1:par3) { + a<-table.row.start(a) + a<-table.element(a,mydensity[i,8],1,TRUE) + for(j in 1:7) { + a<-table.element(a,mydensity[i,j],1) + } + a<-table.row.end(a) + } + a<-table.end(a) + table.save(a,file="/var/wessaorg/rcomp/tmp/10z3tt1423083425.tab") + } > > try(system("convert tmp/1a5fc1423083425.ps tmp/1a5fc1423083425.png",intern=TRUE)) character(0) > try(system("convert tmp/2akr31423083425.ps tmp/2akr31423083425.png",intern=TRUE)) character(0) > try(system("convert tmp/39am91423083425.ps tmp/39am91423083425.png",intern=TRUE)) character(0) > try(system("convert tmp/4nr4r1423083425.ps tmp/4nr4r1423083425.png",intern=TRUE)) character(0) > try(system("convert tmp/5ws811423083425.ps tmp/5ws811423083425.png",intern=TRUE)) character(0) > try(system("convert tmp/6qz7x1423083425.ps tmp/6qz7x1423083425.png",intern=TRUE)) character(0) > try(system("convert tmp/7jco71423083425.ps tmp/7jco71423083425.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 2.752 0.452 3.231