r - rep : invalide 'times' argument中的错误

Question

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

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参数中的负值引起的