# NOT RUN {
# Create a sample data frame
heap <- data.frame(keys=c(0,3,4), vals=c(7,7,4))
# Build the heap from the data frame.
heap <- build_heap(heap)
# Remove a node from the heap (key=3).
remove_node(heap, 3, 2)
# }
Run the code above in your browser using DataLab