plot - Mathematica - 数値プロットと解析プロットが重ならない

Question

Mathematicaで指数関数などの単純な関数をプロットしたい。次のコードに問題があります。

A[r_, c_] := Exp[-c r]
IntNum[r_?NumericQ, c_] := Integrate[A[t, c], {t, 0, r}]
IntAnal[r_, c_] := -(1/c) Exp[-c r]
Plot[{IntNum[r, 1], IntAnal[r, 1]}, {r, 0, 3}]

2 つの関数で同じプロットが得られない理由がわかりません。