Обрезающие элементы в длинном векторе до +/- порога

Question

Я пишу программу в Р. Я застрял здесь.

У меня есть вектор, как

X=c(84.05, 108.04, 13.95, -194.05, 64.03, 208.05, 84.13, 57.04) 

Я хочу, чтобы получить вектор после замены всех элементов этого вектора, которые> 180 на 180 и все элементы, которые меньше, чем < -180 по -180.

Как я хочу, чтобы получить,

X=c(84.05, 108.04, 13.95,-180, 64.03, 180, 84.13, 57.04) 

Как это сделать ??

Вектор, который я работаю, очень большой.

Answer 1

Попробуйте использовать pmin

> pmin(abs(X), 180)*sign(X) 
[1] 84.05 108.04 13.95 -180.00 64.03 180.00 84.13 57.04 

Benchmark

> Jilber <- function() pmin(abs(X), 180)*sign(X) 
> MrFlick <- function() pmin(pmax(X, -180), 180) 
> user1317221_G <- function() ifelse(X < -180,-180, ifelse(X > 180, 180, X)) 
> benchmark(replications=50000, 
+   Jilber(), 
+   MrFlick(), 
+   user1317221_G(), 
+   columns=c('test', 'elapsed', 'relative')) 
      test elapsed relative 
1  Jilber() 0.835 1.000 
2  MrFlick() 1.297 1.553 
3 user1317221_G() 1.709 2.047 

Answer 2

ifelse(X < -180,-180, ifelse(X > 180, 180, X))