getTendencyModel: Get dataframe of tendencies.

In danielfhenrique789/profitmaximization: What the package does (short line)

Get dataframe of tendencies.

Usage

getTendencyModel(en, CAs)

Arguments

en
CAs

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 (en, CAs) 
{
    tickets <- as.character(read.csv("objTickets.csv")[[1]])
    newObj <- new.env()
    for (ticket in tickets) {
        lengthDs <- nrow(en[[ticket]])
        newObj[[ticket]] <- en[[ticket]]
        newObj[[ticket]]$CA <- -1
        if (!is.null(lengthDs)) 
            if ((lengthDs - 12) > 0) 
                newObj[[ticket]][7:(lengthDs - 6), ]$CA <- CAs[[ticket]]$CA[1:(lengthDs - 
                  12)]
        newObj[[ticket]]$Tendency <- ifelse((newObj[[ticket]]$MA.Fast > 
            newObj[[ticket]]$MA.Slow) & (newObj[[ticket]]$CA > 
            0), "up", "down")
    }
    return(newObj)
  }

danielfhenrique789/profitmaximization documentation built on April 5, 2025, 4:05 p.m.