Finishing q1 @gvegayon @chipmanj UofUEpiBio/PHS7045-advanced-programm…

…ing#5

.gitignore

@@ -2,3 +2,5 @@
 .Rhistory
 .RData
 .Ruserdata
+*.pdf
+

week-03/README.qmd

@@ -3,6 +3,8 @@ title: "Lab 03 - Functions and data.table"
 format:
   html:
     embed-resources: true
+editor_options: 
+  chunk_output_type: console
 ---
 
 # Learning goals
@@ -90,7 +92,28 @@ Once you are done setting up the project, you can now start working on the lab.
 Write a function using the ellipsis argument (`...`) with the goal of (i) retrieving the list of arguments passed to it, (ii) printing information about them using `str()`, and (iii) printing the environment where they belong and the address of the object in memory using `data.table::address()`.
 
 ```{r}
-
+# plot_x <- function(x, y, ...) {
+#   plot(x = x, y = y, main = "Experiment", col = "red", ...)
+# }
+my_e <- function(...) {
+  val <- list(...)
+  lapply(val, str)
+  for (a in val)
+    environment(a)
+  
+  lapply(val, \(x) {
+    print(data.table::address(x))
+    })
+  
+  lapply(val, \(x) {
+    data.table::address(x)
+    })
+  
+  invisible()
+}
+
+my_e(123, pi)
+my_e(123, pi = pi)
 ```
 
 Knit the document, commit your changes, and push them to GitHub.