zoukankan      html  css  js  c++  java
  • R进度条实现

    R进度条实现

    发现一个包progress,可以在服务器中R实现进度条。包的地址:https://github.com/r-lib/progress

    install.packages("progress")
    library(progress)
    pb <- progress_bar$new(total = pp) ## pp是循环次数
    for (i in 1:pp) {
          #此处是循环内容
          pb$tick()
          Sys.sleep(1 / 100)
    }
    

    写了个小函数,实现一下:

    SNP.proxy = c()
    pb <- progress_bar$new(total = dim(snp.miss)[1])
    for(i in 1:dim(snp.miss)[1]){
      try({	pos.temp = exp$POS -snp.miss$POS[i]
    	index.1 = which(abs(pos.temp) < 500000)
    	temp = ax0[index.1,]
    	temp = temp[order(temp$P),][1:100,]	
    	index.2 = out$SNP[which(out$SNP%in%(temp$SNP))]
    	temp.2 = temp[which(temp$SNP%in%index.2),]
    	temp.3 = temp.2[which(temp.2$P==min(temp.2$P)),]
    	SNP.proxy = c(SNP.proxy,temp.3$SNP)
    	})
    	pb$tick()
    	Sys.sleep(1 / dim(snp.miss)[1])
    	}
    

    效果如下:

  • 相关阅读:
    第十周作业--阅读(五一)
    第九周作业
    第八周作业
    第七周作业
    第六周作业
    模板
    第五周作业
    第四周作业
    第三周作业
    文件
  • 原文地址:https://www.cnblogs.com/biostat-yu/p/13947146.html
Copyright © 2011-2022 走看看