fst <- fs_truthTable(Lipset_fs,"Survived.FZ",
c("Developed.FZ","Urban.FZ","Literate.FZ","Industrial.FZ", "Stable.FZ"),
cases="Country",consistency_cutoff=0.7,complete=TRUE)
## complete must be TRUE
remainderReduce(fst)
Run the code above in your browser using DataLab