Home/ Questions/Q 8999687
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-06-16T00:12:47+00:00

How can I replace the results of the findinterval function with my desired numbers?

  • 0

How can I replace the results of the findinterval function with my desired numbers? Below is the dput() output:

a=c(113,113,113,113,111,111,115,116,117,118,220,220)
b=c(113,113,113,113,111,111,115,116,117,118,220,220)
c=c(2,2,1,1,5,1,1,2,1,1,1,4)
d=c(2,2,12,12,15,12,12,2,12,12,12,14)
e=c(1,1,1,1,1,2,2,2,2,2,2,3)
f=c(20,30,25,35,45,55,60,65,70,75,75,80)
h=c("1A","1A","2A","3A","1A","5A","4A","4A","7A","7A","9A","9A")
i=c(12,16,17,19,20,15,18,17,17,13,14,15)

m=data.frame(a=a,b=b,c=c,d=d,e=e,f=f,h=h,i=i)

dput(m)
structure(list(a = c(113, 113, 113, 113, 111, 111, 115, 116, 
117, 118, 220, 220), b = c(113, 113, 113, 113, 111, 111, 115, 
116, 117, 118, 220, 220), c = c(2, 2, 1, 1, 5, 1, 1, 2, 1, 1, 
1, 4), d = c(2, 2, 12, 12, 15, 12, 12, 2, 12, 12, 12, 14), e = c(1, 
1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3), f = c(20, 30, 25, 35, 45, 55, 
60, 65, 70, 75, 75, 80), h = structure(c(1L, 1L, 2L, 3L, 1L, 
5L, 4L, 4L, 6L, 6L, 7L, 7L), .Label = c("1A", "2A", "3A", "4A", 
"5A", "7A", "9A"), class = "factor"), i = c(12, 16, 17, 19, 20, 
15, 18, 17, 17, 13, 14, 15)), .Names = c("a", "b", "c", "d", 
"e", "f", "h", "i"), row.names = c(NA, -12L), class = "data.frame")

set.seed(5)
m$rand <- runif(nrow(m))

m[a==113,"i"] <- c(10,11,12)[1+findInterval(unlist(m[m$a==113,"rand",with=F]),c(0.25,0.50))]

Is there any easy way to draw from a values vector which has all these correspondences in one place. For instance have [for a==113 c(0.25,0.50),values=c(10,11,12)] [for a==111 c(0.25,0.50,0.75),values=c(1,2,3,4)] [for a==115 c(0.25,0.50,0.75),values=c(1,2,3,4)] all in one table or frame and draw from these whenever the findinterval function is used? The i column is supposed to be replaced by values wherever related. What I want to do is to read the values (e.g. c(10,11,12)) from another file and put in the findinterval function whenever needed.

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    The 0 and 1 are what is being returned by findInterval. That result should be used to index the values you are interested in. Try:

    > k[a==113,"WWW"] <- c(10,11)[1+findInterval(unlist(k[k$a==113,"rand",with=F]),c(0.45))]
 # or draw from the values vector based on your comment 
# (which should instead be an edit rather than a comment.
values=c(10,11,12)
k[a==113,"WWW"] <- values[1+findInterval(unlist(k[k$a==113,"rand",with=F]),c(0.45))]
> k
     a b  c d  e WWW      rand
1: 113 2  2 1 20  10 0.2002145
2: 113 2  2 1 30  11 0.6852186
3: 112 1 12 1 25  17 0.9168758
4: 114 1 12 1 35  19 0.2843995

    Since vectors are 1 based rather than zero based you need to add the 1 to the result.

    • 0