Tengo una situación en la que tengo dos marcos de datos a los que me gustaría unirme. La mesaparams describe el parámetro de una unidad en términos de rangos de tiempo y ángulo. La mesadata es más largo y contiene parámetros de id, tiempo y ángulo.

Me gustaría unirme al valor de parámetro deparams cuando id match y time están en el rango de valid_from y valid_to y ang está entre angle_begin angle_end en eldata mesa.

A continuación se muestra un ejemplo de las tablas.

params <- data.frame(id = 1:4
                    ,valid_from  = 1
                    ,valid_to    = c(10, 20, 30, 40)
                    ,angle_begin = c(120, 90, 0, 50)
                    ,angle_end   = c(180, 170, 160, 150)
                    ,param       = c("A", "B", "C", "D"))

data <- data.frame(id = rep(1:4, each=100)
                  ,time = rep(seq(from = 0.5, to = 50, by = 0.5), 4)
                  ,ang  = rep(runif(100, 0, 360), 4))