# Reversing a vector

# Create vector_1

vector_1<-rep(c(0,2,4,6,8), each=3)

vector_1

# reverse using multiple lines of code

vector_2<-c(vector_1[15])
vector_2<-c(vector_2, vector_1[14])
vector_2<-c(vector_2, vector_1[13])
vector_2<-c(vector_2, vector_1[12])
vector_2<-c(vector_2, vector_1[11])
vector_2<-c(vector_2, vector_1[10])
vector_2<-c(vector_2, vector_1[9])
vector_2<-c(vector_2, vector_1[8])
vector_2<-c(vector_2, vector_1[7])
vector_2<-c(vector_2, vector_1[6])
vector_2<-c(vector_2, vector_1[5])
vector_2<-c(vector_2, vector_1[4])
vector_2<-c(vector_2, vector_1[3])
vector_2<-c(vector_2, vector_1[2])
vector_2<-c(vector_2, vector_1[1])

vector_2

# reverse using substrings as a single line of code

vector_2<-c(vector_1[13:15], 
            vector_1[10:12], 
            vector_1[7:9], 
            vector_1[4:6], 
            vector_1[1:3]) 

vector_2