# create a data frame
dfr <- data.frame(x=1:3, y=5:7)
# partial ordering of concepts
PO <- dfr |>
galois() |>
partial.order(type="galois")
# order filter for the first element
fltr(1, PO, rclos=TRUE)
Run the code above in your browser using DataLab