我有两个数据集。一个数据集是染料，它有两列时间和染料，另一个数据集是 sed。Sed 数据集也有 time 和 sed。然后我想从 sed 与染料的比率中找到新的变量 new。我想找到这样的比率，如果染料或 sed 为零，那么 new 将为零，否则将 new 计算为 sed /dye。
到目前为止我工作的代码如下：
dyei94j66 <- read.table("i94 j66 dye time series.Dat",header=T,sep="\t")
names(dyei94j66) <- c("Time","Dye")
head(dyei94j66)
sedi94j66 <- read.table("i94 j66 sediment time series.Dat", header=T,sep="\t")
names(sedi94j66) <- c("Time","Sed")
head(sedi94j66)
newi94j66 <- data.frame(sedi94j66$Sed / dyei94j66$Dye)
head(newi94j66)
# Merge two datasets
totaldata <- merge(dyei94j66,sedi94j66, all=TRUE)
我不知道如何使用条件来计算比率。可能是我需要创建一个我不确定的功能。现在，当染料或 sed 为零时，R 计算的值为 NaN。所以，我想在计算比率时将 NaN 更改为零。
我希望我解释了我在寻找什么。谢谢。
i94 j66 沉积物时间序列的数据可以在https://www.dropbox.com/s/1cbo8wul9nb8zeh/i94%20j66%20sediment%20time%20series.Dat i94 j66 dey 时间序列的数据可以在https上找到://www.dropbox.com/s/sqm8rip2xjh3tiu/i94%20j66%20dye%20time%20series.Dat