reaction: reaction

In pingqingsheng/Robot0001: What the package does (short line)

Usage

reaction()

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function () 
{
    sketch <- readJPEG("images.jpg")
    dev.new()
    par(mar = rep(0, 4))
    plot(0:1, 0:1, type = "n", ann = FALSE, axes = FALSE)
    rasterImage(sketch, 0, 0, 1, 1)
    cond <- unlist(locator(n = 1))
    if ((cond[1] > 0.4851762 & cond[1] < 0.6851762) & cond[2] > 
        (0.515712 - 0.1) & cond[2] < (0.515712 + 0.1)) {
        cat("\n", "Stay Away from me", "\n")
    }
  }

pingqingsheng/Robot0001 documentation built on May 5, 2019, 5:53 p.m.