writing_double: writing_double

In ruleR: Generating numeric sequence items for intelligence tests

Description

An internal function called by extract_double_comment.

Usage

writing_double(x)

Arguments

x

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 (x) 
{
    if (inherits(x@firstRule, "IdenSingleRule")) {
        a1 = NULL
    }
    else {
        b <<- list()
        a1 = writing_single(x@firstRule)
    }
    if (inherits(x@secondRule, "IdenSingleRule")) {
        a2 = NULL
    }
    else {
        b <<- list()
        a2 = writing_single(x@secondRule)
    }
    if (inherits(x, "AddDoubleRule")) {
        a3 = "Take the sum of two previous elements of numeric sequence"
    }
    if (inherits(x, "MultDoubleRule")) {
        a3 = "Multiply two previous elements of numeric sequence"
    }
    if (inherits(x@nextSingle, "IdenSingleRule")) {
        a4 = NULL
    }
    else {
        b <<- list()
        a4 = writing_single(x@nextSingle)
    }
    return(list(a1, a2, a3, a4))
  }

ruleR documentation built on May 2, 2019, 5:49 p.m.