For the conditional probability of left-right by gender in Switzerland, we initially recoded Irscale so that values between 0 to 3 represent "left' and 7 to 10 to represent 'right'. Generate the probability table now for moderate, representing values 4 to 6, vs. non-moderate (now representing values of 0:3 & 7:10), For the purpose of the task, you must generate the probability table, as we did above, but now for what we deem as the moderate and non-moderate categories. Hint 1: this is how we recoded initially. You will need to replace what we did for "Left", "Right", and "NA". switzerland data 1 filter (entry "CH") > mutate( gndr 1rscale recode(gndr, "I "Male", case when() (1) "Female", 1rscale sint 0:3 "Left", irscale sins 7:10 "Right", irscale sins c(4, 5, 6, 77, 88, 99) NA character, TRUE as.character(Irscale) -NA_character_), Hint 2: all the code above for generating the probability table should not have references to left and right, but rather now as moderate and non-moderate. For example in: data.frame(Gender Calculate the total counts for each gender (sum of Left and Right) contingency_wide$Total