Ihavenothing library('inline') fn=cfunction(signature(x='numeric'), ' for(int i=0;i<length(x);i++){ REAL(x)[i]=REAL(x)[i]+1; } return(x);' ) 写长代码时不要用行内代码(反引号),用code标签。