Why advanced features enable complex work in R Programming - Challenge Your Understanding

Challenge - 5 Problems

❓ Predict Output

intermediate

Output of nested function calls with advanced features

What is the output of this R code using advanced features like closures and environments?

R Programming

make_counter <- function() {
  count <- 0
  function() {
    count <<- count + 1
    count
  }
}
counter <- make_counter()
c(counter(), counter(), counter())

A Error: object 'count' not found

B [1] 0 1 2

C [1] 1 2 3

D [1] 1 1 1

💡 Hint

Think about how the inner function changes the variable 'count' in its environment.

The inner function increments 'count' stored in the parent environment each time it is called, so the outputs are 1, 2, and 3.

❓ Predict Output

intermediate

Output of vectorized operations with recycling

What is the output of this R code that uses vector recycling in arithmetic?

R Programming

x <- c(1, 2, 3, 4)
y <- c(10, 20)
x + y

A [1] 11 22 13 24

B [1] 11 22 33 44

C [1] 11 12 13 14

D Error: non-conformable arrays

💡 Hint

Remember how R recycles shorter vectors to match the length of longer ones.

The shorter vector y is recycled to match x: (10,20,10,20). Adding element-wise gives (11,22,13,24).

🔧 Debug

advanced

Identify the error in advanced list manipulation

What error does this R code produce when trying to access a nested list element?

R Programming

my_list <- list(a = list(b = 1:3))
my_list$a$b[4]

A Error: object 'b' not found

B Error: subscript out of bounds

C NULL

D NA (no error, returns NA because index 4 is out of bounds)

💡 Hint

Check what happens when you access an index beyond the vector length in R.

Accessing an out-of-bounds index in a vector returns NA without an error.

🧠 Conceptual

advanced

Why use environments for complex R programming?

Which statement best explains why environments enable complex work in R?

A Environments allow storing variables with different scopes, enabling modular and stateful programming.

B Environments automatically speed up all R code without programmer effort.

C Environments are only used for graphical output in R.

D Environments prevent any variable from being changed once created.

💡 Hint

Think about how environments manage variable visibility and lifetime.

Environments let you keep variables separate and control their scope, which helps build complex programs with state.

❓ Predict Output

expert

Output of advanced metaprogramming with substitute and eval

What is the output of this R code using substitute and eval for metaprogramming?

R Programming

x <- 10
expr <- substitute(x + y)
y <- 5
eval(expr)

A [1] 10 + y

B [1] 15

C Error: object 'y' not found

D [1] 5

💡 Hint

Consider when substitute captures the expression and when eval evaluates it.

substitute captures the expression 'x + y' unevaluated. Later, eval evaluates it with y=5, so output is 15.

Practice

1. Why do advanced features in R help programmers handle complex tasks more easily?

easy

A. They only work with simple data types like numbers.

B. They allow writing shorter and clearer code to solve bigger problems.

C. They remove the need to learn basic programming concepts.

D. They make the computer run slower but with more details.

Solution

1. Step 1: Understand the role of advanced features

   Advanced features help by simplifying complex tasks into manageable code blocks.

2. Step 2: Connect code clarity with problem solving

   Shorter and clearer code means programmers can solve bigger problems more easily and with less chance of errors.

3. Final Answer:

   They allow writing shorter and clearer code to solve bigger problems. -> Option B

4. Quick Check:

   Shorter clearer code solves bigger problems [OK]

Hint: Advanced features simplify big problems with less code [OK]

Common Mistakes:

• Thinking advanced features slow down the computer
• Believing basics are not needed anymore
• Assuming advanced features only work with simple data

2. Which of the following is the correct syntax to create a named list in R using advanced features?

easy

A. my_list <- c(name = "Alice", age = 30)

B. my_list = {name: "Alice", age: 30}

C. my_list <- ["name" = "Alice", "age" = 30]

D. my_list <- list(name = "Alice", age = 30)

Solution

1. Step 1: Recall R syntax for named lists

   In R, named lists are created with the list() function and named elements using =.

2. Step 2: Check each option's syntax

   my_list <- list(name = "Alice", age = 30) uses list() with correct naming; others use invalid syntax for R.

3. Final Answer:

   my_list <- list(name = "Alice", age = 30) -> Option D

4. Quick Check:

   list() with name = value creates named lists [OK]

Hint: Use list() with name = value for named lists in R [OK]

Common Mistakes:

• Using curly braces {} instead of list()
• Using c() which creates vectors, not lists
• Using square brackets [] which are invalid here

3. What is the output of this R code using an advanced feature (list comprehension with lapply)?

nums <- 1:3
squares <- lapply(nums, function(x) x^2)
unlist(squares)

medium

A. [1] 1 2 3

B. [1] 1 8 27

C. [1] 1 4 9

D. Error: object 'squares' not found

Solution

1. Step 1: Understand lapply with function(x) x^2

   lapply applies the function to each element: 1^2=1, 2^2=4, 3^2=9, returning a list.

2. Step 2: Use unlist to convert list to vector

   unlist(squares) converts the list of squared numbers to a numeric vector: 1, 4, 9.

3. Final Answer:

   [1] 1 4 9 -> Option C

4. Quick Check:

   Squares of 1,2,3 = 1,4,9 [OK]

Hint: lapply + unlist returns vector of function results [OK]

Common Mistakes:

• Confusing lapply with sapply output
• Expecting original numbers instead of squares
• Missing unlist to flatten the list

4. Identify the error in this R code using advanced features and fix it:

data <- list(a = 1, b = 2, c = 3)
result <- sapply(data, function(x) x + 1
print(result)

medium

A. Missing closing parenthesis in sapply function call

B. Using sapply instead of lapply causes error

C. data should be a vector, not a list

D. print() cannot display lists

Solution

1. Step 1: Check syntax of sapply call

   The function call to sapply is missing a closing parenthesis after the anonymous function.

2. Step 2: Fix the missing parenthesis

   Adding the missing ')' after function(x) x + 1 fixes the syntax error and allows print(result) to work.

3. Final Answer:

   Missing closing parenthesis in sapply function call -> Option A

4. Quick Check:

   Syntax errors often come from missing parentheses [OK]

Hint: Count parentheses carefully in function calls [OK]

Common Mistakes:

• Assuming sapply causes error instead of syntax
• Thinking data type is wrong
• Believing print() can't show lists

5. You want to create a named vector in R where names are letters and values are their ASCII codes, but only for vowels. Which advanced feature helps you do this efficiently?

letters <- c('a','b','c','d','e','f','g','i','o','u')
# Fill in the blank to create named vector of vowels with ASCII codes
vowels_ascii <- ???

hard

A. setNames(as.integer(charToRaw(letters)), letters)[letters %in% c('a','e','i','o','u')]

B. names(letters) <- as.integer(charToRaw(letters)); letters

C. letters[letters %in% c('a','e','i','o','u')] <- as.integer(charToRaw(letters))

D. as.integer(charToRaw(letters[letters %in% c('a','e','i','o','u')]))

Solution

1. Step 1: Convert letters to ASCII codes

   charToRaw converts characters to raw bytes; as.integer converts raw to ASCII numbers.

2. Step 2: Use setNames to assign names and filter vowels

   setNames assigns letter names to ASCII codes, then indexing with %in% selects vowels only.

3. Final Answer:

   setNames(as.integer(charToRaw(letters)), letters)[letters %in% c('a','e','i','o','u')] -> Option A

4. Quick Check:

   setNames + filtering vowels [OK]

Hint: Use setNames() with filtering for named vectors [OK]

Common Mistakes:

• Assigning names incorrectly
• Replacing letters vector values instead of creating new
• Not filtering vowels before conversion