Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
557.1102662 445.4847909 486.5340909 437.8314394 444.5009416 426.9238006 387.4718045 316.1365762 291.9309701 397.250699 313.3737185 200.5400372 524.6025105 492.7412626 494.0112577 483.557852 384.1178651 354.2627048 326.4841872 243.8965836 293.7868189 349.990797 252.5128393 168.6416583 463.688893 400.7759722 442.5694761 399.6995356 342.2891017 367.4831543 322.7739882 263.5942608 313.0730822 386.5517241 275.5341395 240.1579808 430.9061195 452.1613573 553.8884383 484.0616272 359.7648774 399.7359075 286.1388838 271.3378109 307.0683241 354.829932 305.3823849 227.0744729 464.9493854 410.9418657 472.3691311 436.7658962 373.7577223 443.912265 292.8284003 298.6400644 319.028014 330.6311936 318.979081 187.1831489
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
if (par1 == '0') bw <- 'nrd0' if (par1 != '0') bw <- as.numeric(par1) bitmap(file='density1.png') mydensity1<-density(x,bw=bw,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,bw=bw,kernel='epanechnikov',na.rm=TRUE) plot(mydensity2,main='Epanechnikov Kernel',xlab=xlab,ylab=ylab) grid() dev.off() bitmap(file='density3.png') mydensity3<-density(x,bw=bw,kernel='rectangular',na.rm=TRUE) plot(mydensity3,main='Rectangular Kernel',xlab=xlab,ylab=ylab) grid() dev.off() bitmap(file='density4.png') mydensity4<-density(x,bw=bw,kernel='triangular',na.rm=TRUE) plot(mydensity4,main='Triangular Kernel',xlab=xlab,ylab=ylab) grid() dev.off() bitmap(file='density5.png') mydensity5<-density(x,bw=bw,kernel='biweight',na.rm=TRUE) plot(mydensity5,main='Biweight Kernel',xlab=xlab,ylab=ylab) grid() dev.off() bitmap(file='density6.png') mydensity6<-density(x,bw=bw,kernel='cosine',na.rm=TRUE) plot(mydensity6,main='Cosine Kernel',xlab=xlab,ylab=ylab) grid() dev.off() bitmap(file='density7.png') mydensity7<-density(x,bw=bw,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