Using “contain” function with two arguments in R

Question

I have a dataset f.ex. like this:

dat1 <- read.table(header=TRUE, text=" Trust_01_T1 Trust_02_T1 Trust_03_T1 Trust_01_T2 Trust_02_T2 Trust_03_T2 Cont_01_T1 Co