для цикла - у меня возникают трудности с циклом, чтобы получить оценки до второго знака после запятой моих данных

Question

Я пытаюсь зациклить свои данные в R, чтобы получить оценки с точностью до секунды.Я подошел к решению двумя способами, но я не получил результат.В настоящее время я нахожусь в отчаянном состоянии, так как я пытаюсь сделать это в течение двух дней.

nsw_psid_withtreated - это мой набор данных

Это то, что я сделал до сих пор:

covars
#[1] "age"     "educ"    "black"   "hisp"    "married"
#[6] "re74"    "re75"    "u74"     "u75"  

nswMatrix <- as.data.frame(matrix(nrow = length(covars), ncol = 4))

colnames(nswMatrix) <- c("Treated", "Control", "Difference", "P-Value")

rownames(nswMatrix) <- covars

for (i in 1:length(covars)) {
     t <- t.test(nsw_psid_withtreated[nsw_psid_withtreated$nsw == 0, covars[i]], 
     nsw_psid_withtreated[nsw_psid_withtreated$nsw==1, covars[i]], na.rm=T)
     nswMatrix[covars[i], "Control"] <- round(t$estimate[1],2)
     nswMatrix[covars[i], "Treatment"] <- round(t$estimate[2],2)
     nswMatrix[covars[i], "Difference"] <- round(t$estimate[2] - t$estimate[1], 2)
     nswMatrix[covars[i], "P-Value"] <- round(t$p.value,2)
  }
Error: Must use a vector in `[`, not an object of class matrix.
Call `rlang::last_error()` to see a backtrace