Fix a bug

Correct the return value of "coefficient" in "pelos.R"