Singularity problem

Dear R family

I have a problem with invertibility in a matrix.

m1 <- ar(x, method='mle')

Error in solve.default(res$hessian * length(x)) :
  Lapack routine dgesv: system is exactly singular

How could I avoid this problem?

Best
Moohwan