插值在眼影数据中闪烁 - 开始/结束间隔作为时间点

Question

因此，对于我为自己解释的不良尝试，我提前道歉。我迷路了。

概括： 我正在使用R中的眼线线包装，以时间序列方式分析学生大小的数据。

我设法创建了一组间隔，闪烁启动和结束（扩展键，它们扩展了每个方向150毫秒（1000Hz）。

# Define set of intervals for blinks
Blk <- cbind(df$blinks$stime, df$blinks$etime)

# Extend blinks (100 milliseconds each way)
extendedBlinks <- Intervals(Blk) %>% expand(150, "absolute")
head(extendedBlinks)
output:

Object of class Intervals
6 intervals over R:
[4485724, 4486141]
[4485984, 4486657]
[4486549, 4486853]
[4486595, 4487040]
[4486800, 4489142]
[4498990, 4499339]

在我的数据框架中，我有PSL（左瞳孔大小），PSR（右瞳孔大小）和时间（时间）（右）和时间（ 与上面的间隔相同的值。

想获得

相对于眼球行驶，我 对我有用。

# Interpolation
x1 <- c(extendedBlinks[1,1],extendedBlinks[1,2])
y1 <- c(500, 550)

interp <- approx(x1,y1, n = extendedBlinks[1,2]-extendedBlinks[1,1])
plot(interp)

似乎 问题

。

​