p2-global-funcs.R

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Global functions
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

getStockXts <- function (tparm,tsers) {
  # pass input string stock param, and xts series return the time series
  if (tparm=="Adjusted") {
    bbb <- cbind(tsers$Adjusted) }
  else
    bbb <- cbind(tsers$Volume)
  return (bbb)
}

getWeatherXts <- function (tparm,tsers) {
  # pass input string weather param, and xts series return the time series
  if (tparm=="MaxTemp") {
    bbb <- cbind(tsers$MaxTemp) }
  else if (tparm=="MaxHum") {
    bbb <- cbind(tsers$MaxHum) }
  else if (tparm=="MaxWind") {
    bbb <- cbind(tsers$MaxWind) }
  else if (tparm=="MaxVis") {
    bbb <- cbind(tsers$MaxVis) }
  else if (tparm=="Cloud") {
    bbb <- cbind(tsers$Cloud) }
  else
    bbb <- cbind(tsers$Rain)
  return (bbb)
}

getCorrScore <- function (x) {
  y <- ""
  x <- round(x,digits=3)
  if (x>=0.70) {
    y <- "Very Strong Positive" }
  else if (x<0.70 & x>=0.40) {
    y <- "Strong Positive" }
  else if (x<0.40 & x>=0.30) {
    y <- "Moderate Positive" }
  else if (x<0.30 & x>=0.20) {
    y <- "Weak Positive"}
  else if (x<0.20 & x>=0.01) {
    y <- "Negligible" }
  else if (x<0.01 & x>=(-0.01)) {
    y <- "None" }
  else if (x<(-0.01) & x>=(-0.19)) {
    y <- "Negligible" }
  else if (x<(-0.19) & x>=(-0.29)) {
    y <- "Weak Negative" }
  else if (x<(-0.29) & x>=(-0.39)) {
    y <- "Moderate Negative" }
  else if (x<(-0.39) & x>=(-0.69)) {
    y <- "Strong Negative" }
  else if (x<(-0.69)) {
    y <- "Very Strong Negative" }
  return (paste0(x*100,"% = ",y))
}