Trivial, but there is a typo in Lesson 3, Exercise 3:
vec1 = {4, 4 - 1};
should be
vec1 = {4, 4, -1};
which requires one change further down:
Graphics[{Red, Arrow[{{0, 0}, vec1}], Blue,
Arrow[{{0, 0}, unitVec1}]}]
should be:
Graphics3D[{Red, Arrow[{{0, 0, 0}, vec1}], Blue,
Arrow[{{0, 0, 0}, unitVec1}]}]