library(tidyverse)

Example with MACE and anti-diabetic drugs

prior_OAD = c(rep("no",5000),rep("yes",6000))
metformine_treat = c(rep("yes",1000),rep("no",4000),rep("yes",3000),rep("no",3000))
data_MACE = tibble(prior_OAD, metformine_treat )#(prior_OAD = prior_OAD , saxa_treat = saxa_treat)
table(data_MACE$prior_OAD,data_MACE$metformine_treat)
     
        no  yes
  no  4000 1000
  yes 3000 3000
data_MACE = mutate(data_MACE, MACE = rep("NA",11000))
data_MACE_yes_yes = filter(data_MACE,  prior_OAD == "yes", metformine_treat == "yes")
data_MACE_yes_yes = mutate(data_MACE_yes_yes, MACE = c(rep("yes",300),rep("no",2700)))
data_MACE_yes_no= filter(data_MACE,  prior_OAD == "yes", metformine_treat == "no")
data_MACE_yes_no = mutate(data_MACE_yes_no, MACE = c(rep("yes",300),rep("no",2700)))
data_MACE_no_yes = filter(data_MACE,  prior_OAD == "no", metformine_treat == "yes")
data_MACE_no_yes = mutate(data_MACE_no_yes, MACE = c(rep("yes",50),rep("no",950)))
data_MACE_no_no = filter(data_MACE,  prior_OAD == "no", metformine_treat == "no")
data_MACE_no_no = mutate(data_MACE_no_no, MACE = c(rep("yes",200),rep("no",3800)))
rm(data_MACE_yes_yes,data_MACE_yes_no,data_MACE_no_yes,data_MACE_no_no,prior_OAD,metformine_treat)
object 'data_MACE_yes_yes' not foundobject 'data_MACE_yes_no' not foundobject 'data_MACE_no_yes' not foundobject 'data_MACE_no_no' not foundobject 'prior_OAD' not found
write_csv2(data_MACE,"./Data/data_MACE.csv")
LS0tCnRpdGxlOiAiU2ltdWxhdGlvbnMgZm9yIGNhdXNhbGl0eSBleGFtcGxlcyIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQpgYGB7cn0KbGlicmFyeSh0aWR5dmVyc2UpCmBgYAoKIyBFeGFtcGxlIHdpdGggTUFDRSBhbmQgYW50aS1kaWFiZXRpYyBkcnVncwpgYGB7cn0KcHJpb3JfT0FEID0gYyhyZXAoIm5vIiw1MDAwKSxyZXAoInllcyIsNjAwMCkpCm1ldGZvcm1pbmVfdHJlYXQgPSBjKHJlcCgieWVzIiwxMDAwKSxyZXAoIm5vIiw0MDAwKSxyZXAoInllcyIsMzAwMCkscmVwKCJubyIsMzAwMCkpCmRhdGFfTUFDRSA9IHRpYmJsZShwcmlvcl9PQUQsIG1ldGZvcm1pbmVfdHJlYXQgKSMocHJpb3JfT0FEID0gcHJpb3JfT0FEICwgc2F4YV90cmVhdCA9IHNheGFfdHJlYXQpCnRhYmxlKGRhdGFfTUFDRSRwcmlvcl9PQUQsZGF0YV9NQUNFJG1ldGZvcm1pbmVfdHJlYXQpCmRhdGFfTUFDRSA9IG11dGF0ZShkYXRhX01BQ0UsIE1BQ0UgPSByZXAoIk5BIiwxMTAwMCkpCmBgYApgYGB7cn0KZGF0YV9NQUNFX3llc195ZXMgPSBmaWx0ZXIoZGF0YV9NQUNFLCAgcHJpb3JfT0FEID09ICJ5ZXMiLCBtZXRmb3JtaW5lX3RyZWF0ID09ICJ5ZXMiKQpkYXRhX01BQ0VfeWVzX3llcyA9IG11dGF0ZShkYXRhX01BQ0VfeWVzX3llcywgTUFDRSA9IGMocmVwKCJ5ZXMiLDMwMCkscmVwKCJubyIsMjcwMCkpKQpkYXRhX01BQ0VfeWVzX25vPSBmaWx0ZXIoZGF0YV9NQUNFLCAgcHJpb3JfT0FEID09ICJ5ZXMiLCBtZXRmb3JtaW5lX3RyZWF0ID09ICJubyIpCmRhdGFfTUFDRV95ZXNfbm8gPSBtdXRhdGUoZGF0YV9NQUNFX3llc19ubywgTUFDRSA9IGMocmVwKCJ5ZXMiLDMwMCkscmVwKCJubyIsMjcwMCkpKQpkYXRhX01BQ0Vfbm9feWVzID0gZmlsdGVyKGRhdGFfTUFDRSwgIHByaW9yX09BRCA9PSAibm8iLCBtZXRmb3JtaW5lX3RyZWF0ID09ICJ5ZXMiKQpkYXRhX01BQ0Vfbm9feWVzID0gbXV0YXRlKGRhdGFfTUFDRV9ub195ZXMsIE1BQ0UgPSBjKHJlcCgieWVzIiw1MCkscmVwKCJubyIsOTUwKSkpCmRhdGFfTUFDRV9ub19ubyA9IGZpbHRlcihkYXRhX01BQ0UsICBwcmlvcl9PQUQgPT0gIm5vIiwgbWV0Zm9ybWluZV90cmVhdCA9PSAibm8iKQpkYXRhX01BQ0Vfbm9fbm8gPSBtdXRhdGUoZGF0YV9NQUNFX25vX25vLCBNQUNFID0gYyhyZXAoInllcyIsMjAwKSxyZXAoIm5vIiwzODAwKSkpCmBgYAoKYGBge3J9CmRhdGFfTUFDRSA9IGJpbmRfcm93cyhkYXRhX01BQ0VfeWVzX3llcyxkYXRhX01BQ0VfeWVzX25vLGRhdGFfTUFDRV9ub195ZXMsZGF0YV9NQUNFX25vX25vKQpybShkYXRhX01BQ0VfeWVzX3llcyxkYXRhX01BQ0VfeWVzX25vLGRhdGFfTUFDRV9ub195ZXMsZGF0YV9NQUNFX25vX25vLHByaW9yX09BRCxtZXRmb3JtaW5lX3RyZWF0KQpgYGAKYGBge3J9CndyaXRlX2NzdjIoZGF0YV9NQUNFLCIuL0RhdGEvZGF0YV9NQUNFLmNzdiIpCmBgYAoK