3482
правки
Изменения
м
→Предварительное выделение памяти
{{r-code|code=<nowiki>> noaaloc <- function(n) {
+ x <- NULL# объявляем пустую переменную
+ for (i in seq_len(n))
+ x[i] <- i * i
>
> alloc <- function(n) {
+ x <- integer(n)# объявляем переменную нужного типа и размера
+ for (i in seq_len(n))
+ x[i] <- i * i