如何在R中多次试验中获得特定时间的随机观察点？

Question

我正在研究 Spike Trains 和我的代码，以获得这样的 Spike Trains：

20 次试验的结果写在下面。该图像具有 5 次试验的代表性。

fr = 100
dt = 1/1000 #dt in milisecond
duration = 2 #no of duration in s
nBins = 2000 #10msSpikeTrain
nTrials = 20 #NumberOfSimulations
MyPoissonSpikeTrain = function(p, fr= 100) {
 p = runif(nBins)
 q = ifelse(p < fr*dt, 1, 0)
 return(q)
  }

set.seed(1)
SpikeMat <- t(replicate(nTrials, MyPoissonSpikeTrain()))

plot(x=-1,y=-1, xlab="time (s)", ylab="Trial",
    main="Spike trains",
    ylim=c(0.5, nTrials+1), xlim=c(0, duration))
for (i in 1: nTrials)
 {
   clip(x1 = 0, x2= duration, y1= (i-0.2), y2= (i+0.4))
   abline(h=i, lwd= 1/4)
   abline(v= dt*which( SpikeMat[i,]== 1))
  }

每次试验都会在随机时间点出现峰值。现在我正在努力争取的是获得一个适用于所有 20 次试验的随机样本时间点，并且我想为每次试验获得由该点所属的间隔长度组成的向量。获取尖峰发生点的时间向量的代码是，

A <- numeric()
for (i in 1: nTrials)
 {
  ISI <- function(i){
   spike_times <- c(dt*which( SpikeMat[i, ]==1))
   ISI1vec <- c(diff(spike_times))
   A <- c(A, ISI1vec)
   return(A)}
    }

然后，您可以针对您希望查看其 Interspike 间隔向量的任何试验调用 ISI(i)。我想要的视觉表示是：

我想为每次试验获得一个向量，该向量具有该点所属的区间长度。我也想弄清楚它的分布，但那是以后的事了。有人能帮我弄清楚如何编码吗？

Answer 1

您的数据

set.seed(1)
SpikeMat <- t(replicate(nTrials, MyPoissonSpikeTrain()))

我建议将稀疏矩阵数据转换为出现峰值的索引列表

L <- lapply(seq_len(nrow(SpikeMat)), function(i) setNames(which(SpikeMat[i, ] == 1), seq_along(which(SpikeMat[i, ] == 1))))

抓取随机时间点

set.seed(1)
RT <- round(runif(1) * ncol(SpikeMat)) 
# 531

结果

distances

包含到 2 个最近尖峰的距离 - 列表中的每个元素都是一个命名向量，其中值是（到

RT

）的距离，它们的名称是它们在向量中的位置。

nearest_columns

显示

SpikeMat

中每个尖峰的原始时间点（列号）。

bookend_values <- function(vec) {
    lower_val <- head(sort(vec[sign(vec) == 1]), 1)
    upper_val <- head(sort(abs(vec[sign(vec) == -1])), 1)
    return(c(lower_val, upper_val))
}

distances <- lapply(L, function(i) bookend_values(RT-i))
nearest_columns <- lapply(seq_along(distances), function(i) L[[i]][names(distances[[i]])])

请注意，bookend

RT

的两个最近尖峰的尖峰间间隔可以通过

获得

sapply(distances, sum)