#calculo dos retornos
#pegar o valor de fechamento / fechamento anterior

ASSET$Close_Shift <- ASSET$CLOSE #cria variavel asset.closeshifit e copia os dados de asset$close para ela

ASSET['Close_Shift'] <- c(NA, head(ASSET['Close_Shift'], dim(ASSET[1] -1)[1])) #Aqui ficou complicado...como foi feito o deslocamento

ASSET$Retornos <- (ASSET$CLOSE / ASSET$Close_Shift-1)*100  #pelo que entendi, pega o fechamento / fechamento anterior para dar variacao %

ASSET[is.na(ASSET)] <- 0  #Verifica se ASSET is NA entao recebe 0 ?

head(ASSET)