代表错误：'times' 参数无效

Question

当我尝试运行以下代码进行 10000 次迭代时，我在 rep(G1[ 2], G1[ 3]) 中得到以下 error.Error ：无效 'times' 争论。所以不知道如何更改代码来修复该错误。基本上只想使用一年中 8736 小时的故障时间和修复时间等式为发电机性能创建时间序列，这样我就可以得到发电机运行时的时间序列，以及发电机不运行时的时间序列。起始条件是发电机在第一个小时运行。可以肯定的是，有一个更优雅的解决方案来模拟这个，我只是找不到它。任何意见或帮助将不胜感激。

MTTF<-2940 # MEDIUM TIME TO FAIL(hours)
MTTR<-60 # MEDIUM TIME TO REPAIR (hours)
TTF<--MTTF*log(runif(100))# equation for Time to fail 
TTR<--MTTR*log(runif(100))# equation for Time to repair
mix<-rep(0,length(TTF)+length(TTR))
sw<-rep(0,length(TTF)+length(TTR))
for(i in 1:length(TTF)){
mix[2*i-1]<-TTF[i]
sw[2*i-1]<-1
mix[2*i]<-TTR[i]
}
cmix<-cumsum(mix)
ccmix<-cbind(cmix[1:which(cmix>8736)],sw[1:which(cmix>8736)])
ccmix[dim(ccmix)[1],1]<-8736


G1<-round(ccmix)
# transform binary values
G1[G1 == 1] <- 12 # is the capacity of the generator

G1 <- cbind(G1, c(G1[1,1], diff(G1[,1])))
a1 <- rep(G1[,2], G1[,3]) ## GENERATING 8736 Values

所以期望的输出是 8736 个值，当 ON 时为 12，OFF 时为 0

Answer 1

检查 G1[,3] 是什么。错误可能是由 times 参数

中的负值引起的

代表错误：'times' 参数无效

Error in rep: invalide 'times' argument

r

time-series

montecarlo