'%!in%' <- function(x,y)!('%in%'(x,y))



for(i in 1:nrow(dt_loop)){
  m <- dt_loop$m[i]
  c <- dt_loop$m[i]

  if(m %!in% dt_loop$ma[1:i] & c %!in% dt_loop$ma[1:i]){
    dt_loop$ma[i] <- m
  } else {
    if(m %in% dt_loop$ma[1:i]){
      dt_loop$ma[i] <- m
    } else {
      dt_loop$ma[i] <- c
    }
  }
}