fst <- fs_truthTable(Lipset_fs, "Survived.FZ",
c("Developed.FZ","Urban.FZ","Literate.FZ","Industrial.FZ","Stable.FZ"),
cases="Country",consistency_cutoff=0.7)
setOUT(fst,"240","0")
Run the code above in your browser using DataLab