你好，

Biocchek给出了一个关于注意：考虑澄清如何初始化9个对象。它们是加载有数据（）的数据集的一部分，或者或许在（）或在（）中引用的对象的一部分。函数（对象）Codonmat2xy（Codon）Codonmat2xy（Syn）Codonmat2xy（Nonsyn）Codonmat2xy（annsum）Codonmat2xy（nonsynsum）Codonmat2xy（Indelsum）Codonmat2xy（Synmean）Codonmat2xy（Nonsynmean）Codonmat2xy（Indelemean）

但是，对象初始化在并行的换行循环中，而不是用dplyr处理。

有没有办法如何处理这种对象初始化而不获得Bioccheck的注释？

谢谢你的期待

此致

克里斯蒂安Ullrich.

Codonmat2xy < - 函数（Codonmat，Threads = 1）{Domc :: RegisterDomc（线程）I < -  null j < -  null k < -  null out < -  foreach（i = seq（from = 1，to = nrow（codonmat））.combine = rbind）％doPar％{foreach（j = seq（from = 1，to = nconmat） -  1），.combine = rbind）％do％{foreach（k = seq（from = j +1，to = ncol（codonmat）），.combine = rbind）％do％{c（setNames（i，“cocon”），setNames（j，“comp1”），setNames（k，“comp2”），setNames（比较（Codonmat [i，j]，codonmat [i，k]），c（“syn”，“nonsyn”，“indel”）））}}}} out <--as.data.frame（out）out.nas< -  out％>％dloplr :: group_by（codon）％>％doldr :: filter（！is.na（syn））％>％doldr :: count（codon）out.synsum < -  out％>％dplyr：：group_by（密码子）％>％dloplr :: sumparize（synsum = sum（syn，na.rm = true））out.nonsynsum < -  out％>％doldr :: group_by（codon）％>％dplyr :: sumparize（nonsynsum = sum（nonsyn，na.rm = true））out.indelsum < -  out％>％dloplr :: group_by（codon）％>％dplyr :: summarize（indelsum = sum（indel，na.rm = true））out.join < -  dlopl :: left_join（out.nas，out.synsum）％>％dplyr :: left_jo在（out.nonsynsum）％>％dloplr :: left_join（out.indelsum）out.xy < -  out.join％>％dplyr :: mutate（synmean = synsum / n，nonsynmean = nonsynsum / n，Indelmean = Indelsum /n）out.xy < -  out.xy％>％dplyr :: mutate（cumsumsynmean = cumsum（synmean），cumsumnonsynmean = cumsum（nonsynmean），cumsumindelmean = cumsum（inselmean））return（out.xy）}