x <- data.frame(Room = c("Q", "R", "S"), Values = c(5, 6, 7))
print(x)