sfsmisc: Utilities from 'Seminar fuer Statistik' ETH Zurich

tkdensity

R Documentation

GUI Density Estimation using Tcl/Tk

Description

This is graphical user interface (GUI) to density, allowing for dynamic bandwidth choice and a simple kind of zooming, relying on library(tcltk).

Usage

tkdensity(y, n = 1024, log.bw = TRUE, showvalue = TRUE,
          xlim = NULL, do.rug = size < 1000, kernels = NULL,
          from.f = if (log.bw) -2 else 1/1000,
          to.f   = if (log.bw) +2.2 else 2,
          col = 2)

Arguments

`y`	numeric; the data the density of which we want.
`n`	integer; the number of abscissa values for `density` evaluation (and plotting).
`log.bw`	logical; if true (default), the gui scrollbar is on a log bandwidth scale, otherwise, simple interval.
`showvalue`	logical; if true, the value of the current (log) bandwidth is shown on top of the scrollbar.
`xlim`	initial `xlim` for plotting, see `plot.default`.
`do.rug`	logical indicating if `rug(y)` should be added to each plot. This is too slow for really large sample sizes.
`kernels`	character vector of kernel names as allowable for the `kernels` argument of the standard `density` function.
`from.f, to.f`	numeric giving the left and right limit of the bandwidth scrollbar.
`col`	color to be used for the density curve.

Details

library(tcltk) must be working, i.e., Tcl/Tk must have been installed on your platform, and must have been visible during R's configuration and/or installation.

You can not only choose the bandwidth (the most important parameter), but also the kernel, and you can zoom in and out (in x-range only).

Value

none.
(How could this be done? tcltk widgets run as separate processes!)

Author(s)

Martin Maechler, building on demo(tkdensity).

Examples

if (dev.interactive(TRUE)) ## does really not make sense otherwise
 if(try(require("tcltk"))) { ## sometimes (rarely) there, but broken

  data(faithful)
  tkdensity(faithful $ eruptions)

  set.seed(7)
  if(require("nor1mix"))
     tkdensity(rnorMix(1000, MW.nm9), kernels = c("gaussian", "epanechnikov"))
 }

mmaechler/sfsmisc documentation built on Feb. 28, 2024, 4:18 a.m.