scriptOneLoop.R

#Library used ----
library(readxl)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(readr)
library(sqldf)

## Loading required package: gsubfn

## Loading required package: proto

## Loading required package: RSQLite

library(writexl)
library(stringr)
library(tidyr)
library(TTR)
library(ggplot2)
library(GGally)

## 
## Attaching package: 'GGally'

## The following object is masked from 'package:dplyr':
## 
##     nasa

##########################################################################################################################
##########################################################################################################################
##                                                                                                                      ##
##                                                   PRIMER SPREAD                                                      ##
##                                                                                                                      ##
##########################################################################################################################
##########################################################################################################################


# Leyendo la Data----
data2 <- read_excel("data.xlsx",
                   sheet = "SPREAD_1", 
                   col_types = c("date",
                                 "numeric",
                                 "numeric"))


# Sacando Logatimos naturales----
data2$BCOBGOTA_ln <- log(data2$BCOBGOTA)
data2$BCOCCIDENTE_ln <- log(data2$BCOCCIDENTE)

# Sacando diferencial y media movil de 30 días del diferencial----
data2$Yt <- ((data2$BCOCCIDENTE_ln - data2$BCOBGOTA_ln) * 100)
data2$SMA30_Yt <- SMA(data2$Yt, 30)

#Sacando Banda superior e inferior ----
data2$UpBand <- data2$SMA30_Yt + 2
data2$DoBand <- data2$SMA30_Yt - 2

# Creando variables para llenar estrategia de Trading ----
data2$Posicion <- data2$SMA30_Yt
data2$Acciones_Occ <- data2$SMA30_Yt
data2$MontoOcc <- data2$SMA30_Yt
data2$Acciones_BOG <- data2$SMA30_Yt
data2$MontoBOG <- data2$SMA30_Yt
data2$Costos <- data2$SMA30_Yt
data2$Utilidad <- data2$SMA30_Yt
data2$Utilidad <- 100000000

# Generando el Loop ----
i <- 31

while (i <= length(data2$SMA30_Yt)) {
  
  if(data2$Yt[i] < data2$DoBand[i]) {
    data2$Posicion[i] <- "SALIR"
  } else if (data2$Yt[i] > data2$UpBand[i]) {
    data2$Posicion[i] <- "ENTRAR"
  } else {
    data2$Posicion[i] <- "MANTENER"
  }
  
  if (data2$Posicion[i] == "ENTRAR") {
    data2$Acciones_BOG[i] <- data2$Utilidad[i-1]/data2$BCOBGOTA[i]
    data2$Acciones_Occ[i] <- 0
  } else if (data2$Posicion[i] == "SALIR") {
    data2$Acciones_Occ[i] <- data2$Utilidad[i-1]/data2$BCOCCIDENTE[i]
    data2$Acciones_BOG[i] <- 0
    
  } else {
    data2$Acciones_Occ[i] <- data2$Acciones_Occ[i-1]
    data2$Acciones_BOG[i] <- data2$Acciones_BOG[i-1]
  }
  
  data2$MontoOcc[i] <- data2$BCOCCIDENTE[i] * data2$Acciones_Occ[i]
  data2$MontoBOG[i] <- data2$BCOBGOTA[i] * data2$Acciones_BOG[i]
  
  if (data2$Acciones_Occ[i] == data2$Acciones_Occ[i-1] & data2$Acciones_BOG[i] == data2$Acciones_BOG[i-1]) {
    data2$Costos[i] <- 0.003
  } else {
    data2$Costos[i] <- 0
  }
  data2$Utilidad[i] <- (data2$MontoBOG[i] + data2$MontoOcc[i]) - ((data2$MontoBOG[i] + data2$MontoOcc[i]) * data2$Costos[i])
  i <- i + 1
  print(paste("Vamos en el ",round(((i/length(data2$SMA30_Yt))*100),2), "% del loop completo"))
}

## [1] "Vamos en el  2.8 % del loop completo"
## [1] "Vamos en el  2.89 % del loop completo"
## [1] "Vamos en el  2.98 % del loop completo"
## [1] "Vamos en el  3.06 % del loop completo"
## [1] "Vamos en el  3.15 % del loop completo"
## [1] "Vamos en el  3.24 % del loop completo"
## [1] "Vamos en el  3.33 % del loop completo"
## [1] "Vamos en el  3.42 % del loop completo"
## [1] "Vamos en el  3.5 % del loop completo"
## [1] "Vamos en el  3.59 % del loop completo"
## [1] "Vamos en el  3.68 % del loop completo"
## [1] "Vamos en el  3.77 % del loop completo"
## [1] "Vamos en el  3.85 % del loop completo"
## [1] "Vamos en el  3.94 % del loop completo"
## [1] "Vamos en el  4.03 % del loop completo"
## [1] "Vamos en el  4.12 % del loop completo"
## [1] "Vamos en el  4.2 % del loop completo"
## [1] "Vamos en el  4.29 % del loop completo"
## [1] "Vamos en el  4.38 % del loop completo"
## [1] "Vamos en el  4.47 % del loop completo"
## [1] "Vamos en el  4.55 % del loop completo"
## [1] "Vamos en el  4.64 % del loop completo"
## [1] "Vamos en el  4.73 % del loop completo"
## [1] "Vamos en el  4.82 % del loop completo"
## [1] "Vamos en el  4.9 % del loop completo"
## [1] "Vamos en el  4.99 % del loop completo"
## [1] "Vamos en el  5.08 % del loop completo"
## [1] "Vamos en el  5.17 % del loop completo"
## [1] "Vamos en el  5.25 % del loop completo"
## [1] "Vamos en el  5.34 % del loop completo"
## [1] "Vamos en el  5.43 % del loop completo"
## [1] "Vamos en el  5.52 % del loop completo"
## [1] "Vamos en el  5.6 % del loop completo"
## [1] "Vamos en el  5.69 % del loop completo"
## [1] "Vamos en el  5.78 % del loop completo"
## [1] "Vamos en el  5.87 % del loop completo"
## [1] "Vamos en el  5.95 % del loop completo"
## [1] "Vamos en el  6.04 % del loop completo"
## [1] "Vamos en el  6.13 % del loop completo"
## [1] "Vamos en el  6.22 % del loop completo"
## [1] "Vamos en el  6.3 % del loop completo"
## [1] "Vamos en el  6.39 % del loop completo"
## [1] "Vamos en el  6.48 % del loop completo"
## [1] "Vamos en el  6.57 % del loop completo"
## [1] "Vamos en el  6.65 % del loop completo"
## [1] "Vamos en el  6.74 % del loop completo"
## [1] "Vamos en el  6.83 % del loop completo"
## [1] "Vamos en el  6.92 % del loop completo"
## [1] "Vamos en el  7.01 % del loop completo"
## [1] "Vamos en el  7.09 % del loop completo"
## [1] "Vamos en el  7.18 % del loop completo"
## [1] "Vamos en el  7.27 % del loop completo"
## [1] "Vamos en el  7.36 % del loop completo"
## [1] "Vamos en el  7.44 % del loop completo"
## [1] "Vamos en el  7.53 % del loop completo"
## [1] "Vamos en el  7.62 % del loop completo"
## [1] "Vamos en el  7.71 % del loop completo"
## [1] "Vamos en el  7.79 % del loop completo"
## [1] "Vamos en el  7.88 % del loop completo"
## [1] "Vamos en el  7.97 % del loop completo"
## [1] "Vamos en el  8.06 % del loop completo"
## [1] "Vamos en el  8.14 % del loop completo"
## [1] "Vamos en el  8.23 % del loop completo"
## [1] "Vamos en el  8.32 % del loop completo"
## [1] "Vamos en el  8.41 % del loop completo"
## [1] "Vamos en el  8.49 % del loop completo"
## [1] "Vamos en el  8.58 % del loop completo"
## [1] "Vamos en el  8.67 % del loop completo"
## [1] "Vamos en el  8.76 % del loop completo"
## [1] "Vamos en el  8.84 % del loop completo"
## [1] "Vamos en el  8.93 % del loop completo"
## [1] "Vamos en el  9.02 % del loop completo"
## [1] "Vamos en el  9.11 % del loop completo"
## [1] "Vamos en el  9.19 % del loop completo"
## [1] "Vamos en el  9.28 % del loop completo"
## [1] "Vamos en el  9.37 % del loop completo"
## [1] "Vamos en el  9.46 % del loop completo"
## [1] "Vamos en el  9.54 % del loop completo"
## [1] "Vamos en el  9.63 % del loop completo"
## [1] "Vamos en el  9.72 % del loop completo"
## [1] "Vamos en el  9.81 % del loop completo"
## [1] "Vamos en el  9.89 % del loop completo"
## [1] "Vamos en el  9.98 % del loop completo"
## [1] "Vamos en el  10.07 % del loop completo"
## [1] "Vamos en el  10.16 % del loop completo"
## [1] "Vamos en el  10.25 % del loop completo"
## [1] "Vamos en el  10.33 % del loop completo"
## [1] "Vamos en el  10.42 % del loop completo"
## [1] "Vamos en el  10.51 % del loop completo"
## [1] "Vamos en el  10.6 % del loop completo"
## [1] "Vamos en el  10.68 % del loop completo"
## [1] "Vamos en el  10.77 % del loop completo"
## [1] "Vamos en el  10.86 % del loop completo"
## [1] "Vamos en el  10.95 % del loop completo"
## [1] "Vamos en el  11.03 % del loop completo"
## [1] "Vamos en el  11.12 % del loop completo"
## [1] "Vamos en el  11.21 % del loop completo"
## [1] "Vamos en el  11.3 % del loop completo"
## [1] "Vamos en el  11.38 % del loop completo"
## [1] "Vamos en el  11.47 % del loop completo"
## [1] "Vamos en el  11.56 % del loop completo"
## [1] "Vamos en el  11.65 % del loop completo"
## [1] "Vamos en el  11.73 % del loop completo"
## [1] "Vamos en el  11.82 % del loop completo"
## [1] "Vamos en el  11.91 % del loop completo"
## [1] "Vamos en el  12 % del loop completo"
## [1] "Vamos en el  12.08 % del loop completo"
## [1] "Vamos en el  12.17 % del loop completo"
## [1] "Vamos en el  12.26 % del loop completo"
## [1] "Vamos en el  12.35 % del loop completo"
## [1] "Vamos en el  12.43 % del loop completo"
## [1] "Vamos en el  12.52 % del loop completo"
## [1] "Vamos en el  12.61 % del loop completo"
## [1] "Vamos en el  12.7 % del loop completo"
## [1] "Vamos en el  12.78 % del loop completo"
## [1] "Vamos en el  12.87 % del loop completo"
## [1] "Vamos en el  12.96 % del loop completo"
## [1] "Vamos en el  13.05 % del loop completo"
## [1] "Vamos en el  13.13 % del loop completo"
## [1] "Vamos en el  13.22 % del loop completo"
## [1] "Vamos en el  13.31 % del loop completo"
## [1] "Vamos en el  13.4 % del loop completo"
## [1] "Vamos en el  13.49 % del loop completo"
## [1] "Vamos en el  13.57 % del loop completo"
## [1] "Vamos en el  13.66 % del loop completo"
## [1] "Vamos en el  13.75 % del loop completo"
## [1] "Vamos en el  13.84 % del loop completo"
## [1] "Vamos en el  13.92 % del loop completo"
## [1] "Vamos en el  14.01 % del loop completo"
## [1] "Vamos en el  14.1 % del loop completo"
## [1] "Vamos en el  14.19 % del loop completo"
## [1] "Vamos en el  14.27 % del loop completo"
## [1] "Vamos en el  14.36 % del loop completo"
## [1] "Vamos en el  14.45 % del loop completo"
## [1] "Vamos en el  14.54 % del loop completo"
## [1] "Vamos en el  14.62 % del loop completo"
## [1] "Vamos en el  14.71 % del loop completo"
## [1] "Vamos en el  14.8 % del loop completo"
## [1] "Vamos en el  14.89 % del loop completo"
## [1] "Vamos en el  14.97 % del loop completo"
## [1] "Vamos en el  15.06 % del loop completo"
## [1] "Vamos en el  15.15 % del loop completo"
## [1] "Vamos en el  15.24 % del loop completo"
## [1] "Vamos en el  15.32 % del loop completo"
## [1] "Vamos en el  15.41 % del loop completo"
## [1] "Vamos en el  15.5 % del loop completo"
## [1] "Vamos en el  15.59 % del loop completo"
## [1] "Vamos en el  15.67 % del loop completo"
## [1] "Vamos en el  15.76 % del loop completo"
## [1] "Vamos en el  15.85 % del loop completo"
## [1] "Vamos en el  15.94 % del loop completo"
## [1] "Vamos en el  16.02 % del loop completo"
## [1] "Vamos en el  16.11 % del loop completo"
## [1] "Vamos en el  16.2 % del loop completo"
## [1] "Vamos en el  16.29 % del loop completo"
## [1] "Vamos en el  16.37 % del loop completo"
## [1] "Vamos en el  16.46 % del loop completo"
## [1] "Vamos en el  16.55 % del loop completo"
## [1] "Vamos en el  16.64 % del loop completo"
## [1] "Vamos en el  16.73 % del loop completo"
## [1] "Vamos en el  16.81 % del loop completo"
## [1] "Vamos en el  16.9 % del loop completo"
## [1] "Vamos en el  16.99 % del loop completo"
## [1] "Vamos en el  17.08 % del loop completo"
## [1] "Vamos en el  17.16 % del loop completo"
## [1] "Vamos en el  17.25 % del loop completo"
## [1] "Vamos en el  17.34 % del loop completo"
## [1] "Vamos en el  17.43 % del loop completo"
## [1] "Vamos en el  17.51 % del loop completo"
## [1] "Vamos en el  17.6 % del loop completo"
## [1] "Vamos en el  17.69 % del loop completo"
## [1] "Vamos en el  17.78 % del loop completo"
## [1] "Vamos en el  17.86 % del loop completo"
## [1] "Vamos en el  17.95 % del loop completo"
## [1] "Vamos en el  18.04 % del loop completo"
## [1] "Vamos en el  18.13 % del loop completo"
## [1] "Vamos en el  18.21 % del loop completo"
## [1] "Vamos en el  18.3 % del loop completo"
## [1] "Vamos en el  18.39 % del loop completo"
## [1] "Vamos en el  18.48 % del loop completo"
## [1] "Vamos en el  18.56 % del loop completo"
## [1] "Vamos en el  18.65 % del loop completo"
## [1] "Vamos en el  18.74 % del loop completo"
## [1] "Vamos en el  18.83 % del loop completo"
## [1] "Vamos en el  18.91 % del loop completo"
## [1] "Vamos en el  19 % del loop completo"
## [1] "Vamos en el  19.09 % del loop completo"
## [1] "Vamos en el  19.18 % del loop completo"
## [1] "Vamos en el  19.26 % del loop completo"
## [1] "Vamos en el  19.35 % del loop completo"
## [1] "Vamos en el  19.44 % del loop completo"
## [1] "Vamos en el  19.53 % del loop completo"
## [1] "Vamos en el  19.61 % del loop completo"
## [1] "Vamos en el  19.7 % del loop completo"
## [1] "Vamos en el  19.79 % del loop completo"
## [1] "Vamos en el  19.88 % del loop completo"
## [1] "Vamos en el  19.96 % del loop completo"
## [1] "Vamos en el  20.05 % del loop completo"
## [1] "Vamos en el  20.14 % del loop completo"
## [1] "Vamos en el  20.23 % del loop completo"
## [1] "Vamos en el  20.32 % del loop completo"
## [1] "Vamos en el  20.4 % del loop completo"
## [1] "Vamos en el  20.49 % del loop completo"
## [1] "Vamos en el  20.58 % del loop completo"
## [1] "Vamos en el  20.67 % del loop completo"
## [1] "Vamos en el  20.75 % del loop completo"
## [1] "Vamos en el  20.84 % del loop completo"
## [1] "Vamos en el  20.93 % del loop completo"
## [1] "Vamos en el  21.02 % del loop completo"
## [1] "Vamos en el  21.1 % del loop completo"
## [1] "Vamos en el  21.19 % del loop completo"
## [1] "Vamos en el  21.28 % del loop completo"
## [1] "Vamos en el  21.37 % del loop completo"
## [1] "Vamos en el  21.45 % del loop completo"
## [1] "Vamos en el  21.54 % del loop completo"
## [1] "Vamos en el  21.63 % del loop completo"
## [1] "Vamos en el  21.72 % del loop completo"
## [1] "Vamos en el  21.8 % del loop completo"
## [1] "Vamos en el  21.89 % del loop completo"
## [1] "Vamos en el  21.98 % del loop completo"
## [1] "Vamos en el  22.07 % del loop completo"
## [1] "Vamos en el  22.15 % del loop completo"
## [1] "Vamos en el  22.24 % del loop completo"
## [1] "Vamos en el  22.33 % del loop completo"
## [1] "Vamos en el  22.42 % del loop completo"
## [1] "Vamos en el  22.5 % del loop completo"
## [1] "Vamos en el  22.59 % del loop completo"
## [1] "Vamos en el  22.68 % del loop completo"
## [1] "Vamos en el  22.77 % del loop completo"
## [1] "Vamos en el  22.85 % del loop completo"
## [1] "Vamos en el  22.94 % del loop completo"
## [1] "Vamos en el  23.03 % del loop completo"
## [1] "Vamos en el  23.12 % del loop completo"
## [1] "Vamos en el  23.2 % del loop completo"
## [1] "Vamos en el  23.29 % del loop completo"
## [1] "Vamos en el  23.38 % del loop completo"
## [1] "Vamos en el  23.47 % del loop completo"
## [1] "Vamos en el  23.56 % del loop completo"
## [1] "Vamos en el  23.64 % del loop completo"
## [1] "Vamos en el  23.73 % del loop completo"
## [1] "Vamos en el  23.82 % del loop completo"
## [1] "Vamos en el  23.91 % del loop completo"
## [1] "Vamos en el  23.99 % del loop completo"
## [1] "Vamos en el  24.08 % del loop completo"
## [1] "Vamos en el  24.17 % del loop completo"
## [1] "Vamos en el  24.26 % del loop completo"
## [1] "Vamos en el  24.34 % del loop completo"
## [1] "Vamos en el  24.43 % del loop completo"
## [1] "Vamos en el  24.52 % del loop completo"
## [1] "Vamos en el  24.61 % del loop completo"
## [1] "Vamos en el  24.69 % del loop completo"
## [1] "Vamos en el  24.78 % del loop completo"
## [1] "Vamos en el  24.87 % del loop completo"
## [1] "Vamos en el  24.96 % del loop completo"
## [1] "Vamos en el  25.04 % del loop completo"
## [1] "Vamos en el  25.13 % del loop completo"
## [1] "Vamos en el  25.22 % del loop completo"
## [1] "Vamos en el  25.31 % del loop completo"
## [1] "Vamos en el  25.39 % del loop completo"
## [1] "Vamos en el  25.48 % del loop completo"
## [1] "Vamos en el  25.57 % del loop completo"
## [1] "Vamos en el  25.66 % del loop completo"
## [1] "Vamos en el  25.74 % del loop completo"
## [1] "Vamos en el  25.83 % del loop completo"
## [1] "Vamos en el  25.92 % del loop completo"
## [1] "Vamos en el  26.01 % del loop completo"
## [1] "Vamos en el  26.09 % del loop completo"
## [1] "Vamos en el  26.18 % del loop completo"
## [1] "Vamos en el  26.27 % del loop completo"
## [1] "Vamos en el  26.36 % del loop completo"
## [1] "Vamos en el  26.44 % del loop completo"
## [1] "Vamos en el  26.53 % del loop completo"
## [1] "Vamos en el  26.62 % del loop completo"
## [1] "Vamos en el  26.71 % del loop completo"
## [1] "Vamos en el  26.8 % del loop completo"
## [1] "Vamos en el  26.88 % del loop completo"
## [1] "Vamos en el  26.97 % del loop completo"
## [1] "Vamos en el  27.06 % del loop completo"
## [1] "Vamos en el  27.15 % del loop completo"
## [1] "Vamos en el  27.23 % del loop completo"
## [1] "Vamos en el  27.32 % del loop completo"
## [1] "Vamos en el  27.41 % del loop completo"
## [1] "Vamos en el  27.5 % del loop completo"
## [1] "Vamos en el  27.58 % del loop completo"
## [1] "Vamos en el  27.67 % del loop completo"
## [1] "Vamos en el  27.76 % del loop completo"
## [1] "Vamos en el  27.85 % del loop completo"
## [1] "Vamos en el  27.93 % del loop completo"
## [1] "Vamos en el  28.02 % del loop completo"
## [1] "Vamos en el  28.11 % del loop completo"
## [1] "Vamos en el  28.2 % del loop completo"
## [1] "Vamos en el  28.28 % del loop completo"
## [1] "Vamos en el  28.37 % del loop completo"
## [1] "Vamos en el  28.46 % del loop completo"
## [1] "Vamos en el  28.55 % del loop completo"
## [1] "Vamos en el  28.63 % del loop completo"
## [1] "Vamos en el  28.72 % del loop completo"
## [1] "Vamos en el  28.81 % del loop completo"
## [1] "Vamos en el  28.9 % del loop completo"
## [1] "Vamos en el  28.98 % del loop completo"
## [1] "Vamos en el  29.07 % del loop completo"
## [1] "Vamos en el  29.16 % del loop completo"
## [1] "Vamos en el  29.25 % del loop completo"
## [1] "Vamos en el  29.33 % del loop completo"
## [1] "Vamos en el  29.42 % del loop completo"
## [1] "Vamos en el  29.51 % del loop completo"
## [1] "Vamos en el  29.6 % del loop completo"
## [1] "Vamos en el  29.68 % del loop completo"
## [1] "Vamos en el  29.77 % del loop completo"
## [1] "Vamos en el  29.86 % del loop completo"
## [1] "Vamos en el  29.95 % del loop completo"
## [1] "Vamos en el  30.04 % del loop completo"
## [1] "Vamos en el  30.12 % del loop completo"
## [1] "Vamos en el  30.21 % del loop completo"
## [1] "Vamos en el  30.3 % del loop completo"
## [1] "Vamos en el  30.39 % del loop completo"
## [1] "Vamos en el  30.47 % del loop completo"
## [1] "Vamos en el  30.56 % del loop completo"
## [1] "Vamos en el  30.65 % del loop completo"
## [1] "Vamos en el  30.74 % del loop completo"
## [1] "Vamos en el  30.82 % del loop completo"
## [1] "Vamos en el  30.91 % del loop completo"
## [1] "Vamos en el  31 % del loop completo"
## [1] "Vamos en el  31.09 % del loop completo"
## [1] "Vamos en el  31.17 % del loop completo"
## [1] "Vamos en el  31.26 % del loop completo"
## [1] "Vamos en el  31.35 % del loop completo"
## [1] "Vamos en el  31.44 % del loop completo"
## [1] "Vamos en el  31.52 % del loop completo"
## [1] "Vamos en el  31.61 % del loop completo"
## [1] "Vamos en el  31.7 % del loop completo"
## [1] "Vamos en el  31.79 % del loop completo"
## [1] "Vamos en el  31.87 % del loop completo"
## [1] "Vamos en el  31.96 % del loop completo"
## [1] "Vamos en el  32.05 % del loop completo"
## [1] "Vamos en el  32.14 % del loop completo"
## [1] "Vamos en el  32.22 % del loop completo"
## [1] "Vamos en el  32.31 % del loop completo"
## [1] "Vamos en el  32.4 % del loop completo"
## [1] "Vamos en el  32.49 % del loop completo"
## [1] "Vamos en el  32.57 % del loop completo"
## [1] "Vamos en el  32.66 % del loop completo"
## [1] "Vamos en el  32.75 % del loop completo"
## [1] "Vamos en el  32.84 % del loop completo"
## [1] "Vamos en el  32.92 % del loop completo"
## [1] "Vamos en el  33.01 % del loop completo"
## [1] "Vamos en el  33.1 % del loop completo"
## [1] "Vamos en el  33.19 % del loop completo"
## [1] "Vamos en el  33.27 % del loop completo"
## [1] "Vamos en el  33.36 % del loop completo"
## [1] "Vamos en el  33.45 % del loop completo"
## [1] "Vamos en el  33.54 % del loop completo"
## [1] "Vamos en el  33.63 % del loop completo"
## [1] "Vamos en el  33.71 % del loop completo"
## [1] "Vamos en el  33.8 % del loop completo"
## [1] "Vamos en el  33.89 % del loop completo"
## [1] "Vamos en el  33.98 % del loop completo"
## [1] "Vamos en el  34.06 % del loop completo"
## [1] "Vamos en el  34.15 % del loop completo"
## [1] "Vamos en el  34.24 % del loop completo"
## [1] "Vamos en el  34.33 % del loop completo"
## [1] "Vamos en el  34.41 % del loop completo"
## [1] "Vamos en el  34.5 % del loop completo"
## [1] "Vamos en el  34.59 % del loop completo"
## [1] "Vamos en el  34.68 % del loop completo"
## [1] "Vamos en el  34.76 % del loop completo"
## [1] "Vamos en el  34.85 % del loop completo"
## [1] "Vamos en el  34.94 % del loop completo"
## [1] "Vamos en el  35.03 % del loop completo"
## [1] "Vamos en el  35.11 % del loop completo"
## [1] "Vamos en el  35.2 % del loop completo"
## [1] "Vamos en el  35.29 % del loop completo"
## [1] "Vamos en el  35.38 % del loop completo"
## [1] "Vamos en el  35.46 % del loop completo"
## [1] "Vamos en el  35.55 % del loop completo"
## [1] "Vamos en el  35.64 % del loop completo"
## [1] "Vamos en el  35.73 % del loop completo"
## [1] "Vamos en el  35.81 % del loop completo"
## [1] "Vamos en el  35.9 % del loop completo"
## [1] "Vamos en el  35.99 % del loop completo"
## [1] "Vamos en el  36.08 % del loop completo"
## [1] "Vamos en el  36.16 % del loop completo"
## [1] "Vamos en el  36.25 % del loop completo"
## [1] "Vamos en el  36.34 % del loop completo"
## [1] "Vamos en el  36.43 % del loop completo"
## [1] "Vamos en el  36.51 % del loop completo"
## [1] "Vamos en el  36.6 % del loop completo"
## [1] "Vamos en el  36.69 % del loop completo"
## [1] "Vamos en el  36.78 % del loop completo"
## [1] "Vamos en el  36.87 % del loop completo"
## [1] "Vamos en el  36.95 % del loop completo"
## [1] "Vamos en el  37.04 % del loop completo"
## [1] "Vamos en el  37.13 % del loop completo"
## [1] "Vamos en el  37.22 % del loop completo"
## [1] "Vamos en el  37.3 % del loop completo"
## [1] "Vamos en el  37.39 % del loop completo"
## [1] "Vamos en el  37.48 % del loop completo"
## [1] "Vamos en el  37.57 % del loop completo"
## [1] "Vamos en el  37.65 % del loop completo"
## [1] "Vamos en el  37.74 % del loop completo"
## [1] "Vamos en el  37.83 % del loop completo"
## [1] "Vamos en el  37.92 % del loop completo"
## [1] "Vamos en el  38 % del loop completo"
## [1] "Vamos en el  38.09 % del loop completo"
## [1] "Vamos en el  38.18 % del loop completo"
## [1] "Vamos en el  38.27 % del loop completo"
## [1] "Vamos en el  38.35 % del loop completo"
## [1] "Vamos en el  38.44 % del loop completo"
## [1] "Vamos en el  38.53 % del loop completo"
## [1] "Vamos en el  38.62 % del loop completo"
## [1] "Vamos en el  38.7 % del loop completo"
## [1] "Vamos en el  38.79 % del loop completo"
## [1] "Vamos en el  38.88 % del loop completo"
## [1] "Vamos en el  38.97 % del loop completo"
## [1] "Vamos en el  39.05 % del loop completo"
## [1] "Vamos en el  39.14 % del loop completo"
## [1] "Vamos en el  39.23 % del loop completo"
## [1] "Vamos en el  39.32 % del loop completo"
## [1] "Vamos en el  39.4 % del loop completo"
## [1] "Vamos en el  39.49 % del loop completo"
## [1] "Vamos en el  39.58 % del loop completo"
## [1] "Vamos en el  39.67 % del loop completo"
## [1] "Vamos en el  39.75 % del loop completo"
## [1] "Vamos en el  39.84 % del loop completo"
## [1] "Vamos en el  39.93 % del loop completo"
## [1] "Vamos en el  40.02 % del loop completo"
## [1] "Vamos en el  40.11 % del loop completo"
## [1] "Vamos en el  40.19 % del loop completo"
## [1] "Vamos en el  40.28 % del loop completo"
## [1] "Vamos en el  40.37 % del loop completo"
## [1] "Vamos en el  40.46 % del loop completo"
## [1] "Vamos en el  40.54 % del loop completo"
## [1] "Vamos en el  40.63 % del loop completo"
## [1] "Vamos en el  40.72 % del loop completo"
## [1] "Vamos en el  40.81 % del loop completo"
## [1] "Vamos en el  40.89 % del loop completo"
## [1] "Vamos en el  40.98 % del loop completo"
## [1] "Vamos en el  41.07 % del loop completo"
## [1] "Vamos en el  41.16 % del loop completo"
## [1] "Vamos en el  41.24 % del loop completo"
## [1] "Vamos en el  41.33 % del loop completo"
## [1] "Vamos en el  41.42 % del loop completo"
## [1] "Vamos en el  41.51 % del loop completo"
## [1] "Vamos en el  41.59 % del loop completo"
## [1] "Vamos en el  41.68 % del loop completo"
## [1] "Vamos en el  41.77 % del loop completo"
## [1] "Vamos en el  41.86 % del loop completo"
## [1] "Vamos en el  41.94 % del loop completo"
## [1] "Vamos en el  42.03 % del loop completo"
## [1] "Vamos en el  42.12 % del loop completo"
## [1] "Vamos en el  42.21 % del loop completo"
## [1] "Vamos en el  42.29 % del loop completo"
## [1] "Vamos en el  42.38 % del loop completo"
## [1] "Vamos en el  42.47 % del loop completo"
## [1] "Vamos en el  42.56 % del loop completo"
## [1] "Vamos en el  42.64 % del loop completo"
## [1] "Vamos en el  42.73 % del loop completo"
## [1] "Vamos en el  42.82 % del loop completo"
## [1] "Vamos en el  42.91 % del loop completo"
## [1] "Vamos en el  42.99 % del loop completo"
## [1] "Vamos en el  43.08 % del loop completo"
## [1] "Vamos en el  43.17 % del loop completo"
## [1] "Vamos en el  43.26 % del loop completo"
## [1] "Vamos en el  43.35 % del loop completo"
## [1] "Vamos en el  43.43 % del loop completo"
## [1] "Vamos en el  43.52 % del loop completo"
## [1] "Vamos en el  43.61 % del loop completo"
## [1] "Vamos en el  43.7 % del loop completo"
## [1] "Vamos en el  43.78 % del loop completo"
## [1] "Vamos en el  43.87 % del loop completo"
## [1] "Vamos en el  43.96 % del loop completo"
## [1] "Vamos en el  44.05 % del loop completo"
## [1] "Vamos en el  44.13 % del loop completo"
## [1] "Vamos en el  44.22 % del loop completo"
## [1] "Vamos en el  44.31 % del loop completo"
## [1] "Vamos en el  44.4 % del loop completo"
## [1] "Vamos en el  44.48 % del loop completo"
## [1] "Vamos en el  44.57 % del loop completo"
## [1] "Vamos en el  44.66 % del loop completo"
## [1] "Vamos en el  44.75 % del loop completo"
## [1] "Vamos en el  44.83 % del loop completo"
## [1] "Vamos en el  44.92 % del loop completo"
## [1] "Vamos en el  45.01 % del loop completo"
## [1] "Vamos en el  45.1 % del loop completo"
## [1] "Vamos en el  45.18 % del loop completo"
## [1] "Vamos en el  45.27 % del loop completo"
## [1] "Vamos en el  45.36 % del loop completo"
## [1] "Vamos en el  45.45 % del loop completo"
## [1] "Vamos en el  45.53 % del loop completo"
## [1] "Vamos en el  45.62 % del loop completo"
## [1] "Vamos en el  45.71 % del loop completo"
## [1] "Vamos en el  45.8 % del loop completo"
## [1] "Vamos en el  45.88 % del loop completo"
## [1] "Vamos en el  45.97 % del loop completo"
## [1] "Vamos en el  46.06 % del loop completo"
## [1] "Vamos en el  46.15 % del loop completo"
## [1] "Vamos en el  46.23 % del loop completo"
## [1] "Vamos en el  46.32 % del loop completo"
## [1] "Vamos en el  46.41 % del loop completo"
## [1] "Vamos en el  46.5 % del loop completo"
## [1] "Vamos en el  46.58 % del loop completo"
## [1] "Vamos en el  46.67 % del loop completo"
## [1] "Vamos en el  46.76 % del loop completo"
## [1] "Vamos en el  46.85 % del loop completo"
## [1] "Vamos en el  46.94 % del loop completo"
## [1] "Vamos en el  47.02 % del loop completo"
## [1] "Vamos en el  47.11 % del loop completo"
## [1] "Vamos en el  47.2 % del loop completo"
## [1] "Vamos en el  47.29 % del loop completo"
## [1] "Vamos en el  47.37 % del loop completo"
## [1] "Vamos en el  47.46 % del loop completo"
## [1] "Vamos en el  47.55 % del loop completo"
## [1] "Vamos en el  47.64 % del loop completo"
## [1] "Vamos en el  47.72 % del loop completo"
## [1] "Vamos en el  47.81 % del loop completo"
## [1] "Vamos en el  47.9 % del loop completo"
## [1] "Vamos en el  47.99 % del loop completo"
## [1] "Vamos en el  48.07 % del loop completo"
## [1] "Vamos en el  48.16 % del loop completo"
## [1] "Vamos en el  48.25 % del loop completo"
## [1] "Vamos en el  48.34 % del loop completo"
## [1] "Vamos en el  48.42 % del loop completo"
## [1] "Vamos en el  48.51 % del loop completo"
## [1] "Vamos en el  48.6 % del loop completo"
## [1] "Vamos en el  48.69 % del loop completo"
## [1] "Vamos en el  48.77 % del loop completo"
## [1] "Vamos en el  48.86 % del loop completo"
## [1] "Vamos en el  48.95 % del loop completo"
## [1] "Vamos en el  49.04 % del loop completo"
## [1] "Vamos en el  49.12 % del loop completo"
## [1] "Vamos en el  49.21 % del loop completo"
## [1] "Vamos en el  49.3 % del loop completo"
## [1] "Vamos en el  49.39 % del loop completo"
## [1] "Vamos en el  49.47 % del loop completo"
## [1] "Vamos en el  49.56 % del loop completo"
## [1] "Vamos en el  49.65 % del loop completo"
## [1] "Vamos en el  49.74 % del loop completo"
## [1] "Vamos en el  49.82 % del loop completo"
## [1] "Vamos en el  49.91 % del loop completo"
## [1] "Vamos en el  50 % del loop completo"
## [1] "Vamos en el  50.09 % del loop completo"
## [1] "Vamos en el  50.18 % del loop completo"
## [1] "Vamos en el  50.26 % del loop completo"
## [1] "Vamos en el  50.35 % del loop completo"
## [1] "Vamos en el  50.44 % del loop completo"
## [1] "Vamos en el  50.53 % del loop completo"
## [1] "Vamos en el  50.61 % del loop completo"
## [1] "Vamos en el  50.7 % del loop completo"
## [1] "Vamos en el  50.79 % del loop completo"
## [1] "Vamos en el  50.88 % del loop completo"
## [1] "Vamos en el  50.96 % del loop completo"
## [1] "Vamos en el  51.05 % del loop completo"
## [1] "Vamos en el  51.14 % del loop completo"
## [1] "Vamos en el  51.23 % del loop completo"
## [1] "Vamos en el  51.31 % del loop completo"
## [1] "Vamos en el  51.4 % del loop completo"
## [1] "Vamos en el  51.49 % del loop completo"
## [1] "Vamos en el  51.58 % del loop completo"
## [1] "Vamos en el  51.66 % del loop completo"
## [1] "Vamos en el  51.75 % del loop completo"
## [1] "Vamos en el  51.84 % del loop completo"
## [1] "Vamos en el  51.93 % del loop completo"
## [1] "Vamos en el  52.01 % del loop completo"
## [1] "Vamos en el  52.1 % del loop completo"
## [1] "Vamos en el  52.19 % del loop completo"
## [1] "Vamos en el  52.28 % del loop completo"
## [1] "Vamos en el  52.36 % del loop completo"
## [1] "Vamos en el  52.45 % del loop completo"
## [1] "Vamos en el  52.54 % del loop completo"
## [1] "Vamos en el  52.63 % del loop completo"
## [1] "Vamos en el  52.71 % del loop completo"
## [1] "Vamos en el  52.8 % del loop completo"
## [1] "Vamos en el  52.89 % del loop completo"
## [1] "Vamos en el  52.98 % del loop completo"
## [1] "Vamos en el  53.06 % del loop completo"
## [1] "Vamos en el  53.15 % del loop completo"
## [1] "Vamos en el  53.24 % del loop completo"
## [1] "Vamos en el  53.33 % del loop completo"
## [1] "Vamos en el  53.42 % del loop completo"
## [1] "Vamos en el  53.5 % del loop completo"
## [1] "Vamos en el  53.59 % del loop completo"
## [1] "Vamos en el  53.68 % del loop completo"
## [1] "Vamos en el  53.77 % del loop completo"
## [1] "Vamos en el  53.85 % del loop completo"
## [1] "Vamos en el  53.94 % del loop completo"
## [1] "Vamos en el  54.03 % del loop completo"
## [1] "Vamos en el  54.12 % del loop completo"
## [1] "Vamos en el  54.2 % del loop completo"
## [1] "Vamos en el  54.29 % del loop completo"
## [1] "Vamos en el  54.38 % del loop completo"
## [1] "Vamos en el  54.47 % del loop completo"
## [1] "Vamos en el  54.55 % del loop completo"
## [1] "Vamos en el  54.64 % del loop completo"
## [1] "Vamos en el  54.73 % del loop completo"
## [1] "Vamos en el  54.82 % del loop completo"
## [1] "Vamos en el  54.9 % del loop completo"
## [1] "Vamos en el  54.99 % del loop completo"
## [1] "Vamos en el  55.08 % del loop completo"
## [1] "Vamos en el  55.17 % del loop completo"
## [1] "Vamos en el  55.25 % del loop completo"
## [1] "Vamos en el  55.34 % del loop completo"
## [1] "Vamos en el  55.43 % del loop completo"
## [1] "Vamos en el  55.52 % del loop completo"
## [1] "Vamos en el  55.6 % del loop completo"
## [1] "Vamos en el  55.69 % del loop completo"
## [1] "Vamos en el  55.78 % del loop completo"
## [1] "Vamos en el  55.87 % del loop completo"
## [1] "Vamos en el  55.95 % del loop completo"
## [1] "Vamos en el  56.04 % del loop completo"
## [1] "Vamos en el  56.13 % del loop completo"
## [1] "Vamos en el  56.22 % del loop completo"
## [1] "Vamos en el  56.3 % del loop completo"
## [1] "Vamos en el  56.39 % del loop completo"
## [1] "Vamos en el  56.48 % del loop completo"
## [1] "Vamos en el  56.57 % del loop completo"
## [1] "Vamos en el  56.65 % del loop completo"
## [1] "Vamos en el  56.74 % del loop completo"
## [1] "Vamos en el  56.83 % del loop completo"
## [1] "Vamos en el  56.92 % del loop completo"
## [1] "Vamos en el  57.01 % del loop completo"
## [1] "Vamos en el  57.09 % del loop completo"
## [1] "Vamos en el  57.18 % del loop completo"
## [1] "Vamos en el  57.27 % del loop completo"
## [1] "Vamos en el  57.36 % del loop completo"
## [1] "Vamos en el  57.44 % del loop completo"
## [1] "Vamos en el  57.53 % del loop completo"
## [1] "Vamos en el  57.62 % del loop completo"
## [1] "Vamos en el  57.71 % del loop completo"
## [1] "Vamos en el  57.79 % del loop completo"
## [1] "Vamos en el  57.88 % del loop completo"
## [1] "Vamos en el  57.97 % del loop completo"
## [1] "Vamos en el  58.06 % del loop completo"
## [1] "Vamos en el  58.14 % del loop completo"
## [1] "Vamos en el  58.23 % del loop completo"
## [1] "Vamos en el  58.32 % del loop completo"
## [1] "Vamos en el  58.41 % del loop completo"
## [1] "Vamos en el  58.49 % del loop completo"
## [1] "Vamos en el  58.58 % del loop completo"
## [1] "Vamos en el  58.67 % del loop completo"
## [1] "Vamos en el  58.76 % del loop completo"
## [1] "Vamos en el  58.84 % del loop completo"
## [1] "Vamos en el  58.93 % del loop completo"
## [1] "Vamos en el  59.02 % del loop completo"
## [1] "Vamos en el  59.11 % del loop completo"
## [1] "Vamos en el  59.19 % del loop completo"
## [1] "Vamos en el  59.28 % del loop completo"
## [1] "Vamos en el  59.37 % del loop completo"
## [1] "Vamos en el  59.46 % del loop completo"
## [1] "Vamos en el  59.54 % del loop completo"
## [1] "Vamos en el  59.63 % del loop completo"
## [1] "Vamos en el  59.72 % del loop completo"
## [1] "Vamos en el  59.81 % del loop completo"
## [1] "Vamos en el  59.89 % del loop completo"
## [1] "Vamos en el  59.98 % del loop completo"
## [1] "Vamos en el  60.07 % del loop completo"
## [1] "Vamos en el  60.16 % del loop completo"
## [1] "Vamos en el  60.25 % del loop completo"
## [1] "Vamos en el  60.33 % del loop completo"
## [1] "Vamos en el  60.42 % del loop completo"
## [1] "Vamos en el  60.51 % del loop completo"
## [1] "Vamos en el  60.6 % del loop completo"
## [1] "Vamos en el  60.68 % del loop completo"
## [1] "Vamos en el  60.77 % del loop completo"
## [1] "Vamos en el  60.86 % del loop completo"
## [1] "Vamos en el  60.95 % del loop completo"
## [1] "Vamos en el  61.03 % del loop completo"
## [1] "Vamos en el  61.12 % del loop completo"
## [1] "Vamos en el  61.21 % del loop completo"
## [1] "Vamos en el  61.3 % del loop completo"
## [1] "Vamos en el  61.38 % del loop completo"
## [1] "Vamos en el  61.47 % del loop completo"
## [1] "Vamos en el  61.56 % del loop completo"
## [1] "Vamos en el  61.65 % del loop completo"
## [1] "Vamos en el  61.73 % del loop completo"
## [1] "Vamos en el  61.82 % del loop completo"
## [1] "Vamos en el  61.91 % del loop completo"
## [1] "Vamos en el  62 % del loop completo"
## [1] "Vamos en el  62.08 % del loop completo"
## [1] "Vamos en el  62.17 % del loop completo"
## [1] "Vamos en el  62.26 % del loop completo"
## [1] "Vamos en el  62.35 % del loop completo"
## [1] "Vamos en el  62.43 % del loop completo"
## [1] "Vamos en el  62.52 % del loop completo"
## [1] "Vamos en el  62.61 % del loop completo"
## [1] "Vamos en el  62.7 % del loop completo"
## [1] "Vamos en el  62.78 % del loop completo"
## [1] "Vamos en el  62.87 % del loop completo"
## [1] "Vamos en el  62.96 % del loop completo"
## [1] "Vamos en el  63.05 % del loop completo"
## [1] "Vamos en el  63.13 % del loop completo"
## [1] "Vamos en el  63.22 % del loop completo"
## [1] "Vamos en el  63.31 % del loop completo"
## [1] "Vamos en el  63.4 % del loop completo"
## [1] "Vamos en el  63.49 % del loop completo"
## [1] "Vamos en el  63.57 % del loop completo"
## [1] "Vamos en el  63.66 % del loop completo"
## [1] "Vamos en el  63.75 % del loop completo"
## [1] "Vamos en el  63.84 % del loop completo"
## [1] "Vamos en el  63.92 % del loop completo"
## [1] "Vamos en el  64.01 % del loop completo"
## [1] "Vamos en el  64.1 % del loop completo"
## [1] "Vamos en el  64.19 % del loop completo"
## [1] "Vamos en el  64.27 % del loop completo"
## [1] "Vamos en el  64.36 % del loop completo"
## [1] "Vamos en el  64.45 % del loop completo"
## [1] "Vamos en el  64.54 % del loop completo"
## [1] "Vamos en el  64.62 % del loop completo"
## [1] "Vamos en el  64.71 % del loop completo"
## [1] "Vamos en el  64.8 % del loop completo"
## [1] "Vamos en el  64.89 % del loop completo"
## [1] "Vamos en el  64.97 % del loop completo"
## [1] "Vamos en el  65.06 % del loop completo"
## [1] "Vamos en el  65.15 % del loop completo"
## [1] "Vamos en el  65.24 % del loop completo"
## [1] "Vamos en el  65.32 % del loop completo"
## [1] "Vamos en el  65.41 % del loop completo"
## [1] "Vamos en el  65.5 % del loop completo"
## [1] "Vamos en el  65.59 % del loop completo"
## [1] "Vamos en el  65.67 % del loop completo"
## [1] "Vamos en el  65.76 % del loop completo"
## [1] "Vamos en el  65.85 % del loop completo"
## [1] "Vamos en el  65.94 % del loop completo"
## [1] "Vamos en el  66.02 % del loop completo"
## [1] "Vamos en el  66.11 % del loop completo"
## [1] "Vamos en el  66.2 % del loop completo"
## [1] "Vamos en el  66.29 % del loop completo"
## [1] "Vamos en el  66.37 % del loop completo"
## [1] "Vamos en el  66.46 % del loop completo"
## [1] "Vamos en el  66.55 % del loop completo"
## [1] "Vamos en el  66.64 % del loop completo"
## [1] "Vamos en el  66.73 % del loop completo"
## [1] "Vamos en el  66.81 % del loop completo"
## [1] "Vamos en el  66.9 % del loop completo"
## [1] "Vamos en el  66.99 % del loop completo"
## [1] "Vamos en el  67.08 % del loop completo"
## [1] "Vamos en el  67.16 % del loop completo"
## [1] "Vamos en el  67.25 % del loop completo"
## [1] "Vamos en el  67.34 % del loop completo"
## [1] "Vamos en el  67.43 % del loop completo"
## [1] "Vamos en el  67.51 % del loop completo"
## [1] "Vamos en el  67.6 % del loop completo"
## [1] "Vamos en el  67.69 % del loop completo"
## [1] "Vamos en el  67.78 % del loop completo"
## [1] "Vamos en el  67.86 % del loop completo"
## [1] "Vamos en el  67.95 % del loop completo"
## [1] "Vamos en el  68.04 % del loop completo"
## [1] "Vamos en el  68.13 % del loop completo"
## [1] "Vamos en el  68.21 % del loop completo"
## [1] "Vamos en el  68.3 % del loop completo"
## [1] "Vamos en el  68.39 % del loop completo"
## [1] "Vamos en el  68.48 % del loop completo"
## [1] "Vamos en el  68.56 % del loop completo"
## [1] "Vamos en el  68.65 % del loop completo"
## [1] "Vamos en el  68.74 % del loop completo"
## [1] "Vamos en el  68.83 % del loop completo"
## [1] "Vamos en el  68.91 % del loop completo"
## [1] "Vamos en el  69 % del loop completo"
## [1] "Vamos en el  69.09 % del loop completo"
## [1] "Vamos en el  69.18 % del loop completo"
## [1] "Vamos en el  69.26 % del loop completo"
## [1] "Vamos en el  69.35 % del loop completo"
## [1] "Vamos en el  69.44 % del loop completo"
## [1] "Vamos en el  69.53 % del loop completo"
## [1] "Vamos en el  69.61 % del loop completo"
## [1] "Vamos en el  69.7 % del loop completo"
## [1] "Vamos en el  69.79 % del loop completo"
## [1] "Vamos en el  69.88 % del loop completo"
## [1] "Vamos en el  69.96 % del loop completo"
## [1] "Vamos en el  70.05 % del loop completo"
## [1] "Vamos en el  70.14 % del loop completo"
## [1] "Vamos en el  70.23 % del loop completo"
## [1] "Vamos en el  70.32 % del loop completo"
## [1] "Vamos en el  70.4 % del loop completo"
## [1] "Vamos en el  70.49 % del loop completo"
## [1] "Vamos en el  70.58 % del loop completo"
## [1] "Vamos en el  70.67 % del loop completo"
## [1] "Vamos en el  70.75 % del loop completo"
## [1] "Vamos en el  70.84 % del loop completo"
## [1] "Vamos en el  70.93 % del loop completo"
## [1] "Vamos en el  71.02 % del loop completo"
## [1] "Vamos en el  71.1 % del loop completo"
## [1] "Vamos en el  71.19 % del loop completo"
## [1] "Vamos en el  71.28 % del loop completo"
## [1] "Vamos en el  71.37 % del loop completo"
## [1] "Vamos en el  71.45 % del loop completo"
## [1] "Vamos en el  71.54 % del loop completo"
## [1] "Vamos en el  71.63 % del loop completo"
## [1] "Vamos en el  71.72 % del loop completo"
## [1] "Vamos en el  71.8 % del loop completo"
## [1] "Vamos en el  71.89 % del loop completo"
## [1] "Vamos en el  71.98 % del loop completo"
## [1] "Vamos en el  72.07 % del loop completo"
## [1] "Vamos en el  72.15 % del loop completo"
## [1] "Vamos en el  72.24 % del loop completo"
## [1] "Vamos en el  72.33 % del loop completo"
## [1] "Vamos en el  72.42 % del loop completo"
## [1] "Vamos en el  72.5 % del loop completo"
## [1] "Vamos en el  72.59 % del loop completo"
## [1] "Vamos en el  72.68 % del loop completo"
## [1] "Vamos en el  72.77 % del loop completo"
## [1] "Vamos en el  72.85 % del loop completo"
## [1] "Vamos en el  72.94 % del loop completo"
## [1] "Vamos en el  73.03 % del loop completo"
## [1] "Vamos en el  73.12 % del loop completo"
## [1] "Vamos en el  73.2 % del loop completo"
## [1] "Vamos en el  73.29 % del loop completo"
## [1] "Vamos en el  73.38 % del loop completo"
## [1] "Vamos en el  73.47 % del loop completo"
## [1] "Vamos en el  73.56 % del loop completo"
## [1] "Vamos en el  73.64 % del loop completo"
## [1] "Vamos en el  73.73 % del loop completo"
## [1] "Vamos en el  73.82 % del loop completo"
## [1] "Vamos en el  73.91 % del loop completo"
## [1] "Vamos en el  73.99 % del loop completo"
## [1] "Vamos en el  74.08 % del loop completo"
## [1] "Vamos en el  74.17 % del loop completo"
## [1] "Vamos en el  74.26 % del loop completo"
## [1] "Vamos en el  74.34 % del loop completo"
## [1] "Vamos en el  74.43 % del loop completo"
## [1] "Vamos en el  74.52 % del loop completo"
## [1] "Vamos en el  74.61 % del loop completo"
## [1] "Vamos en el  74.69 % del loop completo"
## [1] "Vamos en el  74.78 % del loop completo"
## [1] "Vamos en el  74.87 % del loop completo"
## [1] "Vamos en el  74.96 % del loop completo"
## [1] "Vamos en el  75.04 % del loop completo"
## [1] "Vamos en el  75.13 % del loop completo"
## [1] "Vamos en el  75.22 % del loop completo"
## [1] "Vamos en el  75.31 % del loop completo"
## [1] "Vamos en el  75.39 % del loop completo"
## [1] "Vamos en el  75.48 % del loop completo"
## [1] "Vamos en el  75.57 % del loop completo"
## [1] "Vamos en el  75.66 % del loop completo"
## [1] "Vamos en el  75.74 % del loop completo"
## [1] "Vamos en el  75.83 % del loop completo"
## [1] "Vamos en el  75.92 % del loop completo"
## [1] "Vamos en el  76.01 % del loop completo"
## [1] "Vamos en el  76.09 % del loop completo"
## [1] "Vamos en el  76.18 % del loop completo"
## [1] "Vamos en el  76.27 % del loop completo"
## [1] "Vamos en el  76.36 % del loop completo"
## [1] "Vamos en el  76.44 % del loop completo"
## [1] "Vamos en el  76.53 % del loop completo"
## [1] "Vamos en el  76.62 % del loop completo"
## [1] "Vamos en el  76.71 % del loop completo"
## [1] "Vamos en el  76.8 % del loop completo"
## [1] "Vamos en el  76.88 % del loop completo"
## [1] "Vamos en el  76.97 % del loop completo"
## [1] "Vamos en el  77.06 % del loop completo"
## [1] "Vamos en el  77.15 % del loop completo"
## [1] "Vamos en el  77.23 % del loop completo"
## [1] "Vamos en el  77.32 % del loop completo"
## [1] "Vamos en el  77.41 % del loop completo"
## [1] "Vamos en el  77.5 % del loop completo"
## [1] "Vamos en el  77.58 % del loop completo"
## [1] "Vamos en el  77.67 % del loop completo"
## [1] "Vamos en el  77.76 % del loop completo"
## [1] "Vamos en el  77.85 % del loop completo"
## [1] "Vamos en el  77.93 % del loop completo"
## [1] "Vamos en el  78.02 % del loop completo"
## [1] "Vamos en el  78.11 % del loop completo"
## [1] "Vamos en el  78.2 % del loop completo"
## [1] "Vamos en el  78.28 % del loop completo"
## [1] "Vamos en el  78.37 % del loop completo"
## [1] "Vamos en el  78.46 % del loop completo"
## [1] "Vamos en el  78.55 % del loop completo"
## [1] "Vamos en el  78.63 % del loop completo"
## [1] "Vamos en el  78.72 % del loop completo"
## [1] "Vamos en el  78.81 % del loop completo"
## [1] "Vamos en el  78.9 % del loop completo"
## [1] "Vamos en el  78.98 % del loop completo"
## [1] "Vamos en el  79.07 % del loop completo"
## [1] "Vamos en el  79.16 % del loop completo"
## [1] "Vamos en el  79.25 % del loop completo"
## [1] "Vamos en el  79.33 % del loop completo"
## [1] "Vamos en el  79.42 % del loop completo"
## [1] "Vamos en el  79.51 % del loop completo"
## [1] "Vamos en el  79.6 % del loop completo"
## [1] "Vamos en el  79.68 % del loop completo"
## [1] "Vamos en el  79.77 % del loop completo"
## [1] "Vamos en el  79.86 % del loop completo"
## [1] "Vamos en el  79.95 % del loop completo"
## [1] "Vamos en el  80.04 % del loop completo"
## [1] "Vamos en el  80.12 % del loop completo"
## [1] "Vamos en el  80.21 % del loop completo"
## [1] "Vamos en el  80.3 % del loop completo"
## [1] "Vamos en el  80.39 % del loop completo"
## [1] "Vamos en el  80.47 % del loop completo"
## [1] "Vamos en el  80.56 % del loop completo"
## [1] "Vamos en el  80.65 % del loop completo"
## [1] "Vamos en el  80.74 % del loop completo"
## [1] "Vamos en el  80.82 % del loop completo"
## [1] "Vamos en el  80.91 % del loop completo"
## [1] "Vamos en el  81 % del loop completo"
## [1] "Vamos en el  81.09 % del loop completo"
## [1] "Vamos en el  81.17 % del loop completo"
## [1] "Vamos en el  81.26 % del loop completo"
## [1] "Vamos en el  81.35 % del loop completo"
## [1] "Vamos en el  81.44 % del loop completo"
## [1] "Vamos en el  81.52 % del loop completo"
## [1] "Vamos en el  81.61 % del loop completo"
## [1] "Vamos en el  81.7 % del loop completo"
## [1] "Vamos en el  81.79 % del loop completo"
## [1] "Vamos en el  81.87 % del loop completo"
## [1] "Vamos en el  81.96 % del loop completo"
## [1] "Vamos en el  82.05 % del loop completo"
## [1] "Vamos en el  82.14 % del loop completo"
## [1] "Vamos en el  82.22 % del loop completo"
## [1] "Vamos en el  82.31 % del loop completo"
## [1] "Vamos en el  82.4 % del loop completo"
## [1] "Vamos en el  82.49 % del loop completo"
## [1] "Vamos en el  82.57 % del loop completo"
## [1] "Vamos en el  82.66 % del loop completo"
## [1] "Vamos en el  82.75 % del loop completo"
## [1] "Vamos en el  82.84 % del loop completo"
## [1] "Vamos en el  82.92 % del loop completo"
## [1] "Vamos en el  83.01 % del loop completo"
## [1] "Vamos en el  83.1 % del loop completo"
## [1] "Vamos en el  83.19 % del loop completo"
## [1] "Vamos en el  83.27 % del loop completo"
## [1] "Vamos en el  83.36 % del loop completo"
## [1] "Vamos en el  83.45 % del loop completo"
## [1] "Vamos en el  83.54 % del loop completo"
## [1] "Vamos en el  83.63 % del loop completo"
## [1] "Vamos en el  83.71 % del loop completo"
## [1] "Vamos en el  83.8 % del loop completo"
## [1] "Vamos en el  83.89 % del loop completo"
## [1] "Vamos en el  83.98 % del loop completo"
## [1] "Vamos en el  84.06 % del loop completo"
## [1] "Vamos en el  84.15 % del loop completo"
## [1] "Vamos en el  84.24 % del loop completo"
## [1] "Vamos en el  84.33 % del loop completo"
## [1] "Vamos en el  84.41 % del loop completo"
## [1] "Vamos en el  84.5 % del loop completo"
## [1] "Vamos en el  84.59 % del loop completo"
## [1] "Vamos en el  84.68 % del loop completo"
## [1] "Vamos en el  84.76 % del loop completo"
## [1] "Vamos en el  84.85 % del loop completo"
## [1] "Vamos en el  84.94 % del loop completo"
## [1] "Vamos en el  85.03 % del loop completo"
## [1] "Vamos en el  85.11 % del loop completo"
## [1] "Vamos en el  85.2 % del loop completo"
## [1] "Vamos en el  85.29 % del loop completo"
## [1] "Vamos en el  85.38 % del loop completo"
## [1] "Vamos en el  85.46 % del loop completo"
## [1] "Vamos en el  85.55 % del loop completo"
## [1] "Vamos en el  85.64 % del loop completo"
## [1] "Vamos en el  85.73 % del loop completo"
## [1] "Vamos en el  85.81 % del loop completo"
## [1] "Vamos en el  85.9 % del loop completo"
## [1] "Vamos en el  85.99 % del loop completo"
## [1] "Vamos en el  86.08 % del loop completo"
## [1] "Vamos en el  86.16 % del loop completo"
## [1] "Vamos en el  86.25 % del loop completo"
## [1] "Vamos en el  86.34 % del loop completo"
## [1] "Vamos en el  86.43 % del loop completo"
## [1] "Vamos en el  86.51 % del loop completo"
## [1] "Vamos en el  86.6 % del loop completo"
## [1] "Vamos en el  86.69 % del loop completo"
## [1] "Vamos en el  86.78 % del loop completo"
## [1] "Vamos en el  86.87 % del loop completo"
## [1] "Vamos en el  86.95 % del loop completo"
## [1] "Vamos en el  87.04 % del loop completo"
## [1] "Vamos en el  87.13 % del loop completo"
## [1] "Vamos en el  87.22 % del loop completo"
## [1] "Vamos en el  87.3 % del loop completo"
## [1] "Vamos en el  87.39 % del loop completo"
## [1] "Vamos en el  87.48 % del loop completo"
## [1] "Vamos en el  87.57 % del loop completo"
## [1] "Vamos en el  87.65 % del loop completo"
## [1] "Vamos en el  87.74 % del loop completo"
## [1] "Vamos en el  87.83 % del loop completo"
## [1] "Vamos en el  87.92 % del loop completo"
## [1] "Vamos en el  88 % del loop completo"
## [1] "Vamos en el  88.09 % del loop completo"
## [1] "Vamos en el  88.18 % del loop completo"
## [1] "Vamos en el  88.27 % del loop completo"
## [1] "Vamos en el  88.35 % del loop completo"
## [1] "Vamos en el  88.44 % del loop completo"
## [1] "Vamos en el  88.53 % del loop completo"
## [1] "Vamos en el  88.62 % del loop completo"
## [1] "Vamos en el  88.7 % del loop completo"
## [1] "Vamos en el  88.79 % del loop completo"
## [1] "Vamos en el  88.88 % del loop completo"
## [1] "Vamos en el  88.97 % del loop completo"
## [1] "Vamos en el  89.05 % del loop completo"
## [1] "Vamos en el  89.14 % del loop completo"
## [1] "Vamos en el  89.23 % del loop completo"
## [1] "Vamos en el  89.32 % del loop completo"
## [1] "Vamos en el  89.4 % del loop completo"
## [1] "Vamos en el  89.49 % del loop completo"
## [1] "Vamos en el  89.58 % del loop completo"
## [1] "Vamos en el  89.67 % del loop completo"
## [1] "Vamos en el  89.75 % del loop completo"
## [1] "Vamos en el  89.84 % del loop completo"
## [1] "Vamos en el  89.93 % del loop completo"
## [1] "Vamos en el  90.02 % del loop completo"
## [1] "Vamos en el  90.11 % del loop completo"
## [1] "Vamos en el  90.19 % del loop completo"
## [1] "Vamos en el  90.28 % del loop completo"
## [1] "Vamos en el  90.37 % del loop completo"
## [1] "Vamos en el  90.46 % del loop completo"
## [1] "Vamos en el  90.54 % del loop completo"
## [1] "Vamos en el  90.63 % del loop completo"
## [1] "Vamos en el  90.72 % del loop completo"
## [1] "Vamos en el  90.81 % del loop completo"
## [1] "Vamos en el  90.89 % del loop completo"
## [1] "Vamos en el  90.98 % del loop completo"
## [1] "Vamos en el  91.07 % del loop completo"
## [1] "Vamos en el  91.16 % del loop completo"
## [1] "Vamos en el  91.24 % del loop completo"
## [1] "Vamos en el  91.33 % del loop completo"
## [1] "Vamos en el  91.42 % del loop completo"
## [1] "Vamos en el  91.51 % del loop completo"
## [1] "Vamos en el  91.59 % del loop completo"
## [1] "Vamos en el  91.68 % del loop completo"
## [1] "Vamos en el  91.77 % del loop completo"
## [1] "Vamos en el  91.86 % del loop completo"
## [1] "Vamos en el  91.94 % del loop completo"
## [1] "Vamos en el  92.03 % del loop completo"
## [1] "Vamos en el  92.12 % del loop completo"
## [1] "Vamos en el  92.21 % del loop completo"
## [1] "Vamos en el  92.29 % del loop completo"
## [1] "Vamos en el  92.38 % del loop completo"
## [1] "Vamos en el  92.47 % del loop completo"
## [1] "Vamos en el  92.56 % del loop completo"
## [1] "Vamos en el  92.64 % del loop completo"
## [1] "Vamos en el  92.73 % del loop completo"
## [1] "Vamos en el  92.82 % del loop completo"
## [1] "Vamos en el  92.91 % del loop completo"
## [1] "Vamos en el  92.99 % del loop completo"
## [1] "Vamos en el  93.08 % del loop completo"
## [1] "Vamos en el  93.17 % del loop completo"
## [1] "Vamos en el  93.26 % del loop completo"
## [1] "Vamos en el  93.35 % del loop completo"
## [1] "Vamos en el  93.43 % del loop completo"
## [1] "Vamos en el  93.52 % del loop completo"
## [1] "Vamos en el  93.61 % del loop completo"
## [1] "Vamos en el  93.7 % del loop completo"
## [1] "Vamos en el  93.78 % del loop completo"
## [1] "Vamos en el  93.87 % del loop completo"
## [1] "Vamos en el  93.96 % del loop completo"
## [1] "Vamos en el  94.05 % del loop completo"
## [1] "Vamos en el  94.13 % del loop completo"
## [1] "Vamos en el  94.22 % del loop completo"
## [1] "Vamos en el  94.31 % del loop completo"
## [1] "Vamos en el  94.4 % del loop completo"
## [1] "Vamos en el  94.48 % del loop completo"
## [1] "Vamos en el  94.57 % del loop completo"
## [1] "Vamos en el  94.66 % del loop completo"
## [1] "Vamos en el  94.75 % del loop completo"
## [1] "Vamos en el  94.83 % del loop completo"
## [1] "Vamos en el  94.92 % del loop completo"
## [1] "Vamos en el  95.01 % del loop completo"
## [1] "Vamos en el  95.1 % del loop completo"
## [1] "Vamos en el  95.18 % del loop completo"
## [1] "Vamos en el  95.27 % del loop completo"
## [1] "Vamos en el  95.36 % del loop completo"
## [1] "Vamos en el  95.45 % del loop completo"
## [1] "Vamos en el  95.53 % del loop completo"
## [1] "Vamos en el  95.62 % del loop completo"
## [1] "Vamos en el  95.71 % del loop completo"
## [1] "Vamos en el  95.8 % del loop completo"
## [1] "Vamos en el  95.88 % del loop completo"
## [1] "Vamos en el  95.97 % del loop completo"
## [1] "Vamos en el  96.06 % del loop completo"
## [1] "Vamos en el  96.15 % del loop completo"
## [1] "Vamos en el  96.23 % del loop completo"
## [1] "Vamos en el  96.32 % del loop completo"
## [1] "Vamos en el  96.41 % del loop completo"
## [1] "Vamos en el  96.5 % del loop completo"
## [1] "Vamos en el  96.58 % del loop completo"
## [1] "Vamos en el  96.67 % del loop completo"
## [1] "Vamos en el  96.76 % del loop completo"
## [1] "Vamos en el  96.85 % del loop completo"
## [1] "Vamos en el  96.94 % del loop completo"
## [1] "Vamos en el  97.02 % del loop completo"
## [1] "Vamos en el  97.11 % del loop completo"
## [1] "Vamos en el  97.2 % del loop completo"
## [1] "Vamos en el  97.29 % del loop completo"
## [1] "Vamos en el  97.37 % del loop completo"
## [1] "Vamos en el  97.46 % del loop completo"
## [1] "Vamos en el  97.55 % del loop completo"
## [1] "Vamos en el  97.64 % del loop completo"
## [1] "Vamos en el  97.72 % del loop completo"
## [1] "Vamos en el  97.81 % del loop completo"
## [1] "Vamos en el  97.9 % del loop completo"
## [1] "Vamos en el  97.99 % del loop completo"
## [1] "Vamos en el  98.07 % del loop completo"
## [1] "Vamos en el  98.16 % del loop completo"
## [1] "Vamos en el  98.25 % del loop completo"
## [1] "Vamos en el  98.34 % del loop completo"
## [1] "Vamos en el  98.42 % del loop completo"
## [1] "Vamos en el  98.51 % del loop completo"
## [1] "Vamos en el  98.6 % del loop completo"
## [1] "Vamos en el  98.69 % del loop completo"
## [1] "Vamos en el  98.77 % del loop completo"
## [1] "Vamos en el  98.86 % del loop completo"
## [1] "Vamos en el  98.95 % del loop completo"
## [1] "Vamos en el  99.04 % del loop completo"
## [1] "Vamos en el  99.12 % del loop completo"
## [1] "Vamos en el  99.21 % del loop completo"
## [1] "Vamos en el  99.3 % del loop completo"
## [1] "Vamos en el  99.39 % del loop completo"
## [1] "Vamos en el  99.47 % del loop completo"
## [1] "Vamos en el  99.56 % del loop completo"
## [1] "Vamos en el  99.65 % del loop completo"
## [1] "Vamos en el  99.74 % del loop completo"
## [1] "Vamos en el  99.82 % del loop completo"
## [1] "Vamos en el  99.91 % del loop completo"
## [1] "Vamos en el  100 % del loop completo"
## [1] "Vamos en el  100.09 % del loop completo"

# Redondeando valores ----
data2$BCOBGOTA <- round(data2$BCOBGOTA, 3)
data2$BCOCCIDENTE <- round(data2$BCOCCIDENTE, 3)
data2$BCOBGOTA_ln <- round(data2$BCOBGOTA_ln, 3)
data2$BCOCCIDENTE_ln <- round(data2$BCOCCIDENTE_ln, 3)
data2$Yt <- round(data2$Yt, 3)
data2$SMA30_Yt <- round(data2$SMA30_Yt, 3)
data2$UpBand <- round(data2$UpBand, 3)
data2$DoBand <- round(data2$DoBand, 3)
data2$Acciones_Occ <- round(data2$Acciones_Occ, 3)
data2$Acciones_BOG <- round(data2$Acciones_BOG, 3)
data2$Costos <- round(data2$Costos, 3)
data2$MontoOcc <- round(data2$MontoOcc, 3)
data2$MontoBOG <- round(data2$MontoBOG, 3)
data2$Utilidad <- round(data2$Utilidad, 3)


# Resultados del Loop----
head(as.data.frame(data2), 32)

##          Date BCOBGOTA BCOCCIDENTE BCOBGOTA_ln BCOCCIDENTE_ln     Yt
## 1  2011-01-06    29140       36720      10.280         10.511 23.121
## 2  2011-01-07    29380       36720      10.288         10.511 22.301
## 3  2011-01-12    29460       36700      10.291         10.511 21.974
## 4  2011-01-13    29740       36720      10.300         10.511 21.083
## 5  2011-01-14    29900       37660      10.306         10.536 23.074
## 6  2011-01-17    30300       38800      10.319         10.566 24.727
## 7  2011-01-18    30340       38800      10.320         10.566 24.595
## 8  2011-01-19    30480       38500      10.325         10.558 23.359
## 9  2011-01-20    30340       37800      10.320         10.540 21.984
## 10 2011-01-21    29940       37500      10.307         10.532 22.515
## 11 2011-01-25    30360       38400      10.321         10.556 23.493
## 12 2011-01-26    29440       37500      10.290         10.532 24.199
## 13 2011-01-27    28700       37500      10.265         10.532 26.744
## 14 2011-01-28    28220       37100      10.248         10.521 27.359
## 15 2011-02-01    28000       37080      10.240         10.521 28.087
## 16 2011-02-03    28400       36000      10.254         10.491 23.713
## 17 2011-02-04    28000       35500      10.240         10.477 23.733
## 18 2011-02-09    27700       36600      10.229         10.508 27.862
## 19 2011-02-10    28200       36500      10.247         10.505 25.799
## 20 2011-02-16    28100       36460      10.244         10.504 26.045
## 21 2011-02-17    27980       35900      10.239         10.488 24.925
## 22 2011-02-18    27600       34800      10.226         10.457 23.180
## 23 2011-02-21    27700       35500      10.229         10.477 24.810
## 24 2011-02-22    27640       35000      10.227         10.463 23.608
## 25 2011-02-23    27500       35100      10.222         10.466 24.402
## 26 2011-02-24    27500       34420      10.222         10.446 22.445
## 27 2011-02-25    27060       34040      10.206         10.435 22.948
## 28 2011-03-01    26660       34500      10.191         10.449 25.780
## 29 2011-03-02    26800       34020      10.196         10.435 23.855
## 30 2011-03-04    27320       34020      10.215         10.435 21.933
## 31 2011-03-07    27620       34000      10.226         10.434 20.782
## 32 2011-03-08    27300       34200      10.215         10.440 22.534
##    SMA30_Yt UpBand DoBand         Posicion Acciones_Occ     MontoOcc
## 1        NA     NA     NA             <NA>           NA           NA
## 2        NA     NA     NA             <NA>           NA           NA
## 3        NA     NA     NA             <NA>           NA           NA
## 4        NA     NA     NA             <NA>           NA           NA
## 5        NA     NA     NA             <NA>           NA           NA
## 6        NA     NA     NA             <NA>           NA           NA
## 7        NA     NA     NA             <NA>           NA           NA
## 8        NA     NA     NA             <NA>           NA           NA
## 9        NA     NA     NA             <NA>           NA           NA
## 10       NA     NA     NA             <NA>           NA           NA
## 11       NA     NA     NA             <NA>           NA           NA
## 12       NA     NA     NA             <NA>           NA           NA
## 13       NA     NA     NA             <NA>           NA           NA
## 14       NA     NA     NA             <NA>           NA           NA
## 15       NA     NA     NA             <NA>           NA           NA
## 16       NA     NA     NA             <NA>           NA           NA
## 17       NA     NA     NA             <NA>           NA           NA
## 18       NA     NA     NA             <NA>           NA           NA
## 19       NA     NA     NA             <NA>           NA           NA
## 20       NA     NA     NA             <NA>           NA           NA
## 21       NA     NA     NA             <NA>           NA           NA
## 22       NA     NA     NA             <NA>           NA           NA
## 23       NA     NA     NA             <NA>           NA           NA
## 24       NA     NA     NA             <NA>           NA           NA
## 25       NA     NA     NA             <NA>           NA           NA
## 26       NA     NA     NA             <NA>           NA           NA
## 27       NA     NA     NA             <NA>           NA           NA
## 28       NA     NA     NA             <NA>           NA           NA
## 29       NA     NA     NA             <NA>           NA           NA
## 30   24.122 26.122 22.122 24.1217093469817       24.122 2.412200e+01
## 31   24.044 26.044 22.044            SALIR     2941.176 1.000000e+08
## 32   24.052 26.052 22.052         MANTENER     2941.176 1.005882e+08
##    Acciones_BOG MontoBOG Costos  Utilidad
## 1            NA       NA     NA 100000000
## 2            NA       NA     NA 100000000
## 3            NA       NA     NA 100000000
## 4            NA       NA     NA 100000000
## 5            NA       NA     NA 100000000
## 6            NA       NA     NA 100000000
## 7            NA       NA     NA 100000000
## 8            NA       NA     NA 100000000
## 9            NA       NA     NA 100000000
## 10           NA       NA     NA 100000000
## 11           NA       NA     NA 100000000
## 12           NA       NA     NA 100000000
## 13           NA       NA     NA 100000000
## 14           NA       NA     NA 100000000
## 15           NA       NA     NA 100000000
## 16           NA       NA     NA 100000000
## 17           NA       NA     NA 100000000
## 18           NA       NA     NA 100000000
## 19           NA       NA     NA 100000000
## 20           NA       NA     NA 100000000
## 21           NA       NA     NA 100000000
## 22           NA       NA     NA 100000000
## 23           NA       NA     NA 100000000
## 24           NA       NA     NA 100000000
## 25           NA       NA     NA 100000000
## 26           NA       NA     NA 100000000
## 27           NA       NA     NA 100000000
## 28           NA       NA     NA 100000000
## 29           NA       NA     NA 100000000
## 30       24.122   24.122 24.122 100000000
## 31        0.000    0.000  0.000 100000000
## 32        0.000    0.000  0.003 100286471

tail(as.data.frame(data2))

##            Date BCOBGOTA BCOCCIDENTE BCOBGOTA_ln BCOCCIDENTE_ln     Yt
## 1137 2016-12-22    27200       36800      10.211         10.513 30.228
## 1138 2016-12-23    26940       36800      10.201         10.513 31.189
## 1139 2016-12-26    27180       37000      10.210         10.519 30.844
## 1140 2016-12-27    26920       37000      10.201         10.519 31.805
## 1141 2016-12-28    27460       37000      10.220         10.519 29.819
## 1142 2016-12-29    27180       37000      10.210         10.519 30.844
##      SMA30_Yt UpBand DoBand Posicion Acciones_Occ  MontoOcc Acciones_BOG
## 1137   30.871 32.871 28.871 MANTENER     6896.468 253790019            0
## 1138   31.072 33.072 29.072 MANTENER     6896.468 253790019            0
## 1139   31.159 33.159 29.159 MANTENER     6896.468 255169312            0
## 1140   31.231 33.231 29.231 MANTENER     6896.468 255169312            0
## 1141   31.203 33.203 29.203 MANTENER     6896.468 255169312            0
## 1142   31.214 33.214 29.214 MANTENER     6896.468 255169312            0
##      MontoBOG Costos  Utilidad
## 1137        0  0.003 253028649
## 1138        0  0.003 253028649
## 1139        0  0.003 254403804
## 1140        0  0.003 254403804
## 1141        0  0.003 254403804
## 1142        0  0.003 254403804

# Grafico de Bogotá ----
ggplot(data = data2,
       aes(x = data2$Date,
           y = data2$BCOBGOTA, color= "Bogotá")) + geom_line() + ggtitle("Acción de Bogotá") + xlab("Tiempo") + ylab("Valor de Acción")

# Grafico de Occidente ----
ggplot(data = data2,
       aes(x = data2$Date,
           y = data2$BCOCCIDENTE, color= "Occidente")) + geom_line() + ggtitle("Acción de Occidente") + xlab("Tiempo") + ylab("Valor de Acción")

# Grafico de las dos Acciones ----
ggplot(data = data2,
       aes(x = data2$Date,
           y = data2$BCOCCIDENTE, color= "Bogotá")) + geom_line(
             
           ) + geom_line(aes(x = data2$Date,
                             y = data2$BCOBGOTA, color = "Occidente")
           ) + ggtitle("Acción de Occidente y Bogotá") + xlab("Tiempo") + ylab("Valor de Acción")

# Grafico con Yt ----
ggplot(data = data2,
       aes(x = data2$Date,
           y = data2$Yt, color = "Yt")) + geom_line(
             
           ) + geom_line(aes(x = data2$Date,
                             y = data2$SMA30_Yt, color = "SMA")
           ) + ggtitle("Acción de Occidente y Bogotá") + xlab("Tiempo") + ylab("Valor de Acción")

## Warning: Removed 29 rows containing missing values (geom_path).

# Grafico con Yt ----
ggplot(data = data2,
       aes(x = data2$Date,
           y = data2$Yt, color = "Yt")) + geom_line(
             
           ) + geom_line(aes(x = data2$Date,
                             y = data2$SMA30_Yt, color = "SMA")
           ) + geom_line(aes(x = data2$Date,
                             y = data2$UpBand, color = "Upper Band")
           ) + geom_line(aes(x = data2$Date,
                             y = data2$DoBand, color = "Down Band")
           ) + ggtitle("Acción de Occidente y Bogotá") + xlab("Tiempo") + ylab("Valor de Acción")

## Warning: Removed 29 rows containing missing values (geom_path).

## Warning: Removed 29 rows containing missing values (geom_path).

## Warning: Removed 29 rows containing missing values (geom_path).

# Grafico de utilidad -----
ggplot(data = data2,
       aes(x = data2$Date,
           y = data2$Utilidad, color= "Utilidad")) + geom_line() + ggtitle("Curva de Utilidad") + xlab("Tiempo") + ylab("Inversión")

##########################################################################################################################
##########################################################################################################################
##                                                                                                                      ##
##                                                   SEGUNDO SPREAD                                                     ##
##                                                                                                                      ##
##########################################################################################################################
##########################################################################################################################


# Leyendo la Data----
data3 <- read_excel("data.xlsx",
                    sheet = "SPREAD_2", 
                    col_types = c("date",
                                  "numeric",
                                  "numeric"))


# Sacando Logatimos naturales----
data3$PFDVVNDA_ln <- log(data3$PFDVVNDA)
data3$PFBCOLOMBIA_ln <- log(data3$PFBCOLOMBIA)

# Sacando diferencial y media movil de 30 días del diferencial----
data3$Yt <- ((data3$PFBCOLOMBIA_ln - data3$PFDVVNDA_ln) * 100)
data3$SMA30_Yt <- SMA(data3$Yt, 30)

#Sacando Banda superior e inferior ----
data3$UpBand <- data3$SMA30_Yt + 2
data3$DoBand <- data3$SMA30_Yt - 2

# Creando variables para llenar estrategia de Trading ----
data3$Posicion <- data3$SMA30_Yt
data3$Acciones_DVV <- data3$SMA30_Yt
data3$MontoDVV <- data3$SMA30_Yt
data3$Acciones_BCO <- data3$SMA30_Yt
data3$MontoBCO <- data3$SMA30_Yt
data3$Costos <- data3$SMA30_Yt
data3$Utilidad <- data3$SMA30_Yt
data3$Utilidad <- 100000000

# Generando el Loop ----
i <- 31

while (i <= length(data3$SMA30_Yt)) {
  
  if(data3$Yt[i] < data3$DoBand[i]) {
    data3$Posicion[i] <- "SALIR"
  } else if (data3$Yt[i] > data3$UpBand[i]) {
    data3$Posicion[i] <- "ENTRAR"
  } else {
    data3$Posicion[i] <- "MANTENER"
  }
  
  if (data3$Posicion[i] == "ENTRAR") {
    data3$Acciones_DVV[i] <- data3$Utilidad[i-1]/data3$PFDVVNDA[i]
    data3$Acciones_BCO[i] <- 0
  } else if (data3$Posicion[i] == "SALIR") {
    data3$Acciones_BCO[i] <- data3$Utilidad[i-1]/data3$PFBCOLOMBIA[i]
    data3$Acciones_DVV[i] <- 0
  } else {
    data3$Acciones_BCO[i] <- data3$Acciones_BCO[i-1]
    data3$Acciones_DVV[i] <- data3$Acciones_DVV[i-1]
  }
  
  data3$MontoBCO[i] <- data3$PFBCOLOMBIA[i] * data3$Acciones_BCO[i]
  data3$MontoDVV[i] <- data3$PFDVVNDA[i] * data3$Acciones_DVV[i]
  
  if (data3$Acciones_BCO[i] == data3$Acciones_BCO[i-1] & data3$Acciones_DVV[i] == data3$Acciones_DVV[i-1]) {
    data3$Costos[i] <- 0.003
  } else {
    data3$Costos[i] <- 0
  }
  data3$Utilidad[i] <- (data3$MontoDVV[i] + data3$MontoBCO[i]) - ((data3$MontoDVV[i] + data3$MontoBCO[i]) * data3$Costos[i])
  i <- i + 1
  print(paste("Vamos en el ",round(((i/length(data3$SMA30_Yt))*100),2), "% del loop completo"))
}

## [1] "Vamos en el  2.8 % del loop completo"
## [1] "Vamos en el  2.89 % del loop completo"
## [1] "Vamos en el  2.98 % del loop completo"
## [1] "Vamos en el  3.06 % del loop completo"
## [1] "Vamos en el  3.15 % del loop completo"
## [1] "Vamos en el  3.24 % del loop completo"
## [1] "Vamos en el  3.33 % del loop completo"
## [1] "Vamos en el  3.42 % del loop completo"
## [1] "Vamos en el  3.5 % del loop completo"
## [1] "Vamos en el  3.59 % del loop completo"
## [1] "Vamos en el  3.68 % del loop completo"
## [1] "Vamos en el  3.77 % del loop completo"
## [1] "Vamos en el  3.85 % del loop completo"
## [1] "Vamos en el  3.94 % del loop completo"
## [1] "Vamos en el  4.03 % del loop completo"
## [1] "Vamos en el  4.12 % del loop completo"
## [1] "Vamos en el  4.2 % del loop completo"
## [1] "Vamos en el  4.29 % del loop completo"
## [1] "Vamos en el  4.38 % del loop completo"
## [1] "Vamos en el  4.47 % del loop completo"
## [1] "Vamos en el  4.55 % del loop completo"
## [1] "Vamos en el  4.64 % del loop completo"
## [1] "Vamos en el  4.73 % del loop completo"
## [1] "Vamos en el  4.82 % del loop completo"
## [1] "Vamos en el  4.9 % del loop completo"
## [1] "Vamos en el  4.99 % del loop completo"
## [1] "Vamos en el  5.08 % del loop completo"
## [1] "Vamos en el  5.17 % del loop completo"
## [1] "Vamos en el  5.25 % del loop completo"
## [1] "Vamos en el  5.34 % del loop completo"
## [1] "Vamos en el  5.43 % del loop completo"
## [1] "Vamos en el  5.52 % del loop completo"
## [1] "Vamos en el  5.6 % del loop completo"
## [1] "Vamos en el  5.69 % del loop completo"
## [1] "Vamos en el  5.78 % del loop completo"
## [1] "Vamos en el  5.87 % del loop completo"
## [1] "Vamos en el  5.95 % del loop completo"
## [1] "Vamos en el  6.04 % del loop completo"
## [1] "Vamos en el  6.13 % del loop completo"
## [1] "Vamos en el  6.22 % del loop completo"
## [1] "Vamos en el  6.3 % del loop completo"
## [1] "Vamos en el  6.39 % del loop completo"
## [1] "Vamos en el  6.48 % del loop completo"
## [1] "Vamos en el  6.57 % del loop completo"
## [1] "Vamos en el  6.65 % del loop completo"
## [1] "Vamos en el  6.74 % del loop completo"
## [1] "Vamos en el  6.83 % del loop completo"
## [1] "Vamos en el  6.92 % del loop completo"
## [1] "Vamos en el  7.01 % del loop completo"
## [1] "Vamos en el  7.09 % del loop completo"
## [1] "Vamos en el  7.18 % del loop completo"
## [1] "Vamos en el  7.27 % del loop completo"
## [1] "Vamos en el  7.36 % del loop completo"
## [1] "Vamos en el  7.44 % del loop completo"
## [1] "Vamos en el  7.53 % del loop completo"
## [1] "Vamos en el  7.62 % del loop completo"
## [1] "Vamos en el  7.71 % del loop completo"
## [1] "Vamos en el  7.79 % del loop completo"
## [1] "Vamos en el  7.88 % del loop completo"
## [1] "Vamos en el  7.97 % del loop completo"
## [1] "Vamos en el  8.06 % del loop completo"
## [1] "Vamos en el  8.14 % del loop completo"
## [1] "Vamos en el  8.23 % del loop completo"
## [1] "Vamos en el  8.32 % del loop completo"
## [1] "Vamos en el  8.41 % del loop completo"
## [1] "Vamos en el  8.49 % del loop completo"
## [1] "Vamos en el  8.58 % del loop completo"
## [1] "Vamos en el  8.67 % del loop completo"
## [1] "Vamos en el  8.76 % del loop completo"
## [1] "Vamos en el  8.84 % del loop completo"
## [1] "Vamos en el  8.93 % del loop completo"
## [1] "Vamos en el  9.02 % del loop completo"
## [1] "Vamos en el  9.11 % del loop completo"
## [1] "Vamos en el  9.19 % del loop completo"
## [1] "Vamos en el  9.28 % del loop completo"
## [1] "Vamos en el  9.37 % del loop completo"
## [1] "Vamos en el  9.46 % del loop completo"
## [1] "Vamos en el  9.54 % del loop completo"
## [1] "Vamos en el  9.63 % del loop completo"
## [1] "Vamos en el  9.72 % del loop completo"
## [1] "Vamos en el  9.81 % del loop completo"
## [1] "Vamos en el  9.89 % del loop completo"
## [1] "Vamos en el  9.98 % del loop completo"
## [1] "Vamos en el  10.07 % del loop completo"
## [1] "Vamos en el  10.16 % del loop completo"
## [1] "Vamos en el  10.25 % del loop completo"
## [1] "Vamos en el  10.33 % del loop completo"
## [1] "Vamos en el  10.42 % del loop completo"
## [1] "Vamos en el  10.51 % del loop completo"
## [1] "Vamos en el  10.6 % del loop completo"
## [1] "Vamos en el  10.68 % del loop completo"
## [1] "Vamos en el  10.77 % del loop completo"
## [1] "Vamos en el  10.86 % del loop completo"
## [1] "Vamos en el  10.95 % del loop completo"
## [1] "Vamos en el  11.03 % del loop completo"
## [1] "Vamos en el  11.12 % del loop completo"
## [1] "Vamos en el  11.21 % del loop completo"
## [1] "Vamos en el  11.3 % del loop completo"
## [1] "Vamos en el  11.38 % del loop completo"
## [1] "Vamos en el  11.47 % del loop completo"
## [1] "Vamos en el  11.56 % del loop completo"
## [1] "Vamos en el  11.65 % del loop completo"
## [1] "Vamos en el  11.73 % del loop completo"
## [1] "Vamos en el  11.82 % del loop completo"
## [1] "Vamos en el  11.91 % del loop completo"
## [1] "Vamos en el  12 % del loop completo"
## [1] "Vamos en el  12.08 % del loop completo"
## [1] "Vamos en el  12.17 % del loop completo"
## [1] "Vamos en el  12.26 % del loop completo"
## [1] "Vamos en el  12.35 % del loop completo"
## [1] "Vamos en el  12.43 % del loop completo"
## [1] "Vamos en el  12.52 % del loop completo"
## [1] "Vamos en el  12.61 % del loop completo"
## [1] "Vamos en el  12.7 % del loop completo"
## [1] "Vamos en el  12.78 % del loop completo"
## [1] "Vamos en el  12.87 % del loop completo"
## [1] "Vamos en el  12.96 % del loop completo"
## [1] "Vamos en el  13.05 % del loop completo"
## [1] "Vamos en el  13.13 % del loop completo"
## [1] "Vamos en el  13.22 % del loop completo"
## [1] "Vamos en el  13.31 % del loop completo"
## [1] "Vamos en el  13.4 % del loop completo"
## [1] "Vamos en el  13.49 % del loop completo"
## [1] "Vamos en el  13.57 % del loop completo"
## [1] "Vamos en el  13.66 % del loop completo"
## [1] "Vamos en el  13.75 % del loop completo"
## [1] "Vamos en el  13.84 % del loop completo"
## [1] "Vamos en el  13.92 % del loop completo"
## [1] "Vamos en el  14.01 % del loop completo"
## [1] "Vamos en el  14.1 % del loop completo"
## [1] "Vamos en el  14.19 % del loop completo"
## [1] "Vamos en el  14.27 % del loop completo"
## [1] "Vamos en el  14.36 % del loop completo"
## [1] "Vamos en el  14.45 % del loop completo"
## [1] "Vamos en el  14.54 % del loop completo"
## [1] "Vamos en el  14.62 % del loop completo"
## [1] "Vamos en el  14.71 % del loop completo"
## [1] "Vamos en el  14.8 % del loop completo"
## [1] "Vamos en el  14.89 % del loop completo"
## [1] "Vamos en el  14.97 % del loop completo"
## [1] "Vamos en el  15.06 % del loop completo"
## [1] "Vamos en el  15.15 % del loop completo"
## [1] "Vamos en el  15.24 % del loop completo"
## [1] "Vamos en el  15.32 % del loop completo"
## [1] "Vamos en el  15.41 % del loop completo"
## [1] "Vamos en el  15.5 % del loop completo"
## [1] "Vamos en el  15.59 % del loop completo"
## [1] "Vamos en el  15.67 % del loop completo"
## [1] "Vamos en el  15.76 % del loop completo"
## [1] "Vamos en el  15.85 % del loop completo"
## [1] "Vamos en el  15.94 % del loop completo"
## [1] "Vamos en el  16.02 % del loop completo"
## [1] "Vamos en el  16.11 % del loop completo"
## [1] "Vamos en el  16.2 % del loop completo"
## [1] "Vamos en el  16.29 % del loop completo"
## [1] "Vamos en el  16.37 % del loop completo"
## [1] "Vamos en el  16.46 % del loop completo"
## [1] "Vamos en el  16.55 % del loop completo"
## [1] "Vamos en el  16.64 % del loop completo"
## [1] "Vamos en el  16.73 % del loop completo"
## [1] "Vamos en el  16.81 % del loop completo"
## [1] "Vamos en el  16.9 % del loop completo"
## [1] "Vamos en el  16.99 % del loop completo"
## [1] "Vamos en el  17.08 % del loop completo"
## [1] "Vamos en el  17.16 % del loop completo"
## [1] "Vamos en el  17.25 % del loop completo"
## [1] "Vamos en el  17.34 % del loop completo"
## [1] "Vamos en el  17.43 % del loop completo"
## [1] "Vamos en el  17.51 % del loop completo"
## [1] "Vamos en el  17.6 % del loop completo"
## [1] "Vamos en el  17.69 % del loop completo"
## [1] "Vamos en el  17.78 % del loop completo"
## [1] "Vamos en el  17.86 % del loop completo"
## [1] "Vamos en el  17.95 % del loop completo"
## [1] "Vamos en el  18.04 % del loop completo"
## [1] "Vamos en el  18.13 % del loop completo"
## [1] "Vamos en el  18.21 % del loop completo"
## [1] "Vamos en el  18.3 % del loop completo"
## [1] "Vamos en el  18.39 % del loop completo"
## [1] "Vamos en el  18.48 % del loop completo"
## [1] "Vamos en el  18.56 % del loop completo"
## [1] "Vamos en el  18.65 % del loop completo"
## [1] "Vamos en el  18.74 % del loop completo"
## [1] "Vamos en el  18.83 % del loop completo"
## [1] "Vamos en el  18.91 % del loop completo"
## [1] "Vamos en el  19 % del loop completo"
## [1] "Vamos en el  19.09 % del loop completo"
## [1] "Vamos en el  19.18 % del loop completo"
## [1] "Vamos en el  19.26 % del loop completo"
## [1] "Vamos en el  19.35 % del loop completo"
## [1] "Vamos en el  19.44 % del loop completo"
## [1] "Vamos en el  19.53 % del loop completo"
## [1] "Vamos en el  19.61 % del loop completo"
## [1] "Vamos en el  19.7 % del loop completo"
## [1] "Vamos en el  19.79 % del loop completo"
## [1] "Vamos en el  19.88 % del loop completo"
## [1] "Vamos en el  19.96 % del loop completo"
## [1] "Vamos en el  20.05 % del loop completo"
## [1] "Vamos en el  20.14 % del loop completo"
## [1] "Vamos en el  20.23 % del loop completo"
## [1] "Vamos en el  20.32 % del loop completo"
## [1] "Vamos en el  20.4 % del loop completo"
## [1] "Vamos en el  20.49 % del loop completo"
## [1] "Vamos en el  20.58 % del loop completo"
## [1] "Vamos en el  20.67 % del loop completo"
## [1] "Vamos en el  20.75 % del loop completo"
## [1] "Vamos en el  20.84 % del loop completo"
## [1] "Vamos en el  20.93 % del loop completo"
## [1] "Vamos en el  21.02 % del loop completo"
## [1] "Vamos en el  21.1 % del loop completo"
## [1] "Vamos en el  21.19 % del loop completo"
## [1] "Vamos en el  21.28 % del loop completo"
## [1] "Vamos en el  21.37 % del loop completo"
## [1] "Vamos en el  21.45 % del loop completo"
## [1] "Vamos en el  21.54 % del loop completo"
## [1] "Vamos en el  21.63 % del loop completo"
## [1] "Vamos en el  21.72 % del loop completo"
## [1] "Vamos en el  21.8 % del loop completo"
## [1] "Vamos en el  21.89 % del loop completo"
## [1] "Vamos en el  21.98 % del loop completo"
## [1] "Vamos en el  22.07 % del loop completo"
## [1] "Vamos en el  22.15 % del loop completo"
## [1] "Vamos en el  22.24 % del loop completo"
## [1] "Vamos en el  22.33 % del loop completo"
## [1] "Vamos en el  22.42 % del loop completo"
## [1] "Vamos en el  22.5 % del loop completo"
## [1] "Vamos en el  22.59 % del loop completo"
## [1] "Vamos en el  22.68 % del loop completo"
## [1] "Vamos en el  22.77 % del loop completo"
## [1] "Vamos en el  22.85 % del loop completo"
## [1] "Vamos en el  22.94 % del loop completo"
## [1] "Vamos en el  23.03 % del loop completo"
## [1] "Vamos en el  23.12 % del loop completo"
## [1] "Vamos en el  23.2 % del loop completo"
## [1] "Vamos en el  23.29 % del loop completo"
## [1] "Vamos en el  23.38 % del loop completo"
## [1] "Vamos en el  23.47 % del loop completo"
## [1] "Vamos en el  23.56 % del loop completo"
## [1] "Vamos en el  23.64 % del loop completo"
## [1] "Vamos en el  23.73 % del loop completo"
## [1] "Vamos en el  23.82 % del loop completo"
## [1] "Vamos en el  23.91 % del loop completo"
## [1] "Vamos en el  23.99 % del loop completo"
## [1] "Vamos en el  24.08 % del loop completo"
## [1] "Vamos en el  24.17 % del loop completo"
## [1] "Vamos en el  24.26 % del loop completo"
## [1] "Vamos en el  24.34 % del loop completo"
## [1] "Vamos en el  24.43 % del loop completo"
## [1] "Vamos en el  24.52 % del loop completo"
## [1] "Vamos en el  24.61 % del loop completo"
## [1] "Vamos en el  24.69 % del loop completo"
## [1] "Vamos en el  24.78 % del loop completo"
## [1] "Vamos en el  24.87 % del loop completo"
## [1] "Vamos en el  24.96 % del loop completo"
## [1] "Vamos en el  25.04 % del loop completo"
## [1] "Vamos en el  25.13 % del loop completo"
## [1] "Vamos en el  25.22 % del loop completo"
## [1] "Vamos en el  25.31 % del loop completo"
## [1] "Vamos en el  25.39 % del loop completo"
## [1] "Vamos en el  25.48 % del loop completo"
## [1] "Vamos en el  25.57 % del loop completo"
## [1] "Vamos en el  25.66 % del loop completo"
## [1] "Vamos en el  25.74 % del loop completo"
## [1] "Vamos en el  25.83 % del loop completo"
## [1] "Vamos en el  25.92 % del loop completo"
## [1] "Vamos en el  26.01 % del loop completo"
## [1] "Vamos en el  26.09 % del loop completo"
## [1] "Vamos en el  26.18 % del loop completo"
## [1] "Vamos en el  26.27 % del loop completo"
## [1] "Vamos en el  26.36 % del loop completo"
## [1] "Vamos en el  26.44 % del loop completo"
## [1] "Vamos en el  26.53 % del loop completo"
## [1] "Vamos en el  26.62 % del loop completo"
## [1] "Vamos en el  26.71 % del loop completo"
## [1] "Vamos en el  26.8 % del loop completo"
## [1] "Vamos en el  26.88 % del loop completo"
## [1] "Vamos en el  26.97 % del loop completo"
## [1] "Vamos en el  27.06 % del loop completo"
## [1] "Vamos en el  27.15 % del loop completo"
## [1] "Vamos en el  27.23 % del loop completo"
## [1] "Vamos en el  27.32 % del loop completo"
## [1] "Vamos en el  27.41 % del loop completo"
## [1] "Vamos en el  27.5 % del loop completo"
## [1] "Vamos en el  27.58 % del loop completo"
## [1] "Vamos en el  27.67 % del loop completo"
## [1] "Vamos en el  27.76 % del loop completo"
## [1] "Vamos en el  27.85 % del loop completo"
## [1] "Vamos en el  27.93 % del loop completo"
## [1] "Vamos en el  28.02 % del loop completo"
## [1] "Vamos en el  28.11 % del loop completo"
## [1] "Vamos en el  28.2 % del loop completo"
## [1] "Vamos en el  28.28 % del loop completo"
## [1] "Vamos en el  28.37 % del loop completo"
## [1] "Vamos en el  28.46 % del loop completo"
## [1] "Vamos en el  28.55 % del loop completo"
## [1] "Vamos en el  28.63 % del loop completo"
## [1] "Vamos en el  28.72 % del loop completo"
## [1] "Vamos en el  28.81 % del loop completo"
## [1] "Vamos en el  28.9 % del loop completo"
## [1] "Vamos en el  28.98 % del loop completo"
## [1] "Vamos en el  29.07 % del loop completo"
## [1] "Vamos en el  29.16 % del loop completo"
## [1] "Vamos en el  29.25 % del loop completo"
## [1] "Vamos en el  29.33 % del loop completo"
## [1] "Vamos en el  29.42 % del loop completo"
## [1] "Vamos en el  29.51 % del loop completo"
## [1] "Vamos en el  29.6 % del loop completo"
## [1] "Vamos en el  29.68 % del loop completo"
## [1] "Vamos en el  29.77 % del loop completo"
## [1] "Vamos en el  29.86 % del loop completo"
## [1] "Vamos en el  29.95 % del loop completo"
## [1] "Vamos en el  30.04 % del loop completo"
## [1] "Vamos en el  30.12 % del loop completo"
## [1] "Vamos en el  30.21 % del loop completo"
## [1] "Vamos en el  30.3 % del loop completo"
## [1] "Vamos en el  30.39 % del loop completo"
## [1] "Vamos en el  30.47 % del loop completo"
## [1] "Vamos en el  30.56 % del loop completo"
## [1] "Vamos en el  30.65 % del loop completo"
## [1] "Vamos en el  30.74 % del loop completo"
## [1] "Vamos en el  30.82 % del loop completo"
## [1] "Vamos en el  30.91 % del loop completo"
## [1] "Vamos en el  31 % del loop completo"
## [1] "Vamos en el  31.09 % del loop completo"
## [1] "Vamos en el  31.17 % del loop completo"
## [1] "Vamos en el  31.26 % del loop completo"
## [1] "Vamos en el  31.35 % del loop completo"
## [1] "Vamos en el  31.44 % del loop completo"
## [1] "Vamos en el  31.52 % del loop completo"
## [1] "Vamos en el  31.61 % del loop completo"
## [1] "Vamos en el  31.7 % del loop completo"
## [1] "Vamos en el  31.79 % del loop completo"
## [1] "Vamos en el  31.87 % del loop completo"
## [1] "Vamos en el  31.96 % del loop completo"
## [1] "Vamos en el  32.05 % del loop completo"
## [1] "Vamos en el  32.14 % del loop completo"
## [1] "Vamos en el  32.22 % del loop completo"
## [1] "Vamos en el  32.31 % del loop completo"
## [1] "Vamos en el  32.4 % del loop completo"
## [1] "Vamos en el  32.49 % del loop completo"
## [1] "Vamos en el  32.57 % del loop completo"
## [1] "Vamos en el  32.66 % del loop completo"
## [1] "Vamos en el  32.75 % del loop completo"
## [1] "Vamos en el  32.84 % del loop completo"
## [1] "Vamos en el  32.92 % del loop completo"
## [1] "Vamos en el  33.01 % del loop completo"
## [1] "Vamos en el  33.1 % del loop completo"
## [1] "Vamos en el  33.19 % del loop completo"
## [1] "Vamos en el  33.27 % del loop completo"
## [1] "Vamos en el  33.36 % del loop completo"
## [1] "Vamos en el  33.45 % del loop completo"
## [1] "Vamos en el  33.54 % del loop completo"
## [1] "Vamos en el  33.63 % del loop completo"
## [1] "Vamos en el  33.71 % del loop completo"
## [1] "Vamos en el  33.8 % del loop completo"
## [1] "Vamos en el  33.89 % del loop completo"
## [1] "Vamos en el  33.98 % del loop completo"
## [1] "Vamos en el  34.06 % del loop completo"
## [1] "Vamos en el  34.15 % del loop completo"
## [1] "Vamos en el  34.24 % del loop completo"
## [1] "Vamos en el  34.33 % del loop completo"
## [1] "Vamos en el  34.41 % del loop completo"
## [1] "Vamos en el  34.5 % del loop completo"
## [1] "Vamos en el  34.59 % del loop completo"
## [1] "Vamos en el  34.68 % del loop completo"
## [1] "Vamos en el  34.76 % del loop completo"
## [1] "Vamos en el  34.85 % del loop completo"
## [1] "Vamos en el  34.94 % del loop completo"
## [1] "Vamos en el  35.03 % del loop completo"
## [1] "Vamos en el  35.11 % del loop completo"
## [1] "Vamos en el  35.2 % del loop completo"
## [1] "Vamos en el  35.29 % del loop completo"
## [1] "Vamos en el  35.38 % del loop completo"
## [1] "Vamos en el  35.46 % del loop completo"
## [1] "Vamos en el  35.55 % del loop completo"
## [1] "Vamos en el  35.64 % del loop completo"
## [1] "Vamos en el  35.73 % del loop completo"
## [1] "Vamos en el  35.81 % del loop completo"
## [1] "Vamos en el  35.9 % del loop completo"
## [1] "Vamos en el  35.99 % del loop completo"
## [1] "Vamos en el  36.08 % del loop completo"
## [1] "Vamos en el  36.16 % del loop completo"
## [1] "Vamos en el  36.25 % del loop completo"
## [1] "Vamos en el  36.34 % del loop completo"
## [1] "Vamos en el  36.43 % del loop completo"
## [1] "Vamos en el  36.51 % del loop completo"
## [1] "Vamos en el  36.6 % del loop completo"
## [1] "Vamos en el  36.69 % del loop completo"
## [1] "Vamos en el  36.78 % del loop completo"
## [1] "Vamos en el  36.87 % del loop completo"
## [1] "Vamos en el  36.95 % del loop completo"
## [1] "Vamos en el  37.04 % del loop completo"
## [1] "Vamos en el  37.13 % del loop completo"
## [1] "Vamos en el  37.22 % del loop completo"
## [1] "Vamos en el  37.3 % del loop completo"
## [1] "Vamos en el  37.39 % del loop completo"
## [1] "Vamos en el  37.48 % del loop completo"
## [1] "Vamos en el  37.57 % del loop completo"
## [1] "Vamos en el  37.65 % del loop completo"
## [1] "Vamos en el  37.74 % del loop completo"
## [1] "Vamos en el  37.83 % del loop completo"
## [1] "Vamos en el  37.92 % del loop completo"
## [1] "Vamos en el  38 % del loop completo"
## [1] "Vamos en el  38.09 % del loop completo"
## [1] "Vamos en el  38.18 % del loop completo"
## [1] "Vamos en el  38.27 % del loop completo"
## [1] "Vamos en el  38.35 % del loop completo"
## [1] "Vamos en el  38.44 % del loop completo"
## [1] "Vamos en el  38.53 % del loop completo"
## [1] "Vamos en el  38.62 % del loop completo"
## [1] "Vamos en el  38.7 % del loop completo"
## [1] "Vamos en el  38.79 % del loop completo"
## [1] "Vamos en el  38.88 % del loop completo"
## [1] "Vamos en el  38.97 % del loop completo"
## [1] "Vamos en el  39.05 % del loop completo"
## [1] "Vamos en el  39.14 % del loop completo"
## [1] "Vamos en el  39.23 % del loop completo"
## [1] "Vamos en el  39.32 % del loop completo"
## [1] "Vamos en el  39.4 % del loop completo"
## [1] "Vamos en el  39.49 % del loop completo"
## [1] "Vamos en el  39.58 % del loop completo"
## [1] "Vamos en el  39.67 % del loop completo"
## [1] "Vamos en el  39.75 % del loop completo"
## [1] "Vamos en el  39.84 % del loop completo"
## [1] "Vamos en el  39.93 % del loop completo"
## [1] "Vamos en el  40.02 % del loop completo"
## [1] "Vamos en el  40.11 % del loop completo"
## [1] "Vamos en el  40.19 % del loop completo"
## [1] "Vamos en el  40.28 % del loop completo"
## [1] "Vamos en el  40.37 % del loop completo"
## [1] "Vamos en el  40.46 % del loop completo"
## [1] "Vamos en el  40.54 % del loop completo"
## [1] "Vamos en el  40.63 % del loop completo"
## [1] "Vamos en el  40.72 % del loop completo"
## [1] "Vamos en el  40.81 % del loop completo"
## [1] "Vamos en el  40.89 % del loop completo"
## [1] "Vamos en el  40.98 % del loop completo"
## [1] "Vamos en el  41.07 % del loop completo"
## [1] "Vamos en el  41.16 % del loop completo"
## [1] "Vamos en el  41.24 % del loop completo"
## [1] "Vamos en el  41.33 % del loop completo"
## [1] "Vamos en el  41.42 % del loop completo"
## [1] "Vamos en el  41.51 % del loop completo"
## [1] "Vamos en el  41.59 % del loop completo"
## [1] "Vamos en el  41.68 % del loop completo"
## [1] "Vamos en el  41.77 % del loop completo"
## [1] "Vamos en el  41.86 % del loop completo"
## [1] "Vamos en el  41.94 % del loop completo"
## [1] "Vamos en el  42.03 % del loop completo"
## [1] "Vamos en el  42.12 % del loop completo"
## [1] "Vamos en el  42.21 % del loop completo"
## [1] "Vamos en el  42.29 % del loop completo"
## [1] "Vamos en el  42.38 % del loop completo"
## [1] "Vamos en el  42.47 % del loop completo"
## [1] "Vamos en el  42.56 % del loop completo"
## [1] "Vamos en el  42.64 % del loop completo"
## [1] "Vamos en el  42.73 % del loop completo"
## [1] "Vamos en el  42.82 % del loop completo"
## [1] "Vamos en el  42.91 % del loop completo"
## [1] "Vamos en el  42.99 % del loop completo"
## [1] "Vamos en el  43.08 % del loop completo"
## [1] "Vamos en el  43.17 % del loop completo"
## [1] "Vamos en el  43.26 % del loop completo"
## [1] "Vamos en el  43.35 % del loop completo"
## [1] "Vamos en el  43.43 % del loop completo"
## [1] "Vamos en el  43.52 % del loop completo"
## [1] "Vamos en el  43.61 % del loop completo"
## [1] "Vamos en el  43.7 % del loop completo"
## [1] "Vamos en el  43.78 % del loop completo"
## [1] "Vamos en el  43.87 % del loop completo"
## [1] "Vamos en el  43.96 % del loop completo"
## [1] "Vamos en el  44.05 % del loop completo"
## [1] "Vamos en el  44.13 % del loop completo"
## [1] "Vamos en el  44.22 % del loop completo"
## [1] "Vamos en el  44.31 % del loop completo"
## [1] "Vamos en el  44.4 % del loop completo"
## [1] "Vamos en el  44.48 % del loop completo"
## [1] "Vamos en el  44.57 % del loop completo"
## [1] "Vamos en el  44.66 % del loop completo"
## [1] "Vamos en el  44.75 % del loop completo"
## [1] "Vamos en el  44.83 % del loop completo"
## [1] "Vamos en el  44.92 % del loop completo"
## [1] "Vamos en el  45.01 % del loop completo"
## [1] "Vamos en el  45.1 % del loop completo"
## [1] "Vamos en el  45.18 % del loop completo"
## [1] "Vamos en el  45.27 % del loop completo"
## [1] "Vamos en el  45.36 % del loop completo"
## [1] "Vamos en el  45.45 % del loop completo"
## [1] "Vamos en el  45.53 % del loop completo"
## [1] "Vamos en el  45.62 % del loop completo"
## [1] "Vamos en el  45.71 % del loop completo"
## [1] "Vamos en el  45.8 % del loop completo"
## [1] "Vamos en el  45.88 % del loop completo"
## [1] "Vamos en el  45.97 % del loop completo"
## [1] "Vamos en el  46.06 % del loop completo"
## [1] "Vamos en el  46.15 % del loop completo"
## [1] "Vamos en el  46.23 % del loop completo"
## [1] "Vamos en el  46.32 % del loop completo"
## [1] "Vamos en el  46.41 % del loop completo"
## [1] "Vamos en el  46.5 % del loop completo"
## [1] "Vamos en el  46.58 % del loop completo"
## [1] "Vamos en el  46.67 % del loop completo"
## [1] "Vamos en el  46.76 % del loop completo"
## [1] "Vamos en el  46.85 % del loop completo"
## [1] "Vamos en el  46.94 % del loop completo"
## [1] "Vamos en el  47.02 % del loop completo"
## [1] "Vamos en el  47.11 % del loop completo"
## [1] "Vamos en el  47.2 % del loop completo"
## [1] "Vamos en el  47.29 % del loop completo"
## [1] "Vamos en el  47.37 % del loop completo"
## [1] "Vamos en el  47.46 % del loop completo"
## [1] "Vamos en el  47.55 % del loop completo"
## [1] "Vamos en el  47.64 % del loop completo"
## [1] "Vamos en el  47.72 % del loop completo"
## [1] "Vamos en el  47.81 % del loop completo"
## [1] "Vamos en el  47.9 % del loop completo"
## [1] "Vamos en el  47.99 % del loop completo"
## [1] "Vamos en el  48.07 % del loop completo"
## [1] "Vamos en el  48.16 % del loop completo"
## [1] "Vamos en el  48.25 % del loop completo"
## [1] "Vamos en el  48.34 % del loop completo"
## [1] "Vamos en el  48.42 % del loop completo"
## [1] "Vamos en el  48.51 % del loop completo"
## [1] "Vamos en el  48.6 % del loop completo"
## [1] "Vamos en el  48.69 % del loop completo"
## [1] "Vamos en el  48.77 % del loop completo"
## [1] "Vamos en el  48.86 % del loop completo"
## [1] "Vamos en el  48.95 % del loop completo"
## [1] "Vamos en el  49.04 % del loop completo"
## [1] "Vamos en el  49.12 % del loop completo"
## [1] "Vamos en el  49.21 % del loop completo"
## [1] "Vamos en el  49.3 % del loop completo"
## [1] "Vamos en el  49.39 % del loop completo"
## [1] "Vamos en el  49.47 % del loop completo"
## [1] "Vamos en el  49.56 % del loop completo"
## [1] "Vamos en el  49.65 % del loop completo"
## [1] "Vamos en el  49.74 % del loop completo"
## [1] "Vamos en el  49.82 % del loop completo"
## [1] "Vamos en el  49.91 % del loop completo"
## [1] "Vamos en el  50 % del loop completo"
## [1] "Vamos en el  50.09 % del loop completo"
## [1] "Vamos en el  50.18 % del loop completo"
## [1] "Vamos en el  50.26 % del loop completo"
## [1] "Vamos en el  50.35 % del loop completo"
## [1] "Vamos en el  50.44 % del loop completo"
## [1] "Vamos en el  50.53 % del loop completo"
## [1] "Vamos en el  50.61 % del loop completo"
## [1] "Vamos en el  50.7 % del loop completo"
## [1] "Vamos en el  50.79 % del loop completo"
## [1] "Vamos en el  50.88 % del loop completo"
## [1] "Vamos en el  50.96 % del loop completo"
## [1] "Vamos en el  51.05 % del loop completo"
## [1] "Vamos en el  51.14 % del loop completo"
## [1] "Vamos en el  51.23 % del loop completo"
## [1] "Vamos en el  51.31 % del loop completo"
## [1] "Vamos en el  51.4 % del loop completo"
## [1] "Vamos en el  51.49 % del loop completo"
## [1] "Vamos en el  51.58 % del loop completo"
## [1] "Vamos en el  51.66 % del loop completo"
## [1] "Vamos en el  51.75 % del loop completo"
## [1] "Vamos en el  51.84 % del loop completo"
## [1] "Vamos en el  51.93 % del loop completo"
## [1] "Vamos en el  52.01 % del loop completo"
## [1] "Vamos en el  52.1 % del loop completo"
## [1] "Vamos en el  52.19 % del loop completo"
## [1] "Vamos en el  52.28 % del loop completo"
## [1] "Vamos en el  52.36 % del loop completo"
## [1] "Vamos en el  52.45 % del loop completo"
## [1] "Vamos en el  52.54 % del loop completo"
## [1] "Vamos en el  52.63 % del loop completo"
## [1] "Vamos en el  52.71 % del loop completo"
## [1] "Vamos en el  52.8 % del loop completo"
## [1] "Vamos en el  52.89 % del loop completo"
## [1] "Vamos en el  52.98 % del loop completo"
## [1] "Vamos en el  53.06 % del loop completo"
## [1] "Vamos en el  53.15 % del loop completo"
## [1] "Vamos en el  53.24 % del loop completo"
## [1] "Vamos en el  53.33 % del loop completo"
## [1] "Vamos en el  53.42 % del loop completo"
## [1] "Vamos en el  53.5 % del loop completo"
## [1] "Vamos en el  53.59 % del loop completo"
## [1] "Vamos en el  53.68 % del loop completo"
## [1] "Vamos en el  53.77 % del loop completo"
## [1] "Vamos en el  53.85 % del loop completo"
## [1] "Vamos en el  53.94 % del loop completo"
## [1] "Vamos en el  54.03 % del loop completo"
## [1] "Vamos en el  54.12 % del loop completo"
## [1] "Vamos en el  54.2 % del loop completo"
## [1] "Vamos en el  54.29 % del loop completo"
## [1] "Vamos en el  54.38 % del loop completo"
## [1] "Vamos en el  54.47 % del loop completo"
## [1] "Vamos en el  54.55 % del loop completo"
## [1] "Vamos en el  54.64 % del loop completo"
## [1] "Vamos en el  54.73 % del loop completo"
## [1] "Vamos en el  54.82 % del loop completo"
## [1] "Vamos en el  54.9 % del loop completo"
## [1] "Vamos en el  54.99 % del loop completo"
## [1] "Vamos en el  55.08 % del loop completo"
## [1] "Vamos en el  55.17 % del loop completo"
## [1] "Vamos en el  55.25 % del loop completo"
## [1] "Vamos en el  55.34 % del loop completo"
## [1] "Vamos en el  55.43 % del loop completo"
## [1] "Vamos en el  55.52 % del loop completo"
## [1] "Vamos en el  55.6 % del loop completo"
## [1] "Vamos en el  55.69 % del loop completo"
## [1] "Vamos en el  55.78 % del loop completo"
## [1] "Vamos en el  55.87 % del loop completo"
## [1] "Vamos en el  55.95 % del loop completo"
## [1] "Vamos en el  56.04 % del loop completo"
## [1] "Vamos en el  56.13 % del loop completo"
## [1] "Vamos en el  56.22 % del loop completo"
## [1] "Vamos en el  56.3 % del loop completo"
## [1] "Vamos en el  56.39 % del loop completo"
## [1] "Vamos en el  56.48 % del loop completo"
## [1] "Vamos en el  56.57 % del loop completo"
## [1] "Vamos en el  56.65 % del loop completo"
## [1] "Vamos en el  56.74 % del loop completo"
## [1] "Vamos en el  56.83 % del loop completo"
## [1] "Vamos en el  56.92 % del loop completo"
## [1] "Vamos en el  57.01 % del loop completo"
## [1] "Vamos en el  57.09 % del loop completo"
## [1] "Vamos en el  57.18 % del loop completo"
## [1] "Vamos en el  57.27 % del loop completo"
## [1] "Vamos en el  57.36 % del loop completo"
## [1] "Vamos en el  57.44 % del loop completo"
## [1] "Vamos en el  57.53 % del loop completo"
## [1] "Vamos en el  57.62 % del loop completo"
## [1] "Vamos en el  57.71 % del loop completo"
## [1] "Vamos en el  57.79 % del loop completo"
## [1] "Vamos en el  57.88 % del loop completo"
## [1] "Vamos en el  57.97 % del loop completo"
## [1] "Vamos en el  58.06 % del loop completo"
## [1] "Vamos en el  58.14 % del loop completo"
## [1] "Vamos en el  58.23 % del loop completo"
## [1] "Vamos en el  58.32 % del loop completo"
## [1] "Vamos en el  58.41 % del loop completo"
## [1] "Vamos en el  58.49 % del loop completo"
## [1] "Vamos en el  58.58 % del loop completo"
## [1] "Vamos en el  58.67 % del loop completo"
## [1] "Vamos en el  58.76 % del loop completo"
## [1] "Vamos en el  58.84 % del loop completo"
## [1] "Vamos en el  58.93 % del loop completo"
## [1] "Vamos en el  59.02 % del loop completo"
## [1] "Vamos en el  59.11 % del loop completo"
## [1] "Vamos en el  59.19 % del loop completo"
## [1] "Vamos en el  59.28 % del loop completo"
## [1] "Vamos en el  59.37 % del loop completo"
## [1] "Vamos en el  59.46 % del loop completo"
## [1] "Vamos en el  59.54 % del loop completo"
## [1] "Vamos en el  59.63 % del loop completo"
## [1] "Vamos en el  59.72 % del loop completo"
## [1] "Vamos en el  59.81 % del loop completo"
## [1] "Vamos en el  59.89 % del loop completo"
## [1] "Vamos en el  59.98 % del loop completo"
## [1] "Vamos en el  60.07 % del loop completo"
## [1] "Vamos en el  60.16 % del loop completo"
## [1] "Vamos en el  60.25 % del loop completo"
## [1] "Vamos en el  60.33 % del loop completo"
## [1] "Vamos en el  60.42 % del loop completo"
## [1] "Vamos en el  60.51 % del loop completo"
## [1] "Vamos en el  60.6 % del loop completo"
## [1] "Vamos en el  60.68 % del loop completo"
## [1] "Vamos en el  60.77 % del loop completo"
## [1] "Vamos en el  60.86 % del loop completo"
## [1] "Vamos en el  60.95 % del loop completo"
## [1] "Vamos en el  61.03 % del loop completo"
## [1] "Vamos en el  61.12 % del loop completo"
## [1] "Vamos en el  61.21 % del loop completo"
## [1] "Vamos en el  61.3 % del loop completo"
## [1] "Vamos en el  61.38 % del loop completo"
## [1] "Vamos en el  61.47 % del loop completo"
## [1] "Vamos en el  61.56 % del loop completo"
## [1] "Vamos en el  61.65 % del loop completo"
## [1] "Vamos en el  61.73 % del loop completo"
## [1] "Vamos en el  61.82 % del loop completo"
## [1] "Vamos en el  61.91 % del loop completo"
## [1] "Vamos en el  62 % del loop completo"
## [1] "Vamos en el  62.08 % del loop completo"
## [1] "Vamos en el  62.17 % del loop completo"
## [1] "Vamos en el  62.26 % del loop completo"
## [1] "Vamos en el  62.35 % del loop completo"
## [1] "Vamos en el  62.43 % del loop completo"
## [1] "Vamos en el  62.52 % del loop completo"
## [1] "Vamos en el  62.61 % del loop completo"
## [1] "Vamos en el  62.7 % del loop completo"
## [1] "Vamos en el  62.78 % del loop completo"
## [1] "Vamos en el  62.87 % del loop completo"
## [1] "Vamos en el  62.96 % del loop completo"
## [1] "Vamos en el  63.05 % del loop completo"
## [1] "Vamos en el  63.13 % del loop completo"
## [1] "Vamos en el  63.22 % del loop completo"
## [1] "Vamos en el  63.31 % del loop completo"
## [1] "Vamos en el  63.4 % del loop completo"
## [1] "Vamos en el  63.49 % del loop completo"
## [1] "Vamos en el  63.57 % del loop completo"
## [1] "Vamos en el  63.66 % del loop completo"
## [1] "Vamos en el  63.75 % del loop completo"
## [1] "Vamos en el  63.84 % del loop completo"
## [1] "Vamos en el  63.92 % del loop completo"
## [1] "Vamos en el  64.01 % del loop completo"
## [1] "Vamos en el  64.1 % del loop completo"
## [1] "Vamos en el  64.19 % del loop completo"
## [1] "Vamos en el  64.27 % del loop completo"
## [1] "Vamos en el  64.36 % del loop completo"
## [1] "Vamos en el  64.45 % del loop completo"
## [1] "Vamos en el  64.54 % del loop completo"
## [1] "Vamos en el  64.62 % del loop completo"
## [1] "Vamos en el  64.71 % del loop completo"
## [1] "Vamos en el  64.8 % del loop completo"
## [1] "Vamos en el  64.89 % del loop completo"
## [1] "Vamos en el  64.97 % del loop completo"
## [1] "Vamos en el  65.06 % del loop completo"
## [1] "Vamos en el  65.15 % del loop completo"
## [1] "Vamos en el  65.24 % del loop completo"
## [1] "Vamos en el  65.32 % del loop completo"
## [1] "Vamos en el  65.41 % del loop completo"
## [1] "Vamos en el  65.5 % del loop completo"
## [1] "Vamos en el  65.59 % del loop completo"
## [1] "Vamos en el  65.67 % del loop completo"
## [1] "Vamos en el  65.76 % del loop completo"
## [1] "Vamos en el  65.85 % del loop completo"
## [1] "Vamos en el  65.94 % del loop completo"
## [1] "Vamos en el  66.02 % del loop completo"
## [1] "Vamos en el  66.11 % del loop completo"
## [1] "Vamos en el  66.2 % del loop completo"
## [1] "Vamos en el  66.29 % del loop completo"
## [1] "Vamos en el  66.37 % del loop completo"
## [1] "Vamos en el  66.46 % del loop completo"
## [1] "Vamos en el  66.55 % del loop completo"
## [1] "Vamos en el  66.64 % del loop completo"
## [1] "Vamos en el  66.73 % del loop completo"
## [1] "Vamos en el  66.81 % del loop completo"
## [1] "Vamos en el  66.9 % del loop completo"
## [1] "Vamos en el  66.99 % del loop completo"
## [1] "Vamos en el  67.08 % del loop completo"
## [1] "Vamos en el  67.16 % del loop completo"
## [1] "Vamos en el  67.25 % del loop completo"
## [1] "Vamos en el  67.34 % del loop completo"
## [1] "Vamos en el  67.43 % del loop completo"
## [1] "Vamos en el  67.51 % del loop completo"
## [1] "Vamos en el  67.6 % del loop completo"
## [1] "Vamos en el  67.69 % del loop completo"
## [1] "Vamos en el  67.78 % del loop completo"
## [1] "Vamos en el  67.86 % del loop completo"
## [1] "Vamos en el  67.95 % del loop completo"
## [1] "Vamos en el  68.04 % del loop completo"
## [1] "Vamos en el  68.13 % del loop completo"
## [1] "Vamos en el  68.21 % del loop completo"
## [1] "Vamos en el  68.3 % del loop completo"
## [1] "Vamos en el  68.39 % del loop completo"
## [1] "Vamos en el  68.48 % del loop completo"
## [1] "Vamos en el  68.56 % del loop completo"
## [1] "Vamos en el  68.65 % del loop completo"
## [1] "Vamos en el  68.74 % del loop completo"
## [1] "Vamos en el  68.83 % del loop completo"
## [1] "Vamos en el  68.91 % del loop completo"
## [1] "Vamos en el  69 % del loop completo"
## [1] "Vamos en el  69.09 % del loop completo"
## [1] "Vamos en el  69.18 % del loop completo"
## [1] "Vamos en el  69.26 % del loop completo"
## [1] "Vamos en el  69.35 % del loop completo"
## [1] "Vamos en el  69.44 % del loop completo"
## [1] "Vamos en el  69.53 % del loop completo"
## [1] "Vamos en el  69.61 % del loop completo"
## [1] "Vamos en el  69.7 % del loop completo"
## [1] "Vamos en el  69.79 % del loop completo"
## [1] "Vamos en el  69.88 % del loop completo"
## [1] "Vamos en el  69.96 % del loop completo"
## [1] "Vamos en el  70.05 % del loop completo"
## [1] "Vamos en el  70.14 % del loop completo"
## [1] "Vamos en el  70.23 % del loop completo"
## [1] "Vamos en el  70.32 % del loop completo"
## [1] "Vamos en el  70.4 % del loop completo"
## [1] "Vamos en el  70.49 % del loop completo"
## [1] "Vamos en el  70.58 % del loop completo"
## [1] "Vamos en el  70.67 % del loop completo"
## [1] "Vamos en el  70.75 % del loop completo"
## [1] "Vamos en el  70.84 % del loop completo"
## [1] "Vamos en el  70.93 % del loop completo"
## [1] "Vamos en el  71.02 % del loop completo"
## [1] "Vamos en el  71.1 % del loop completo"
## [1] "Vamos en el  71.19 % del loop completo"
## [1] "Vamos en el  71.28 % del loop completo"
## [1] "Vamos en el  71.37 % del loop completo"
## [1] "Vamos en el  71.45 % del loop completo"
## [1] "Vamos en el  71.54 % del loop completo"
## [1] "Vamos en el  71.63 % del loop completo"
## [1] "Vamos en el  71.72 % del loop completo"
## [1] "Vamos en el  71.8 % del loop completo"
## [1] "Vamos en el  71.89 % del loop completo"
## [1] "Vamos en el  71.98 % del loop completo"
## [1] "Vamos en el  72.07 % del loop completo"
## [1] "Vamos en el  72.15 % del loop completo"
## [1] "Vamos en el  72.24 % del loop completo"
## [1] "Vamos en el  72.33 % del loop completo"
## [1] "Vamos en el  72.42 % del loop completo"
## [1] "Vamos en el  72.5 % del loop completo"
## [1] "Vamos en el  72.59 % del loop completo"
## [1] "Vamos en el  72.68 % del loop completo"
## [1] "Vamos en el  72.77 % del loop completo"
## [1] "Vamos en el  72.85 % del loop completo"
## [1] "Vamos en el  72.94 % del loop completo"
## [1] "Vamos en el  73.03 % del loop completo"
## [1] "Vamos en el  73.12 % del loop completo"
## [1] "Vamos en el  73.2 % del loop completo"
## [1] "Vamos en el  73.29 % del loop completo"
## [1] "Vamos en el  73.38 % del loop completo"
## [1] "Vamos en el  73.47 % del loop completo"
## [1] "Vamos en el  73.56 % del loop completo"
## [1] "Vamos en el  73.64 % del loop completo"
## [1] "Vamos en el  73.73 % del loop completo"
## [1] "Vamos en el  73.82 % del loop completo"
## [1] "Vamos en el  73.91 % del loop completo"
## [1] "Vamos en el  73.99 % del loop completo"
## [1] "Vamos en el  74.08 % del loop completo"
## [1] "Vamos en el  74.17 % del loop completo"
## [1] "Vamos en el  74.26 % del loop completo"
## [1] "Vamos en el  74.34 % del loop completo"
## [1] "Vamos en el  74.43 % del loop completo"
## [1] "Vamos en el  74.52 % del loop completo"
## [1] "Vamos en el  74.61 % del loop completo"
## [1] "Vamos en el  74.69 % del loop completo"
## [1] "Vamos en el  74.78 % del loop completo"
## [1] "Vamos en el  74.87 % del loop completo"
## [1] "Vamos en el  74.96 % del loop completo"
## [1] "Vamos en el  75.04 % del loop completo"
## [1] "Vamos en el  75.13 % del loop completo"
## [1] "Vamos en el  75.22 % del loop completo"
## [1] "Vamos en el  75.31 % del loop completo"
## [1] "Vamos en el  75.39 % del loop completo"
## [1] "Vamos en el  75.48 % del loop completo"
## [1] "Vamos en el  75.57 % del loop completo"
## [1] "Vamos en el  75.66 % del loop completo"
## [1] "Vamos en el  75.74 % del loop completo"
## [1] "Vamos en el  75.83 % del loop completo"
## [1] "Vamos en el  75.92 % del loop completo"
## [1] "Vamos en el  76.01 % del loop completo"
## [1] "Vamos en el  76.09 % del loop completo"
## [1] "Vamos en el  76.18 % del loop completo"
## [1] "Vamos en el  76.27 % del loop completo"
## [1] "Vamos en el  76.36 % del loop completo"
## [1] "Vamos en el  76.44 % del loop completo"
## [1] "Vamos en el  76.53 % del loop completo"
## [1] "Vamos en el  76.62 % del loop completo"
## [1] "Vamos en el  76.71 % del loop completo"
## [1] "Vamos en el  76.8 % del loop completo"
## [1] "Vamos en el  76.88 % del loop completo"
## [1] "Vamos en el  76.97 % del loop completo"
## [1] "Vamos en el  77.06 % del loop completo"
## [1] "Vamos en el  77.15 % del loop completo"
## [1] "Vamos en el  77.23 % del loop completo"
## [1] "Vamos en el  77.32 % del loop completo"
## [1] "Vamos en el  77.41 % del loop completo"
## [1] "Vamos en el  77.5 % del loop completo"
## [1] "Vamos en el  77.58 % del loop completo"
## [1] "Vamos en el  77.67 % del loop completo"
## [1] "Vamos en el  77.76 % del loop completo"
## [1] "Vamos en el  77.85 % del loop completo"
## [1] "Vamos en el  77.93 % del loop completo"
## [1] "Vamos en el  78.02 % del loop completo"
## [1] "Vamos en el  78.11 % del loop completo"
## [1] "Vamos en el  78.2 % del loop completo"
## [1] "Vamos en el  78.28 % del loop completo"
## [1] "Vamos en el  78.37 % del loop completo"
## [1] "Vamos en el  78.46 % del loop completo"
## [1] "Vamos en el  78.55 % del loop completo"
## [1] "Vamos en el  78.63 % del loop completo"
## [1] "Vamos en el  78.72 % del loop completo"
## [1] "Vamos en el  78.81 % del loop completo"
## [1] "Vamos en el  78.9 % del loop completo"
## [1] "Vamos en el  78.98 % del loop completo"
## [1] "Vamos en el  79.07 % del loop completo"
## [1] "Vamos en el  79.16 % del loop completo"
## [1] "Vamos en el  79.25 % del loop completo"
## [1] "Vamos en el  79.33 % del loop completo"
## [1] "Vamos en el  79.42 % del loop completo"
## [1] "Vamos en el  79.51 % del loop completo"
## [1] "Vamos en el  79.6 % del loop completo"
## [1] "Vamos en el  79.68 % del loop completo"
## [1] "Vamos en el  79.77 % del loop completo"
## [1] "Vamos en el  79.86 % del loop completo"
## [1] "Vamos en el  79.95 % del loop completo"
## [1] "Vamos en el  80.04 % del loop completo"
## [1] "Vamos en el  80.12 % del loop completo"
## [1] "Vamos en el  80.21 % del loop completo"
## [1] "Vamos en el  80.3 % del loop completo"
## [1] "Vamos en el  80.39 % del loop completo"
## [1] "Vamos en el  80.47 % del loop completo"
## [1] "Vamos en el  80.56 % del loop completo"
## [1] "Vamos en el  80.65 % del loop completo"
## [1] "Vamos en el  80.74 % del loop completo"
## [1] "Vamos en el  80.82 % del loop completo"
## [1] "Vamos en el  80.91 % del loop completo"
## [1] "Vamos en el  81 % del loop completo"
## [1] "Vamos en el  81.09 % del loop completo"
## [1] "Vamos en el  81.17 % del loop completo"
## [1] "Vamos en el  81.26 % del loop completo"
## [1] "Vamos en el  81.35 % del loop completo"
## [1] "Vamos en el  81.44 % del loop completo"
## [1] "Vamos en el  81.52 % del loop completo"
## [1] "Vamos en el  81.61 % del loop completo"
## [1] "Vamos en el  81.7 % del loop completo"
## [1] "Vamos en el  81.79 % del loop completo"
## [1] "Vamos en el  81.87 % del loop completo"
## [1] "Vamos en el  81.96 % del loop completo"
## [1] "Vamos en el  82.05 % del loop completo"
## [1] "Vamos en el  82.14 % del loop completo"
## [1] "Vamos en el  82.22 % del loop completo"
## [1] "Vamos en el  82.31 % del loop completo"
## [1] "Vamos en el  82.4 % del loop completo"
## [1] "Vamos en el  82.49 % del loop completo"
## [1] "Vamos en el  82.57 % del loop completo"
## [1] "Vamos en el  82.66 % del loop completo"
## [1] "Vamos en el  82.75 % del loop completo"
## [1] "Vamos en el  82.84 % del loop completo"
## [1] "Vamos en el  82.92 % del loop completo"
## [1] "Vamos en el  83.01 % del loop completo"
## [1] "Vamos en el  83.1 % del loop completo"
## [1] "Vamos en el  83.19 % del loop completo"
## [1] "Vamos en el  83.27 % del loop completo"
## [1] "Vamos en el  83.36 % del loop completo"
## [1] "Vamos en el  83.45 % del loop completo"
## [1] "Vamos en el  83.54 % del loop completo"
## [1] "Vamos en el  83.63 % del loop completo"
## [1] "Vamos en el  83.71 % del loop completo"
## [1] "Vamos en el  83.8 % del loop completo"
## [1] "Vamos en el  83.89 % del loop completo"
## [1] "Vamos en el  83.98 % del loop completo"
## [1] "Vamos en el  84.06 % del loop completo"
## [1] "Vamos en el  84.15 % del loop completo"
## [1] "Vamos en el  84.24 % del loop completo"
## [1] "Vamos en el  84.33 % del loop completo"
## [1] "Vamos en el  84.41 % del loop completo"
## [1] "Vamos en el  84.5 % del loop completo"
## [1] "Vamos en el  84.59 % del loop completo"
## [1] "Vamos en el  84.68 % del loop completo"
## [1] "Vamos en el  84.76 % del loop completo"
## [1] "Vamos en el  84.85 % del loop completo"
## [1] "Vamos en el  84.94 % del loop completo"
## [1] "Vamos en el  85.03 % del loop completo"
## [1] "Vamos en el  85.11 % del loop completo"
## [1] "Vamos en el  85.2 % del loop completo"
## [1] "Vamos en el  85.29 % del loop completo"
## [1] "Vamos en el  85.38 % del loop completo"
## [1] "Vamos en el  85.46 % del loop completo"
## [1] "Vamos en el  85.55 % del loop completo"
## [1] "Vamos en el  85.64 % del loop completo"
## [1] "Vamos en el  85.73 % del loop completo"
## [1] "Vamos en el  85.81 % del loop completo"
## [1] "Vamos en el  85.9 % del loop completo"
## [1] "Vamos en el  85.99 % del loop completo"
## [1] "Vamos en el  86.08 % del loop completo"
## [1] "Vamos en el  86.16 % del loop completo"
## [1] "Vamos en el  86.25 % del loop completo"
## [1] "Vamos en el  86.34 % del loop completo"
## [1] "Vamos en el  86.43 % del loop completo"
## [1] "Vamos en el  86.51 % del loop completo"
## [1] "Vamos en el  86.6 % del loop completo"
## [1] "Vamos en el  86.69 % del loop completo"
## [1] "Vamos en el  86.78 % del loop completo"
## [1] "Vamos en el  86.87 % del loop completo"
## [1] "Vamos en el  86.95 % del loop completo"
## [1] "Vamos en el  87.04 % del loop completo"
## [1] "Vamos en el  87.13 % del loop completo"
## [1] "Vamos en el  87.22 % del loop completo"
## [1] "Vamos en el  87.3 % del loop completo"
## [1] "Vamos en el  87.39 % del loop completo"
## [1] "Vamos en el  87.48 % del loop completo"
## [1] "Vamos en el  87.57 % del loop completo"
## [1] "Vamos en el  87.65 % del loop completo"
## [1] "Vamos en el  87.74 % del loop completo"
## [1] "Vamos en el  87.83 % del loop completo"
## [1] "Vamos en el  87.92 % del loop completo"
## [1] "Vamos en el  88 % del loop completo"
## [1] "Vamos en el  88.09 % del loop completo"
## [1] "Vamos en el  88.18 % del loop completo"
## [1] "Vamos en el  88.27 % del loop completo"
## [1] "Vamos en el  88.35 % del loop completo"
## [1] "Vamos en el  88.44 % del loop completo"
## [1] "Vamos en el  88.53 % del loop completo"
## [1] "Vamos en el  88.62 % del loop completo"
## [1] "Vamos en el  88.7 % del loop completo"
## [1] "Vamos en el  88.79 % del loop completo"
## [1] "Vamos en el  88.88 % del loop completo"
## [1] "Vamos en el  88.97 % del loop completo"
## [1] "Vamos en el  89.05 % del loop completo"
## [1] "Vamos en el  89.14 % del loop completo"
## [1] "Vamos en el  89.23 % del loop completo"
## [1] "Vamos en el  89.32 % del loop completo"
## [1] "Vamos en el  89.4 % del loop completo"
## [1] "Vamos en el  89.49 % del loop completo"
## [1] "Vamos en el  89.58 % del loop completo"
## [1] "Vamos en el  89.67 % del loop completo"
## [1] "Vamos en el  89.75 % del loop completo"
## [1] "Vamos en el  89.84 % del loop completo"
## [1] "Vamos en el  89.93 % del loop completo"
## [1] "Vamos en el  90.02 % del loop completo"
## [1] "Vamos en el  90.11 % del loop completo"
## [1] "Vamos en el  90.19 % del loop completo"
## [1] "Vamos en el  90.28 % del loop completo"
## [1] "Vamos en el  90.37 % del loop completo"
## [1] "Vamos en el  90.46 % del loop completo"
## [1] "Vamos en el  90.54 % del loop completo"
## [1] "Vamos en el  90.63 % del loop completo"
## [1] "Vamos en el  90.72 % del loop completo"
## [1] "Vamos en el  90.81 % del loop completo"
## [1] "Vamos en el  90.89 % del loop completo"
## [1] "Vamos en el  90.98 % del loop completo"
## [1] "Vamos en el  91.07 % del loop completo"
## [1] "Vamos en el  91.16 % del loop completo"
## [1] "Vamos en el  91.24 % del loop completo"
## [1] "Vamos en el  91.33 % del loop completo"
## [1] "Vamos en el  91.42 % del loop completo"
## [1] "Vamos en el  91.51 % del loop completo"
## [1] "Vamos en el  91.59 % del loop completo"
## [1] "Vamos en el  91.68 % del loop completo"
## [1] "Vamos en el  91.77 % del loop completo"
## [1] "Vamos en el  91.86 % del loop completo"
## [1] "Vamos en el  91.94 % del loop completo"
## [1] "Vamos en el  92.03 % del loop completo"
## [1] "Vamos en el  92.12 % del loop completo"
## [1] "Vamos en el  92.21 % del loop completo"
## [1] "Vamos en el  92.29 % del loop completo"
## [1] "Vamos en el  92.38 % del loop completo"
## [1] "Vamos en el  92.47 % del loop completo"
## [1] "Vamos en el  92.56 % del loop completo"
## [1] "Vamos en el  92.64 % del loop completo"
## [1] "Vamos en el  92.73 % del loop completo"
## [1] "Vamos en el  92.82 % del loop completo"
## [1] "Vamos en el  92.91 % del loop completo"
## [1] "Vamos en el  92.99 % del loop completo"
## [1] "Vamos en el  93.08 % del loop completo"
## [1] "Vamos en el  93.17 % del loop completo"
## [1] "Vamos en el  93.26 % del loop completo"
## [1] "Vamos en el  93.35 % del loop completo"
## [1] "Vamos en el  93.43 % del loop completo"
## [1] "Vamos en el  93.52 % del loop completo"
## [1] "Vamos en el  93.61 % del loop completo"
## [1] "Vamos en el  93.7 % del loop completo"
## [1] "Vamos en el  93.78 % del loop completo"
## [1] "Vamos en el  93.87 % del loop completo"
## [1] "Vamos en el  93.96 % del loop completo"
## [1] "Vamos en el  94.05 % del loop completo"
## [1] "Vamos en el  94.13 % del loop completo"
## [1] "Vamos en el  94.22 % del loop completo"
## [1] "Vamos en el  94.31 % del loop completo"
## [1] "Vamos en el  94.4 % del loop completo"
## [1] "Vamos en el  94.48 % del loop completo"
## [1] "Vamos en el  94.57 % del loop completo"
## [1] "Vamos en el  94.66 % del loop completo"
## [1] "Vamos en el  94.75 % del loop completo"
## [1] "Vamos en el  94.83 % del loop completo"
## [1] "Vamos en el  94.92 % del loop completo"
## [1] "Vamos en el  95.01 % del loop completo"
## [1] "Vamos en el  95.1 % del loop completo"
## [1] "Vamos en el  95.18 % del loop completo"
## [1] "Vamos en el  95.27 % del loop completo"
## [1] "Vamos en el  95.36 % del loop completo"
## [1] "Vamos en el  95.45 % del loop completo"
## [1] "Vamos en el  95.53 % del loop completo"
## [1] "Vamos en el  95.62 % del loop completo"
## [1] "Vamos en el  95.71 % del loop completo"
## [1] "Vamos en el  95.8 % del loop completo"
## [1] "Vamos en el  95.88 % del loop completo"
## [1] "Vamos en el  95.97 % del loop completo"
## [1] "Vamos en el  96.06 % del loop completo"
## [1] "Vamos en el  96.15 % del loop completo"
## [1] "Vamos en el  96.23 % del loop completo"
## [1] "Vamos en el  96.32 % del loop completo"
## [1] "Vamos en el  96.41 % del loop completo"
## [1] "Vamos en el  96.5 % del loop completo"
## [1] "Vamos en el  96.58 % del loop completo"
## [1] "Vamos en el  96.67 % del loop completo"
## [1] "Vamos en el  96.76 % del loop completo"
## [1] "Vamos en el  96.85 % del loop completo"
## [1] "Vamos en el  96.94 % del loop completo"
## [1] "Vamos en el  97.02 % del loop completo"
## [1] "Vamos en el  97.11 % del loop completo"
## [1] "Vamos en el  97.2 % del loop completo"
## [1] "Vamos en el  97.29 % del loop completo"
## [1] "Vamos en el  97.37 % del loop completo"
## [1] "Vamos en el  97.46 % del loop completo"
## [1] "Vamos en el  97.55 % del loop completo"
## [1] "Vamos en el  97.64 % del loop completo"
## [1] "Vamos en el  97.72 % del loop completo"
## [1] "Vamos en el  97.81 % del loop completo"
## [1] "Vamos en el  97.9 % del loop completo"
## [1] "Vamos en el  97.99 % del loop completo"
## [1] "Vamos en el  98.07 % del loop completo"
## [1] "Vamos en el  98.16 % del loop completo"
## [1] "Vamos en el  98.25 % del loop completo"
## [1] "Vamos en el  98.34 % del loop completo"
## [1] "Vamos en el  98.42 % del loop completo"
## [1] "Vamos en el  98.51 % del loop completo"
## [1] "Vamos en el  98.6 % del loop completo"
## [1] "Vamos en el  98.69 % del loop completo"
## [1] "Vamos en el  98.77 % del loop completo"
## [1] "Vamos en el  98.86 % del loop completo"
## [1] "Vamos en el  98.95 % del loop completo"
## [1] "Vamos en el  99.04 % del loop completo"
## [1] "Vamos en el  99.12 % del loop completo"
## [1] "Vamos en el  99.21 % del loop completo"
## [1] "Vamos en el  99.3 % del loop completo"
## [1] "Vamos en el  99.39 % del loop completo"
## [1] "Vamos en el  99.47 % del loop completo"
## [1] "Vamos en el  99.56 % del loop completo"
## [1] "Vamos en el  99.65 % del loop completo"
## [1] "Vamos en el  99.74 % del loop completo"
## [1] "Vamos en el  99.82 % del loop completo"
## [1] "Vamos en el  99.91 % del loop completo"
## [1] "Vamos en el  100 % del loop completo"
## [1] "Vamos en el  100.09 % del loop completo"

# Redondeando valores ----
data3$PFDVVNDA <- round(data3$PFDVVNDA, 3)
data3$PFBCOLOMBIA <- round(data3$PFBCOLOMBIA, 3)
data3$PFDVVNDA_ln <- round(data3$PFDVVNDA_ln, 3)
data3$PFBCOLOMBIA_ln <- round(data3$PFBCOLOMBIA_ln, 3)
data3$Yt <- round(data3$Yt, 3)
data3$SMA30_Yt <- round(data3$SMA30_Yt, 3)
data3$UpBand <- round(data3$UpBand, 3)
data3$DoBand <- round(data3$DoBand, 3)
data3$Acciones_BCO <- round(data3$Acciones_BCO, 3)
data3$Acciones_DVV <- round(data3$Acciones_DVV, 3)
data3$Costos <- round(data3$Costos, 3)
data3$MontoBCO <- round(data3$MontoBCO, 3)
data3$MontoDVV <- round(data3$MontoDVV, 3)
data3$Utilidad <- round(data3$Utilidad, 3)


# Resultados del Loop----
head(as.data.frame(data3), 32)

##          Date PFDVVNDA PFBCOLOMBIA PFDVVNDA_ln PFBCOLOMBIA_ln     Yt
## 1  2011-01-06    19960       28500       9.901         10.258 35.617
## 2  2011-01-07    20140       28460       9.910         10.256 34.579
## 3  2011-01-12    20080       27820       9.907         10.234 32.603
## 4  2011-01-13    20080       28400       9.907         10.254 34.666
## 5  2011-01-14    20200       28500       9.913         10.258 34.422
## 6  2011-01-17    20380       28500       9.922         10.258 33.535
## 7  2011-01-18    21080       28900       9.956         10.272 31.552
## 8  2011-01-19    21000       29180       9.952         10.281 32.896
## 9  2011-01-20    21100       29200       9.957         10.282 32.490
## 10 2011-01-21    21080       29240       9.956         10.283 32.721
## 11 2011-01-25    20820       29300       9.944         10.285 34.167
## 12 2011-01-26    20620       29340       9.934         10.287 35.269
## 13 2011-01-27    21000       29320       9.952         10.286 33.375
## 14 2011-01-28    21100       28820       9.957         10.269 31.180
## 15 2011-02-01    20880       28200       9.947         10.247 30.053
## 16 2011-02-03    20940       27920       9.949         10.237 28.768
## 17 2011-02-04    22100       27800      10.003         10.233 22.946
## 18 2011-02-09    21920       27540       9.995         10.223 22.824
## 19 2011-02-10    22040       27580      10.001         10.225 22.423
## 20 2011-02-16    21820       27220       9.991         10.212 22.113
## 21 2011-02-17    22160       27540      10.006         10.223 21.735
## 22 2011-02-18    22260       27320      10.011         10.215 20.483
## 23 2011-02-21    22240       27520      10.010         10.223 21.302
## 24 2011-02-22    22240       27160      10.010         10.210 19.985
## 25 2011-02-23    22080       27080      10.002         10.207 20.412
## 26 2011-02-24    22000       26920       9.999         10.201 20.183
## 27 2011-02-25    22480       26780      10.020         10.195 17.503
## 28 2011-03-01    21900       27200       9.994         10.211 21.673
## 29 2011-03-02    21240       26760       9.964         10.195 23.102
## 30 2011-03-04    21500       25920       9.976         10.163 18.696
## 31 2011-03-07    21460       26040       9.974         10.167 19.344
## 32 2011-03-08    21320       26600       9.967         10.189 22.127
##    SMA30_Yt UpBand DoBand         Posicion Acciones_DVV MontoDVV
## 1        NA     NA     NA             <NA>           NA       NA
## 2        NA     NA     NA             <NA>           NA       NA
## 3        NA     NA     NA             <NA>           NA       NA
## 4        NA     NA     NA             <NA>           NA       NA
## 5        NA     NA     NA             <NA>           NA       NA
## 6        NA     NA     NA             <NA>           NA       NA
## 7        NA     NA     NA             <NA>           NA       NA
## 8        NA     NA     NA             <NA>           NA       NA
## 9        NA     NA     NA             <NA>           NA       NA
## 10       NA     NA     NA             <NA>           NA       NA
## 11       NA     NA     NA             <NA>           NA       NA
## 12       NA     NA     NA             <NA>           NA       NA
## 13       NA     NA     NA             <NA>           NA       NA
## 14       NA     NA     NA             <NA>           NA       NA
## 15       NA     NA     NA             <NA>           NA       NA
## 16       NA     NA     NA             <NA>           NA       NA
## 17       NA     NA     NA             <NA>           NA       NA
## 18       NA     NA     NA             <NA>           NA       NA
## 19       NA     NA     NA             <NA>           NA       NA
## 20       NA     NA     NA             <NA>           NA       NA
## 21       NA     NA     NA             <NA>           NA       NA
## 22       NA     NA     NA             <NA>           NA       NA
## 23       NA     NA     NA             <NA>           NA       NA
## 24       NA     NA     NA             <NA>           NA       NA
## 25       NA     NA     NA             <NA>           NA       NA
## 26       NA     NA     NA             <NA>           NA       NA
## 27       NA     NA     NA             <NA>           NA       NA
## 28       NA     NA     NA             <NA>           NA       NA
## 29       NA     NA     NA             <NA>           NA       NA
## 30   27.442 29.442 25.442 27.4424677907921       27.442   27.442
## 31   26.900 28.900 24.900            SALIR        0.000    0.000
## 32   26.485 28.485 24.485            SALIR        0.000    0.000
##    Acciones_BCO   MontoBCO Costos Utilidad
## 1            NA         NA     NA    1e+08
## 2            NA         NA     NA    1e+08
## 3            NA         NA     NA    1e+08
## 4            NA         NA     NA    1e+08
## 5            NA         NA     NA    1e+08
## 6            NA         NA     NA    1e+08
## 7            NA         NA     NA    1e+08
## 8            NA         NA     NA    1e+08
## 9            NA         NA     NA    1e+08
## 10           NA         NA     NA    1e+08
## 11           NA         NA     NA    1e+08
## 12           NA         NA     NA    1e+08
## 13           NA         NA     NA    1e+08
## 14           NA         NA     NA    1e+08
## 15           NA         NA     NA    1e+08
## 16           NA         NA     NA    1e+08
## 17           NA         NA     NA    1e+08
## 18           NA         NA     NA    1e+08
## 19           NA         NA     NA    1e+08
## 20           NA         NA     NA    1e+08
## 21           NA         NA     NA    1e+08
## 22           NA         NA     NA    1e+08
## 23           NA         NA     NA    1e+08
## 24           NA         NA     NA    1e+08
## 25           NA         NA     NA    1e+08
## 26           NA         NA     NA    1e+08
## 27           NA         NA     NA    1e+08
## 28           NA         NA     NA    1e+08
## 29           NA         NA     NA    1e+08
## 30       27.442 2.7442e+01 27.442    1e+08
## 31     3840.246 1.0000e+08  0.000    1e+08
## 32     3759.398 1.0000e+08  0.000    1e+08

tail(as.data.frame(data3))

##            Date PFDVVNDA PFBCOLOMBIA PFDVVNDA_ln PFBCOLOMBIA_ln      Yt
## 1137 2016-12-22    29800       25300      10.302         10.139 -16.370
## 1138 2016-12-23    29900       25300      10.306         10.139 -16.705
## 1139 2016-12-26    29920       25300      10.306         10.139 -16.772
## 1140 2016-12-27    29880       25140      10.305         10.132 -17.273
## 1141 2016-12-28    29920       25480      10.306         10.146 -16.063
## 1142 2016-12-29    30000       25220      10.309         10.135 -17.356
##      SMA30_Yt  UpBand  DoBand Posicion Acciones_DVV MontoDVV Acciones_BCO
## 1137  -15.372 -13.372 -17.372 MANTENER            0        0     15672.03
## 1138  -15.405 -13.405 -17.405 MANTENER            0        0     15672.03
## 1139  -15.458 -13.458 -17.458 MANTENER            0        0     15672.03
## 1140  -15.569 -13.569 -17.569 MANTENER            0        0     15672.03
## 1141  -15.608 -13.608 -17.608 MANTENER            0        0     15672.03
## 1142  -15.759 -13.759 -17.759 MANTENER            0        0     15672.03
##       MontoBCO Costos  Utilidad
## 1137 396502326  0.003 395312819
## 1138 396502326  0.003 395312819
## 1139 396502326  0.003 395312819
## 1140 393994801  0.003 392812817
## 1141 399323291  0.003 398125321
## 1142 395248563  0.003 394062818

# Grafico de PFDVVNDA ----
ggplot(data = data3,
       aes(x = data3$Date,
           y = data3$PFDVVNDA, color= "PFDVVNDA")) + geom_line() + ggtitle("Acción de PFDVVNDA") + xlab("Tiempo") + ylab("Valor de Acción")

# Grafico de PFBCOLOMBIA ----
ggplot(data = data3,
       aes(x = data3$Date,
           y = data3$PFBCOLOMBIA, color= "PFBCOLOMBIA")) + geom_line() + ggtitle("Acción de PFBCOLOMBIA") + xlab("Tiempo") + ylab("Valor de Acción")

# Grafico de las dos Acciones ----
ggplot(data = data3,
       aes(x = data3$Date,
           y = data3$PFBCOLOMBIA, color= "PFDVVNDA")) + geom_line(
             
           ) + geom_line(aes(x = data3$Date,
                             y = data3$PFDVVNDA, color = "PFBCOLOMBIA")
           ) + ggtitle("Acción de PFBCOLOMBIA y PFDVVNDA") + xlab("Tiempo") + ylab("Valor de Acción")

# Grafico con Yt ----
ggplot(data = data3,
       aes(x = data3$Date,
           y = data3$Yt, color = "Yt")) + geom_line(
             
           ) + geom_line(aes(x = data3$Date,
                             y = data3$SMA30_Yt, color = "SMA")
           ) + ggtitle("Acción de PFBCOLOMBIA y PFDVVNDA") + xlab("Tiempo") + ylab("Valor de Acción")

## Warning: Removed 29 rows containing missing values (geom_path).

# Grafico con Yt ----
ggplot(data = data3,
       aes(x = data3$Date,
           y = data3$Yt, color = "Yt")) + geom_line(
             
           ) + geom_line(aes(x = data3$Date,
                             y = data3$SMA30_Yt, color = "SMA")
           ) + geom_line(aes(x = data3$Date,
                             y = data3$UpBand, color = "Upper Band")
           ) + geom_line(aes(x = data3$Date,
                             y = data3$DoBand, color = "Down Band")
           ) + ggtitle("Acción de PFBCOLOMBIA y PFDVVNDA") + xlab("Tiempo") + ylab("Valor de Acción")

## Warning: Removed 29 rows containing missing values (geom_path).

## Warning: Removed 29 rows containing missing values (geom_path).

## Warning: Removed 29 rows containing missing values (geom_path).

# Grafico de utilidad -----
ggplot(data = data3,
       aes(x = data3$Date,
           y = data3$Utilidad, color= "Utilidad")) + geom_line() + ggtitle("Curva de Utilidad") + xlab("Tiempo") + ylab("Inversión")

# Escribiendo prueba ----
write_xlsx(data3, path = "prueba_2.xlsx")