Answer:
Merge<-function(ss1,ss2) #function declaration which accepts 2 sequences
{
z=c(ss1,ss2) #it combines to sequences
z=sort(z) #in built function to sort the sequence
return (z) # returning merged sequence to calling function
}
y <- Merge(seq(1, 50, by=3), seq(2, 30, by=2)) #invoking merge function by passing two sequences
print(y) #printing merged sequence
Explanation: