为什么这个 R 脚本没有像我认为的那样对矩阵进行排序？

问：

我是新手，所以我还不知道它的所有来龙去脉，但我认为代码应该可以工作。它应该查看从 .csv 文件中读取的不同身高、体重和收入水平的人的矩阵，然后删除任何值为 NA 或任何值不在特定给定范围内（例如身高为 4.5 到 6.5）的任何行。当我运行脚本时，有些人被删除了，但仍有人的 NA 值或值超出给定范围，所以我不知道它是否只删除了一定数量的不适合的人，或者它是否完全删除了错误的人，或者两者兼而有之。

original = read.csv("C:/Users/gsbal/OneDrive/Documents/Quants R Course/HW/A2-C-DirtyData.csv")

nums = 1:nrow(original)
toDelete = 0
deleted = 0
for (i in nums)
{
  na = is.na(original[i, 1]) | is.na(original[i, 2]) | is.na(original[i, 3])
  if (na == T)
  {
    toDelete = i - deleted
    original = original[-toDelete,]
    deleted = deleted + 1
  }
}

nums = 1:nrow(original)
toDelete = 0
deleted = 0
for (i in nums)
{
  height = original[i, 1] < 4.5 | original[i, 1] > 6.5
  if (height == T)
  {
    toDelete = i - deleted
    original = original[-toDelete,]
    deleted = deleted + 1
  }
}