%load_ext rmagic

%%R
a <- c(1, 2, 3, 4)
print(a)