reduced constant in score, R file added, more ui update