writeBin(r, fobj) fobj } final <- function(fobj) { close(fobj) t(matrix(readBin('temp.bin', what='double', n=niter*2), nrow=2)) } mkprogress ...
確定! 回上一頁