## Not run:
# # Read raw QCA dataset from csv file
# inpath <- system.file("extdata/raw_qca/represent.csv", package="LogicOpt")
# represent <- read.csv(inpath,row.names=1,na="")
#
# # Need to load a QCA package that contains truthTable function: (pick one)
# # library(QCAGUI)
# # library(QCApro)
#
# # Create the QCA truth table
# q.represent.1 <- truthTable(represent, outcome = "WNP{1}")
#
# # Create the logicopt truth table
# l.represent.1 <- QCAtt2LOtt(q.represent.1)
# ## End(Not run)
# Load up truth table
data(l.represent.1)
# Optimize logicopt truth table and print results
represent1 <- logicopt(l.represent.1,5,1,find_dc=TRUE,mode="multi-min")
print_multi_tt(represent1,eqn=TRUE,n_in=5,n_out=1,QCA=TRUE)
Run the code above in your browser using DataLab