Create a function to calculate Bayes Probability in R

Question

I\'m working on a project and i need to create a function in R to calculate the following probability :

P(Y|X) = P(Y and X) / P(X)

by using table and prop.tabl