Update rusb.R

Undid that last change, and just added:

vardep <- vardep[[1]]

at the beginning. I don't understand why this worked before and doesn't now, but R works in mysterious ways.