Owais Quiz 4a Q2

q2.R

set.seed(71)

num_friends = 20

edward_measurements <- rnorm(num_friends, mean = 180, sd = 5)
hugo_measurements <- rnorm(num_friends, mean = 180, sd = 11)
lucy_measurements <- rnorm(num_friends, mean = 180, sd = 7)


height_data <- data.frame(
  Edward = edward_measurements,
  Hugo = hugo_measurements,
  Lucy = lucy_measurements
)

# dataframe showing measurements from Edward, Hugo and Lucy for each student.
print(height_data)


if(max(select(height_data,Edward) <= 200)){
  print(TRUE)
}else{
  print(FALSE)
}
if(max(select(height_data,Lucy) <= 200)){
  print(TRUE)
}else{
  print(FALSE)
}
if(max(select(height_data,Hugo) <= 200)){
  print(TRUE)
}else{
  print(FALSE)
}

Note on LLM usage: ChatGPT-3.5 was used to figure out parts of this question.

Here is the chat link: https://chat.openai.com/share/1a92da5f-9bfe-4082-945f-41655095e95f