А[
Size: a a a
А[
А[
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
ЕТ
ЕТ
А[
ЕТ
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
set.seed(333)
data <- matrix(rpois(25, 5), ncol = 5)
data
window <- numeric()
for (col in 1:(ncol(data) - 2)) {
for (row in 1:(nrow(data) - 2)) {
window <- cbind(window, mean(data[seq(row, row + 2), seq(col, col + 2)]))
}
}
window
PU
ЕТ
PU
ЕТ
PU
a
a
PU
A
A
PU