修正data.table代码：从start生成含分组求和列的end数据表

原代码的问题在于:=的语法使用错误，data.table中:=是原地赋值运算符，正确的语法格式有两种：

写法一（简洁推荐） #

endtest <- start[, total_pts := sum(pts), by = team]

写法二（规范调用:=的形式） #

endtest <- start[, `:=`(total_pts = sum(pts)), by = team]

运行上述任意一种代码后，endtest的结构和数据会与目标表end完全一致：每个team分组的total_pts列会填充该组pts的求和结果，同时保留原表的行结构。

内容的提问来源于stack exchange，提问作者highbury