R
У near в base есть аналог, на котором near собсно и построен, но я уже не помню
Size: a a a
R
R
R
АК
x <- sample(1:100)Длинно зато понятно.
r <- integer(length(x))
m <- mean(x)
r[x == m] <- 0
r[x > m] <- 1
r[x < m] <- -1
ВП
R
R
AS
R
R
AS
AS
ИП
AS
AS
VS
a
VS
ИП
IS