Eye: Eye

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

Usage

Eye()

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 () 
{
    if (!(getwd() == "C:/Users/zsz/Desktop/STAT-541 Multi Var/Midterm Project/grammatical_facial_expression/grammatical_facial_expression")) {
        cat("Please give me the directory", "\n")
        dir <- choose.dir()
        setwd(dir)
    }
    cat("Preparing visual cortex ...", "\n")
    library(data.table)
    library(bit64)
    Sys.sleep(2)
    cat("Initialize visual classifier", "\n")
    library(caret)
    library(MASS)
    Sys.sleep(1)
    cat("What do you hope me to see:", "\n")
    choice <- readline(prompt = paste("1. Read Facial Expression", 
        "\n", "2. Recognize GFE", "\n", "3. Discriminate the expression", 
        "\n", "4. Recognize Different People", "\n", "5. Do something else"))
    return(as.numeric(choice))
  }

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