/*
A method for safe initial values
Whatever it be it can give roots inside the unit circle
This can be easily agjusted
Hansl has filter() so expanding factored polynomials
is not a problem
Suppose, we have found (1,-phi_1, -phi_k)
as init. values whatever way using (non)linear AR,
conditional loglik, etc
1) check absolute value of roots
2) factor
3) scale improper roots to have abs. value, say 1.01
4) expand
this way we would have a new set of phi_1,..,phi_k
which would be in admissible domain
*/