# NOT RUN {
# build the FIS
fis_file <- system.file("extdata", "test.fis", package = "FisPro")
fis <- new(fis, fis_file)
# infer all outputs
infered <- fis$infer(c(0.25, 0.75))
#infer first output
infered_output1 <- fis$infer_output(c(0.25, 0.75), 0)
#infer second output
infered_output2 <- fis$infer_output(c(0.25, 0.75), 1)
# }
Run the code above in your browser using DataLab