rlazo

|-------------------------        APK Sizes        -----------------------|                                                                                                                                             
|--------    project    --------|--  build type   --|--  size in bytes  --|                                                                                                                                             
|firebase-inappmessaging        |release            |            3,553,342|                                                                                                                                             
|firebase-inappmessaging        |aggressive         |              839,377|                                                                                                                                             
|protolite-well-known-types     |release            |              561,221|                                                                                

rlazo

enc.pesos <- function(ticker,datai,cano){
  # Cria uma expresão regular que vai utilizar depois na seguente linha para extrair os
  # dois ultimos algarismos: por exemplo, 2014 ----> 14
  regexp <- paste('.+(?=.{', 2, '})', sep='')	
  fimanoant=sub(regexp,'',paste(year(datai)-cano), perl=T)
  # cola `jun.` com os algarismos extraídos na linha anterior: por exemplo, 'jun.14'
  mescart=paste("jun.",fimanoant,sep="")
  # cria um vector com as posições dos tickers no mes `mescart`
  j=which(names(ticker)==mescart)
  # retorna o valor dos tickers naqueles meses

rlazo

portfolio.wl <- function(tickers, yreturn, i) {
  # cria um novo dataframe com duas colunas: ticker, que vai armazenar o ticker da ação;
  # e wl, que armazena o retorno anual (yreturn) para o ano `i` de cada ticker
  wls <- data.frame(wl = yreturn[tickers, i], ticker=tickers, stringsAsFactors=FALSE)
  # cria uma copia do dataframe `wls` ordenado pela coluna `wl` do maior valor de retorno anual 
  # para o menor
  sorted_wls <- arrange(wls, -wl)
  # Verifica se algum dos dados em sorted_wl tem NA na coluna `wl`. Se for assim, mostra uma mensagem de erro
  # com o ticker correspondente
  if(any(is.na(sorted_wls$wl))) warning(paste("Ativo com NA:", sorted_wls$ticker[is.na(sorted_wls$wl)]))