Create vector with a loop in r