Я собрал следующие образцы данных, которые я хотел бы запустить следующей циклической функцией R. data следующим образом
+-------+-------+
| apple | pear |
+-------+-------+
| 0.18 | 0.05 |
| 0.22 | 0.03 |
| 0.21 | 0.03 |
| 0.11 | 0 |
| 0.15 | 0.03 |
| 0.13 | 0.01 |
| 0.03 | 0.01 |
| 0 | 0 |
| -0.06 | -0.01 |
| -0.09 | -0.02 |
+-------+-------+
Циклическая функция R следующим образом
library(mvtnorm)
library(tidyverse)
muvec = apply(data, 2, mean) #data is passed as R dataframe
sigma = cov(data)
df = 10
n = 10
output <- as.data.frame(
lapply(1:n, function(x) rep(muvec, each=10) + rmvt(10, sigma=sigma, df=df))) %>%
select (sort(names(.)))
print(output)
Как мне убедиться, что имена моих output столбцов равны apple, apple.1, apple.2,...apple.10 и pear, pear.1, pear.2,...pear.10 для мои две переменные apple и pear соответственно? В настоящее время colnames(output) показывает имена моих столбцов как X1, X1.1, X1.2,...X1.10 и X2, X2.1, X2.2,...X2.10. Похоже, что моя зацикленная функция R произвольно назвала переменные как X1 и X2 вместо apple и pear