Как добавить непрерывную последовательность (уникальный идентификатор) в массив?
Существует программное обеспечение под названием «win-get».
win-get - это автоматическая система установки и репозиторий программ для Microsoft Windows, написанных на pascal (для клиента командной строки) и php для онлайн-поиска репозиторий. Идеи для его создания взяты из apt-get и других связанных инструментов для платформ * nix.
Система работает, подключившись к репозиторию ссылок. Поиск приложения и загрузка его из сохраненной ссылки с помощью wget.exe. Затем выполните процедуру установки (тихий или стандартный). И окончательно удалить установочный файл.
1 ответ
Может быть, это то, что вы хотите.
Он использует apply, чтобы добавить дополнительный столбец к каждому срезу, определенному 2-м измерением массива, и после того, как это будет сделано, правильно устанавливает окончательные размеры.
ar2 <- sapply(1:5, function(i){
new <- seq_len(NROW(ar1[, i, ])) + (i - 1)*NROW(ar1[, i, ])
cbind(ar1[, i, ], new)
})
dim(ar2) <- c(91, 5, 5)
Приведенный выше код создает новый массив, если вы хотите, вы можете переписать исходный.
Чтобы вернуть оригинал, это будет сделано.
n <- dim(ar2)[2]
ar1_back <- sapply(1:5, function(i){
ar2[, -n, i]
})
dim(ar1_back) <- c(91, 5, 4)
identical(ar1, ar1_back)
#[1] TRUE