UIBE在價(jià)值鏈指標(biāo)體系中有一個(gè)基于3x4(3國4部門)的生產(chǎn)分解案例，附有代碼，但是第四個(gè)腳本中有一部分代碼運(yùn)行出現(xiàn)錯(cuò)誤，而且沒看明白是什么意思，具體代碼如下(紅色部分即為出錯(cuò)的代碼)：

##***************************************************##

##? ? ? ? Created by: Fei Wang? ?Date: 05/08/2016? ?? ?? ?? ?? ?? ?? ? ##

##? ?? ?? ?E-Mail:wangfei64@hotmail.com? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ???##

##? ? ? ?? ?? ???School of International Trade and Economics? ?? ?? ? ##

## University of International Business and Economics, China? ?##

#####################################

## Part 0 = GVC participation index based on forward industrial linkage======

path

pathdata

pathinc

pathout

flnm

load( flnm )

GN

N

flnm = paste0( path,"/index1_PROD/SVAbyFDbyYear.RData" )

load( flnm )

#View( SVAbyFDbyYear[ ,,1] )

GVC_Pat_f??

for ( j in 1:length( year ) ){

z

GVC_Pat_f[ ,1,j ]

GVC_Pat_f[ ,2,j ]

GVC_Pat_f[ ,3,j ]

}

colnam

dimnames( GVC_Pat_f )

##== VAX_Fs, DVA_Fs,RCA_DVA_f

VAX_Fs

DVA_Fs

##== RCA_DVA_f ==============================

DVA_G

for ( i in 1:length( year ) ){

#i=1

flnm

load( flnm )

DVA_G[ ,i ]

rm( T01_DVA_FIN); gc(??)

flnm

load( flnm )

DVA_G[ ,i ]

rm( T02_DVA_INT); gc(??)

flnm

load( flnm )

DVA_G[ ,i ]

rm(??T03_DVA_INTrex1); gc(??)

flnm

load( flnm )

DVA_G[ ,i ]

rm( T04_DVA_INTrex2 );gc(??)

flnm

load( flnm )

DVA_G[ ,i ]

rm( T05_DVA_INTrex3 );gc(??)

flnm

load( flnm )

DVA_G[ ,i ]

rm( T06_RDV_FIN1 );gc(??)

flnm

load( flnm )

DVA_G[ ,i ]

rm( T07_RDV_FIN2 );gc(??)

flnm

load( flnm )

DVA_G[ ,i ]

rm( T08_RDV_INT); gc(??)

print( paste( year[ i ], " is done !" ) )

}

VAEXbySVA

rm( DVA_G);gc(??)

RCAVAbySVAbyStateYear

WIbyYear

XIbyYear

for ( i in 1:length(year) ){

x

dim( x )??

WIbyYear[ ,i ]

for ( s in 1:G ){

x

XIbyYear[(1+(s-1)*N):(N+(s-1)*N),i ]

RCAVAbySVAbyStateYear[(1+(s-1)*N):(N+(s-1)*N),i ]

XIbyYear[(1+(s-1)*N):(N+(s-1)*N),i ]/WIbyYear[ ,i ]

}

}

dimnames( RCAVAbySVAbyStateYear )

RCA_DVA_f

require( reshape )

# == -------------==============================

require( plyr )

nrownam

nrownam2

nrownam2

nrownam2

nrownam

z

rownames( z )

SVAbyFDbyYear

z

rownames( z )

GVC_Pat_f

dim( VAX_Fs )

dimnames( VAX_Fs )

dim( DVA_Fs )

dimnames( DVA_Fs )

dim( RCA_DVA_f )

dimnames( RCA_DVA_f )

flnm

write.csv( cbind(SVAbyFDbyYear,GVC_Pat_f,

VAX_Fs,DVA_Fs,RCA_DVA_f),file=flnm )

運(yùn)行時(shí)顯示：

Error in readChar(con, 5L, useBytes = TRUE) : 無法打開鏈結(jié)

此外: Warning message:

In readChar(con, 5L, useBytes = TRUE) :

無法打開壓縮文件'D:/GVCinR/inc/2000/T01_DVA_FIN.RData'，可能是因?yàn)?#39;No such file or directory'

在之前的代碼中并沒有看到輸出T01_DVA_FIN.RData，所以這一步不知道是從哪里來的，麻煩大神指導(dǎo)，十分感謝

總結(jié)

以上是生活随笔為你收集整理的regnam r语言_求助：R语言进行增加值分解的一部分代码看不懂，求大神过目的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。