Fixed two bugs

1. extraction x$assets[x$nation == 1] is correct now. replacement is
already correct.

2. print regression results correctly if there are NA's in the result