bug in get_locals_test.r

[jszhao]

In get_locals_test.r, line 101, it said:

    X.g2 = get_data_scaled(X[samg1,], scaled)

it made X.g2 is same as X.g1. Thus in the section of ...$loadings and ...$gof in the output of rebus.test() is wrong.

The above line should be:

    X.g2 = get_data_scaled(X[samg2,], scaled)