向现有data.table添加新列，并将其分配给新变量

Question

library(data.table)

train <- fread("train.csv")
test <- fread("test.csv")
test_survived <-test[,survived:=NA]

我将使test和test_survived具有相同的暗淡（418,12）。

这是什么原因？您有什么解决方案，如何获取两个数据集，原始数据集和另一个带有额外列的数据集？

编辑：如果我每行运行代码行，我将获得正确的数据集。如果我将其作为脚本运行，有什么区别？