AS
Size: a a a
PU
AS
AS
DN
A
AS
AS
PU
AS
PU
AS
AS
PU
a
l
ЕТ
set.seed(333)
data <- matrix(rpois(25, 5), ncol = 5)
data
window <- numeric()
for (col in ncol(data) - 2) {
for (row in nrow(data) - 2) {
window <- c(window, mean(data[seq(row, row + 2), seq(col, col + 2)]))
}
}
window
ЕТ
vec <- numeric()
for (i in 1:5) {
vec <- c(vec, i)
}
vec
А[
vec <- numeric()
for (i in 1:5) {
vec <- c(vec, i)
}
vec