powered by
weighted gradient (wscore takes care of weights)
wgr(bet, y, xmain, xother = NULL, thisx, h)
value of parameters
vector of y values
scalar value of x for which evaluating
bandwidth
weighted gradient