Asset Pricing test

Test the following function

a <- 1 + 1
print(a)
cat(
  "Hello, World!\n"
)

[1] 2
Hello, World!