I try to draw a graph:
ClearAll[k, r, n] k = 20 r = .8 Manipulate[ psol = DSolve[{p'[t] == r*p[t] (1 - p[t]/k), p[0] == n}, p[t], t]; Plot[ psol[t] , {t, -10, 10} ], {n, 0, 1}]
but I get an error:
Inverse functions are being used by Solve, so some solutions may not be found; use Reduce for complete solution information.