s <- cpp_set(4:9)
print(s)
# 4 5 6 7 8 9
print(s, n = 3)
# 4 5 6
print(s, n = -3)
# 9 8 7
print(s, from = 5, to = 7)
# 5 6 7
v <- cpp_vector(4:9)
print(v, n = 2)
# 4 5
print(v, from = 2, to = 3)
# 5 6
print(v, from = 3)
# 6 7 8 9
Run the code above in your browser using DataLab