Error in assign(paste0("PETCTfution_XGBAUC_output", i), 1) <- rbind.data.frame(assign(paste0("PETCTfution_XGBAUC_output", : target of assignment expands to non-language object

这个错误一般是因为 `assign()` 函数的使用不正确导致的。在R语言中，`assign()` 函数需要两个参数，第一个参数是要创建或修改的变量名（必须是一个字符串），第二个参数是要赋给该变量的值。这里的错误提示意味着 `assign()` 函数的第一个参数没有被正确地解析为变量名。

具体而言，可能是因为在赋值语句的左边放置了一个非法的表达式，如下所示：

assign(paste0("PETCTfution_XGBAUC_output", i), 1) <- rbind.data.frame(data)

这里的 `assign()` 函数返回的是一个新的数据框，而不是一个变量名。因此，赋值语句的左侧不是一个有效的变量名，就会导致错误。

要解决这个问题，可以将 `assign()` 函数的返回值与赋值语句分开处理，如下所示：

var_name <- paste0("PETCTfution_XGBAUC_output", i)
assign(var_name, rbind.data.frame(data))

这样，首先将变量名存储在一个临时变量 `var_name` 中，然后再使用 `assign()` 函数创建或修改该变量。这样就可以避免出现上述错误。