18/12/06 17:10:33.30 E+1fMA/x.net
# check if combination x is compatible
check <- function(x,Strict){ # Strict==TRUE if liar always lies
re=NULL
honest <- which(x==1) # index of honest in x
for(i in honest){ # check if honest answer is compatible
re=append(re,compati.H(i,x))
}
if(Strict){
liar <- which(x==0) # index of liar in x
for(i in liar){ # check if the opposite of liars is compatible
re=append(re,compati.L(i,x))
}
}
all(re) # return TRUE only if all answer are compatible
}
dat[apply(dat,1,function(x) check(x,Strict=TRUE)),] # Strict liar
dat[apply(dat,1,function(x) check(x,Strict=FALSE)),] # fuzzy liar
# バグ指摘、コード改良 歓迎！