Создание графа с краями разного цвета в системе Mathematica

Я хочу создать граф (теория графов), в котором определенные ребра имеют другой цвет по сравнению с другими ребрами, который будет использоваться для выделения пути в графе от одной вершины к другой.

Вот несколько примеров с краями разного цвета http://demonstrations.wolfram.com/AGraphTheoryInterpretationOfTheSumOfTheFirstNIntegers/ и http://demonstrations.wolfram.com/Ramsey336/ . Я просмотрел их исходный код, но эти решения кажутся сложными. Мне нужен простой пример для работы. Я считаю, что мне нужно использовать EdgeRenderingFunction как одну из опций для GraphPlot .

Дополнительно в документации EdgeRenderingFunction в разделе "Подробнее "Информация", в ней говорится:

Это выглядит полезным, но, к сожалению, нет закодированных примеров, которые можно было бы попробовать.

Понимая это буквально, я пробовал такие вещи, как

GraphPlot [{1 -> 2, 2 -> 3, 3 -> 4, 4 -> 1, 2 -> 4, 4 -> 5, 4 -> 6}, VertexLabeling -> True,
EdgeRenderingFunction -> g [{1, 2}, {1, 2}, Красный]]

Но это не сработает. Для этого потребуется нечто более умное.