Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
374 572 402 589 507 628 698 451 694 0 488 526 343 494 447 0 470 366 517 483 485 530 308 481 437 468 502 408 479 436 410 451 344 411 0 427 454 365 499 416 430 470 325 452 442 488 446 523 594 439 588 503 444 525 375 472 436 458 514 0 472 360 450 549 361 466 387 457 470 396 471 422 404 414 342 459 379 0 410 319 411 371 365 429 333 392 469 432 534 379 436 448 358 492 387 529 475 439 459 361 0 0 394 425 341 455 403 471 523 389 531 468 398 446 355 435 353 0 400 332 389 355 384 406 356 336 351 278 265 229 387 435 317 490 472 440 429 350 489 494 436 436 375 429 0 434 472 362 440 433 400 442 316 432 401 434 488 377 484 377 0 0 300 389 337 376 377 331 339 356 280 249 196 268 379 401 404 397 419 421 407 296 468 475 422 456 339 446 419 346 327 326 403 359 358 421 322 367 394 356 418 344 372 358 373 379 0 348 369 341 390 279 325 354 346 358 296 356 337 360 474 362 440 443 435 429 341 434 329 416 430 307 408 322 0 324 303 369 328 258 372 298 376 306 359 418 311 355 335 345 318 291 340 0 356 419 296 361 371 392 383 286 362 358
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation