I would like to generate a table with 2 columns, with pre-defined parameters for each column, like the picture below:
What I have in R code so far for the first column is:
current_point<-50
lower_bound<-40
upper_bound<-60
size<-2
seq(start,end,by=size)
I am able to generate an array from the lines, however, I am stuck when it comes to the second column after I define the needed parameters:
value_A<-3
fixed_point<-54
Can you please help? Million thanks.
>Solution :
This is a good fit for ifelse.
col1 = seq(lower_bound,upper_bound,by=size)
ifelse(col1 < fixed_point, col1 - fixed_point + value_A, value_A)
# [1] -11 -9 -7 -5 -3 -1 1 3 3 3 3
Incidentally, I think you can reduce this with pmin:
pmin(col1 - fixed_point + value_A, value_A)
# [1] -11 -9 -7 -5 -3 -1 1 3 3 3 3
This is doing a vectorized (element-by-element) minimum.
Even more code reduction, in the form of algebraic factoring:
pmin(col1 - fixed_point, 0) + value_A
# [1] -11 -9 -7 -5 -3 -1 1 3 3 3 3