# Experiment 1
# by Dinda Aurelia Fatimah
print("Experiment #1")

my_name <- "Dinda Aurelia Fatimah"
massage1 <- "This is my first R code"
massage2 <- "From my first programming meeting with Dr Lukman Heryawan"
massage3 <- "List my friends and colours"
list_friends <- c("Fauhiyah", "Eoudia", "Fakhira")
list_colours <- c("Blue", "Black", "Purple")
list_banana_prices <- c(1500, 3750, 8250, 3300)

print("Hello all friends")
print(massage1)
print(massage2)
print(massage3)

print(list_colours)
print(list_friends)
cat("list_banana_prices", list_banana_prices)
cat("\n", "created by")
print(my_name)