updateVarCATicket: Update ticket's angular coefficients.

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

Update ticket's angular coefficients.

Usage

updateVarCATicket(pDf, dfName)

Arguments

pDf
dfName

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 (pDf, dfName) 
{
    objDf <- pDf[!is.na(pDf$Adjusted), ]
    fieldsName <- c("Date", "Ticket", "Predict", "CA", "b")
    if (file.exists(paste("./Analises/VarCA/", dfName, ".csv", 
        sep = ""))) {
        print(nrow(df) + 1)
        if (!is.null(objDf[nrow(df) + 1, ])) {
            to <- nrow(df) + 1
            from <- ifelse(to - 7 <= 0, 1, to - 7)
            objDfLm <- objDf[from:to, ]
            lmdf <- lm(objDfLm$Adjusted ~ index(objDfLm$Date))
            ca <- ifelse(is.na(summary(lmdf)$coefficients[2]), 
                0, summary(lmdf)$coefficients[2])
            b <- summary(lmdf)$coefficients[1]
            pred <- ca * (to + 1) + b
            dfnew <- data.frame(objDf[to, ]$Date, objDf[to, ]$Adjusted, 
                pred, ca, b)
            names(dfnew) <- fieldsName
            df <- rbind(df, dfnew)
            write.csv(df, file = paste("./Analises/VarCA/", dfName, 
                ".csv", sep = ""), row.names = FALSE)
            updateVarCATicket(pDf, dfName)
        }
    }
    else {
        df <- data.frame(objDf[1, ]$Date, objDf[1, ]$Adjusted, 
            0, 0, 0)
        names(df) <- fieldsName
        write.csv(df, file = paste("Analises/VarCA/", dfName, 
            ".csv", sep = ""), row.names = FALSE)
        updateVarCATicket(pDf, dfName)
    }
  }

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