Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
516.922 514.258 509.846 527.070 541.657 564.591 555.362 498.662 511.038 525.919 531.673 548.854 560.576 557.274 565.742 587.625 619.916 625.809 619.567 572.942 572.775 574.205 579.799 590.072 593.408 597.141 595.404 612.117 628.232 628.884 620.735 569.028 567.456 573.100 584.428 589.379 590.865 595.454 594.167 611.324 612.613 610.763 593.530 542.722 536.662 543.599 555.332 560.854 562.325 554.788 547.344 565.464 577.992 579.714 569.323 506.971 500.857 509.127 509.933 517.009 519.164 512.238 509.239 518.585 522.975 525.192 516.847 455.626 454.724 461.251 470.439 474.605 476.049 471.067 470.984 502.831 512.927 509.673 484.015 431.328 436.087 442.867 447.988 460.070 467.037 460.170 464.196 485.025 501.492 520.564 488.180 439.148 441.977 456.608 461.935 480.961 492.865
Sample Range:
(leave blank to include all observations)
From:
To:
Smoothing Bandwidth (leave zero for default)
Display values
(?)
no
yes
Number of density points
(?)
Chart options
Label y-axis:
Label x-axis:
R Code
bitmap(file='density1.png') mydensity1<-density(x,kernel='gaussian',na.rm=TRUE) plot(mydensity1,main='Gaussian Kernel',xlab=xlab,ylab=ylab) grid() dev.off() mydensity1 bitmap(file='density2.png') mydensity2<-density(x,kernel='epanechnikov',na.rm=TRUE) plot(mydensity2,main='Epanechnikov Kernel',xlab=xlab,ylab=ylab) grid() dev.off() bitmap(file='density3.png') mydensity3<-density(x,kernel='rectangular',na.rm=TRUE) plot(mydensity3,main='Rectangular Kernel',xlab=xlab,ylab=ylab) grid() dev.off() bitmap(file='density4.png') mydensity4<-density(x,kernel='triangular',na.rm=TRUE) plot(mydensity4,main='Triangular Kernel',xlab=xlab,ylab=ylab) grid() dev.off() bitmap(file='density5.png') mydensity5<-density(x,kernel='biweight',na.rm=TRUE) plot(mydensity5,main='Biweight Kernel',xlab=xlab,ylab=ylab) grid() dev.off() bitmap(file='density6.png') mydensity6<-density(x,kernel='cosine',na.rm=TRUE) plot(mydensity6,main='Cosine Kernel',xlab=xlab,ylab=ylab) grid() dev.off() bitmap(file='density7.png') mydensity7<-density(x,kernel='optcosine',na.rm=TRUE) plot(mydensity7,main='Optcosine Kernel',xlab=xlab,ylab=ylab) grid() dev.off() load(file='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='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