R programming $-$

# Import the tidyverse

suppressPackageStartupMessages$($Library$($tidyverse$))$

# Load the dataset

df read.csv$("$credit$\_$card.csv$")$

# Suppresses message "summarize$()$ has grouped output by 'Total$\_$visits$\_$online'"

options$($dplyr$.$summarise.inform $=$ FALSE$)$

# Create a contingency table for Total$\_$visits$\_$online and Total$\_$Credit$\_$Cards

# Your code goes here

# Display contingency table

contingencyTable

R Coding $-$

Did this but it's wrong. The expected output supposed to look like that.

contingencyTable df $\%>\%$

count$($Total$\_$visits$\_$online, Total$\_$Credit$\_$Cards$)\%>\%$

pivot$\_$wider$($names$\_$from $=$ Total$\_$Credit$\_$Cards, values$\_$from $=$ n$,$ values$\_$fill $=0)$