working R stats scripts