当第一个数据集的数量最大时,我编写了一个代码来计算第二个数据集的数量,但最后对于某些纬度和经度,我得到了非常大的数字,这不在第一个数据集中。这是代码的核心:
PW.storm <- array(NA,dim=c(length(lon1),length(lat1)))
for (i in 1:length(lon1)){
for (j in 1:length(lat1)){
for (k in 1:length(time)){
t <- time.when.dat1.max <- which.max(abs(dat1[i,j,]))
PW.storm[i,j] <- abs(dat2[i,j,t])
}
}
}