Update rusb.R

changed lines 64 & 74 from:
      ind <- as.numeric(vardep != flearn)
to:
      ind <- as.numeric(vardep[[1]] != flearn)