I have this and this is correct: # Calculate the number of people reporting good or very good health good_health_count <- sum(brf_part1$GENHLTH %in% c(2, 3)) # Calculate the total number of observations total_count <- nrow(brf_part1) total_count # Calculate the percentage percentage <- (good_health_count / total_count) * 100 # Round the percentage to the nearest tenth percentage <- round(percentage, 1) # Create a dataframe with the count and percentage Q3 <- data.frame(Count = good_health_count, Percent = percentage) Q3