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

Question

Я хотел бы написать цикл для добавления определенных значений, извлеченных из текстовых файлов, для заполнения верхней треугольной половины матрицы в R. До сих пор это то, что у меня есть:

M <- diag(50)
ct <- 1
for (sub in (filenames$file_id)) {
subj <- read.table(paste0(data_dir, 'subject_', sub, '.txt'), sep="", fill=TRUE)
ht <- as.character(subj$V2[grep("ht",subj$V1)])
### insert code to append ht value from each subject text file into the matrix accordingly ###
ct <- ct + 1
}

Буду признателен за полезную информацию, спасибо!