求助,该怎么处理呢# Initialization> rm(list=ls())> library(stochvol)> set.seed(1000) # for replication> options(digits=17)> vt = read.table('vft.txt',sep = '\t')> T = dim(vt)[1]> N = dim(vt)[2]> for (i in 1:N){+ if(min(log(vt[,i]^2))== -Inf){+ vt[vt < 1e-10] <- 1e-5 + vt[vt < 1e-10] + }+ }> # Run MCMC algorithm and store draws> S = 50000> burn = 50000> m = matrix(0,T+3,N)> g = matrix(0,3,N)> for (i in 1:N){+ draws = svsample(vt[,i],draws=S,burnin=burn,quiet=TRUE,thinpara=10,thinlatent=10)+ all = cbind(draws$para,draws$latent)+ all = cbind(draws$para[[1]][,-(4:5)],draws$latent[[1]])+ m[,i] = colMeans(all)+ g[,i] = geweke.diag(draws$para)$z+ name = sprintf('svfdraws%d.txt',i)+ # write(t(all),file=name,ncolumn=dim(all)[2])+ }Error in lm.fit(x, y, offset = offset, singular.ok = singular.ok, ...) : NA/NaN/Inf in 'y'


雷达卡



京公网安备 11010802022788号







