## 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.0 <- truthTable(represent, outcome = "WNP{0}")
#
# # Create the logicopt truth table
# l.represent.0 <- QCAtt2LOtt(q.represent.0)
# ## End(Not run)
# Load up truth table
data(l.represent.0)
# Optimize logicopt truth table and print results
represent0 <- logicopt(l.represent.0,5,1,find_dc=TRUE,mode="multi-min")
print_multi_tt(represent0,eqn=TRUE,n_in=5,n_out=1,QCA=TRUE)
Run the code above in your browser using DataLab