Back to Multiple platform build/check report for BioC 3.11
AB[C]DEFGHIJKLMNOPQRSTUVWXYZ

CHECK report for cobindR on tokay2

This page was generated on 2020-03-12 14:01:09 -0400 (Thu, 12 Mar 2020).

Package 334/1838HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
cobindR 1.25.0
Manuela Benary
Snapshot Date: 2020-03-11 16:45:12 -0400 (Wed, 11 Mar 2020)
URL: https://git.bioconductor.org/packages/cobindR
Branch: master
Last Commit: 4ab7bad
Last Changed Date: 2019-10-29 13:36:53 -0400 (Tue, 29 Oct 2019)
malbec2 Linux (Ubuntu 18.04.4 LTS) / x86_64  OK  OK  ERROR 
tokay2 Windows Server 2012 R2 Standard / x64  OK  OK [ ERROR ] OK 

Summary

Package: cobindR
Version: 1.25.0
Command: C:\Users\biocbuild\bbs-3.11-bioc\R\bin\R.exe CMD check --force-multiarch --install=check:cobindR.install-out.txt --library=C:\Users\biocbuild\bbs-3.11-bioc\R\library --no-vignettes --timings cobindR_1.25.0.tar.gz
StartedAt: 2020-03-12 05:49:28 -0400 (Thu, 12 Mar 2020)
EndedAt: 2020-03-12 05:57:57 -0400 (Thu, 12 Mar 2020)
EllapsedTime: 508.6 seconds
RetCode: 1
Status:  ERROR  
CheckDir: cobindR.Rcheck
Warnings: NA

Command output

##############################################################################
##############################################################################
###
### Running command:
###
###   C:\Users\biocbuild\bbs-3.11-bioc\R\bin\R.exe CMD check --force-multiarch --install=check:cobindR.install-out.txt --library=C:\Users\biocbuild\bbs-3.11-bioc\R\library --no-vignettes --timings cobindR_1.25.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory 'C:/Users/biocbuild/bbs-3.11-bioc/meat/cobindR.Rcheck'
* using R Under development (unstable) (2020-01-27 r77730)
* using platform: x86_64-w64-mingw32 (64-bit)
* using session charset: ISO8859-1
* using option '--no-vignettes'
* checking for file 'cobindR/DESCRIPTION' ... OK
* this is package 'cobindR' version '1.25.0'
* checking package namespace information ... OK
* checking package dependencies ... NOTE
Package which this enhances but not available for checking: 'genoPlotR'
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking whether package 'cobindR' can be installed ... WARNING
Found the following significant warnings:
  Warning: multiple methods tables found for 'path'
  Warning: multiple methods tables found for 'path<-'
See 'C:/Users/biocbuild/bbs-3.11-bioc/meat/cobindR.Rcheck/00install.out' for details.
* checking installed package size ... OK
* checking package directory ... OK
* checking 'build' directory ... OK
* checking DESCRIPTION meta-information ... NOTE
Malformed Description field: should contain one or more complete sentences.
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* loading checks for arch 'i386'
** checking whether the package can be loaded ... OK
** checking whether the package can be loaded with stated dependencies ... OK
** checking whether the package can be unloaded cleanly ... OK
** checking whether the namespace can be loaded with stated dependencies ... NOTE
Warning: multiple methods tables found for 'path'
Warning: multiple methods tables found for 'path<-'

A namespace must be able to be loaded with just the base namespace
loaded: otherwise if the namespace gets loaded by a saved object, the
session will be unable to start.

Probably some imports need to be declared in the NAMESPACE file.
** checking whether the namespace can be unloaded cleanly ... OK
* loading checks for arch 'x64'
** checking whether the package can be loaded ... OK
** checking whether the package can be loaded with stated dependencies ... OK
** checking whether the package can be unloaded cleanly ... OK
** checking whether the namespace can be loaded with stated dependencies ... NOTE
Warning: multiple methods tables found for 'path'
Warning: multiple methods tables found for 'path<-'

A namespace must be able to be loaded with just the base namespace
loaded: otherwise if the namespace gets loaded by a saved object, the
session will be unable to start.

Probably some imports need to be declared in the NAMESPACE file.
** checking whether the namespace can be unloaded cleanly ... OK
* checking dependencies in R code ... NOTE
'library' or 'require' calls in package code:
  'MotifDb' 'parallel' 'snowfall'
  Please use :: or requireNamespace() instead.
  See section 'Suggested packages' in the 'Writing R Extensions' manual.
* checking S3 generic/method consistency ... NOTE
Found the following apparent S3 methods exported but not registered:
  plot.detrending plot.gc plot.pairdistance plot.positionprofile
  plot.positions plot.positions.simple plot.tfbs.heatmap
  plot.tfbs.venndiagram plot.tfbslogo
See section 'Registering S3 methods' in the 'Writing R Extensions'
manual.
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... NOTE
compare.samples: no visible global function definition for
  'wilcox.test'
input.pfm.similarity: no visible global function definition for 'combn'
parallelize: no visible global function definition for
  'installed.packages'
parallelize: no visible global function definition for 'mclapply'
parallelize: no visible global function definition for 'sfCpus'
parallelize: no visible global function definition for 'sfInit'
parallelize: no visible global function definition for 'sfLapply'
parallelize: no visible global function definition for 'sfStop'
query.motifDb: no visible binding for global variable 'MotifDb'
find.pairs,cobindr: no visible global function definition for 'combn'
plot.detrending,cobindr: no visible global function definition for
  'par'
plot.detrending,cobindr: no visible global function definition for
  'plot'
plot.detrending,cobindr: no visible global function definition for
  'lines'
plot.detrending,cobindr: no visible global function definition for
  'title'
plot.gc,cobindr: no visible global function definition for
  'txtProgressBar'
plot.gc,cobindr: no visible global function definition for
  'setTxtProgressBar'
plot.gc,cobindr: no visible global function definition for 'rainbow'
plot.gc,cobindr: no visible global function definition for 'par'
plot.gc,cobindr: no visible global function definition for 'matplot'
plot.gc,cobindr: no visible global function definition for 'points'
plot.gc,cobindr: no visible global function definition for 'legend'
plot.pairdistance,cobindr: no visible global function definition for
  'hist'
plot.pairdistribution,cobindr: no visible global function definition
  for 'plot'
plot.positionprofile,cobindr: no visible global function definition for
  'rainbow'
plot.positionprofile,cobindr: no visible global function definition for
  'matplot'
plot.positionprofile,cobindr: no visible global function definition for
  'legend'
plot.positions.simple,cobindr: no visible global function definition
  for 'rainbow'
plot.positions.simple,cobindr: no visible global function definition
  for 'par'
plot.positions.simple,cobindr: no visible global function definition
  for 'plot'
plot.positions.simple,cobindr: no visible global function definition
  for 'points'
plot.positions.simple,cobindr: no visible global function definition
  for 'legend'
plot.positions,cobindr: no visible global function definition for
  'rainbow'
plot.positions,cobindr: no visible binding for global variable 'n.cpu'
plot.positions,cobindr: no visible global function definition for
  'hclust'
plot.positions,cobindr: no visible global function definition for
  'dist'
plot.positions,cobindr: no visible global function definition for
  'order.dendrogram'
plot.positions,cobindr: no visible global function definition for
  'as.dendrogram'
plot.positions,cobindr: no visible global function definition for
  'grid.newpage'
plot.positions,cobindr: no visible global function definition for
  'pushViewport'
plot.positions,cobindr: no visible global function definition for
  'viewport'
plot.positions,cobindr: no visible global function definition for
  'plot_gene_map'
plot.positions,cobindr: no visible global function definition for
  'popViewport'
plot.positions,cobindr: no visible global function definition for
  'gpar'
plot.positions,cobindr: no visible global function definition for
  'grid_legend'
plot.tfbs.heatmap,cobindr: no visible global function definition for
  'phyper'
plot.tfbs.heatmap,cobindr: no visible global function definition for
  'heat.colors'
plot.tfbs.venndiagram,cobindr: no visible global function definition
  for 'venn.diagram'
plot.tfbs.venndiagram,cobindr: no visible global function definition
  for 'grid.draw'
plot.tfbslogo,cobindr : <anonymous>: no visible global function
  definition for 'makePWM'
plot.tfbslogo,cobindr : <anonymous>: no visible global function
  definition for 'seqLogo'
plot.tfbslogo,cobindr : <anonymous>: no visible global function
  definition for 'grid.text'
plot.tfbslogo,cobindr : <anonymous>: no visible global function
  definition for 'gpar'
read.pfm,configuration: no visible global function definition for
  'read.table'
read.sequences,configuration: no visible global function definition for
  'txtProgressBar'
read.sequences,configuration: no visible global function definition for
  'setTxtProgressBar'
read.sequences,configuration: no visible global function definition for
  'read.table'
search.gadem,cobindr : <anonymous>: no visible global function
  definition for 'GADEM'
search.gadem,cobindr: no visible global function definition for 'GADEM'
search.gadem,cobindr: no visible global function definition for
  'nMotifs'
search.pwm,cobindr: no visible global function definition for 'error'
testCpG,cobindr: no visible global function definition for 'hist'
testCpG,cobindr: no visible global function definition for 'layout'
testCpG,cobindr: no visible global function definition for 'par'
testCpG,cobindr: no visible global function definition for 'barplot'
write.bindingsites.table,cobindr: no visible global function definition
  for 'mcols'
write.bindingsites.table,cobindr: no visible global function definition
  for 'write.table'
write.bindingsites,cobindr: no visible global function definition for
  'write.table'
write,cobindr-character: no visible global function definition for
  'write.table'
Undefined global functions or variables:
  GADEM MotifDb as.dendrogram barplot combn dist error gpar grid.draw
  grid.newpage grid.text grid_legend hclust heat.colors hist
  installed.packages layout legend lines makePWM matplot mclapply mcols
  n.cpu nMotifs order.dendrogram par phyper plot plot_gene_map points
  popViewport pushViewport rainbow read.table seqLogo setTxtProgressBar
  sfCpus sfInit sfLapply sfStop title txtProgressBar venn.diagram
  viewport wilcox.test write.table
Consider adding
  importFrom("grDevices", "heat.colors", "rainbow")
  importFrom("graphics", "barplot", "hist", "layout", "legend", "lines",
             "matplot", "par", "plot", "points", "title")
  importFrom("stats", "as.dendrogram", "dist", "hclust",
             "order.dendrogram", "phyper", "wilcox.test")
  importFrom("utils", "combn", "installed.packages", "read.table",
             "setTxtProgressBar", "txtProgressBar", "write.table")
to your NAMESPACE file.
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking files in 'vignettes' ... OK
* checking examples ...
** running examples for arch 'i386' ... ERROR
Running examples in 'cobindR-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: search.pwm
> ### Title: function to predict transcription factor binding sites using the
> ###   method matchPWM from package Biostrings
> ### Aliases: search.pwm search.pwm-method search.pwm,cobindr-method
> ### Keywords: manip iteration methods
> 
> ### ** Examples
> 
> ############################################################
> # use simulated sequences
> library(Biostrings)
Loading required package: BiocGenerics
Loading required package: parallel

Attaching package: 'BiocGenerics'

The following objects are masked from 'package:parallel':

    clusterApply, clusterApplyLB, clusterCall, clusterEvalQ,
    clusterExport, clusterMap, parApply, parCapply, parLapply,
    parLapplyLB, parRapply, parSapply, parSapplyLB

The following objects are masked from 'package:cobindR':

    path, path<-

The following objects are masked from 'package:stats':

    IQR, mad, sd, var, xtabs

The following objects are masked from 'package:base':

    Filter, Find, Map, Position, Reduce, anyDuplicated, append,
    as.data.frame, basename, cbind, colnames, dirname, do.call,
    duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
    lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
    pmin.int, rank, rbind, rownames, sapply, setdiff, sort, table,
    tapply, union, unique, unsplit, which, which.max, which.min

Loading required package: S4Vectors
Loading required package: stats4

Attaching package: 'S4Vectors'

The following object is masked from 'package:base':

    expand.grid

Loading required package: IRanges

Attaching package: 'IRanges'

The following object is masked from 'package:grDevices':

    windows

Loading required package: XVector

Attaching package: 'Biostrings'

The following object is masked from 'package:base':

    strsplit

> 
> n <- 400 # number of input sequences
> l <- 500 # length of sequences
> n.hits <- 250 # number of 'true' binding sites
> bases <- c("A","C","G","T") # alphabet
> # generate random input sequences with two groups with differing GC content
> seqs <- sapply(1:(3*n/4), function(x) paste(sample(bases, l, replace=TRUE, 
+ 		prob=c(.3,.22,.2,.28)), collapse=""))
> seqs <- append(seqs, sapply(1:(n/4), function(x) paste(sample(bases, l, replace=TRUE, 
+ 		prob=c(.25,.25,.25,.25)), collapse="")))
> path <- system.file('extdata/pfms/myod.tfpfm',package='cobindR')
> motif <- read.transfac.pfm(path)[[1]] # get PFM of binding site 
[1] "ES_Sox2_1_c1058"
[1] "ES_Klf4_3_c1373"
> # add binding sites with distance specificity
> for(position in c(110, 150)) {
+ 	hits <- apply(apply(motif, 2, function(x) sample(x=bases, size=n.hits, prob=x, 
+ 			replace=TRUE)), 1, paste, collapse='')
+ 	pos.hits <- round(rnorm(n.hits, mean=position, sd=8))
+ 	names(pos.hits) <- sample(1:n, n.hits)
+ 	for(i in 1:n.hits) substr(seqs[as.integer(names(pos.hits)[i])], start=pos.hits[i], 
+ 							stop=pos.hits[i]+ncol(motif)) <- hits[i] 
+ }
> #save sample sequences in fasta file
> tmp.file <- tempfile(pattern = "cobindr_sample_seq", tmpdir = tempdir(), fileext = ".fasta")
> writeXStringSet(DNAStringSet(seqs), tmp.file)
> #run cobindr
> cfg <- cobindRConfiguration()
Warning in .local(.Object, ...) :
  no config-file defined, generating configuration-object with default values
> sequence_type(cfg) <- 'fasta'
> sequence_source(cfg) <- tmp.file
> sequence_origin(cfg) <- 'artificial sequences'
> pfm_path(cfg) <- system.file('extdata/pfms',package='cobindR')
> pairs(cfg) <- 'V$MYOD_01 V$MYOD_01' 
> runObj <- cobindr(cfg, name='cobindr test using sampled sequences')
[1] "Creating a new experiment!"
reading file C:\Users\biocbuild\bbs-3.11-bioc\tmpdir\RtmpiaZM9W\cobindr_sample_seq2734ad46b47.fasta ...

  |                                                                            
  |                                                                      |   0%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=                                                                     |   1%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=                                                                     |   2%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==                                                                    |   2%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==                                                                    |   3%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==                                                                    |   4%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===                                                                   |   4%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===                                                                   |   5%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====                                                                  |   5%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====                                                                  |   6%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====                                                                 |   6%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====                                                                 |   7%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====                                                                 |   8%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======                                                                |   8%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======                                                                |   9%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======                                                               |  10%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========                                                              |  11%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========                                                              |  12%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========                                                             |  12%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========                                                             |  13%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========                                                             |  14%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========                                                            |  14%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========                                                            |  15%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========                                                           |  15%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========                                                           |  16%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============                                                          |  16%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============                                                          |  17%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============                                                          |  18%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============                                                         |  18%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============                                                         |  19%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============                                                        |  20%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============                                                       |  21%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============                                                       |  22%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================                                                      |  22%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================                                                      |  23%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================                                                      |  24%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================                                                     |  24%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================                                                     |  25%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================                                                    |  25%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================                                                    |  26%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================                                                   |  26%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================                                                   |  27%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================                                                   |  28%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================                                                  |  28%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================                                                  |  29%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====================                                                 |  30%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================                                                |  31%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================                                                |  32%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================                                               |  32%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================                                               |  33%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================                                               |  34%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========================                                              |  34%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========================                                              |  35%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========================                                             |  35%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========================                                             |  36%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================                                            |  36%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================                                            |  37%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================                                            |  38%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========================                                           |  38%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========================                                           |  39%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============================                                          |  40%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================                                         |  41%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================                                         |  42%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================                                        |  42%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================                                        |  43%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================                                        |  44%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============================                                       |  44%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============================                                       |  45%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================================                                      |  45%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================================                                      |  46%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================                                     |  46%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================                                     |  47%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================                                     |  48%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================================                                    |  48%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================================                                    |  49%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================                                   |  50%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================                                  |  51%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================                                  |  52%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====================================                                 |  52%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====================================                                 |  53%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====================================                                 |  54%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================================                                |  54%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================================                                |  55%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================================                               |  55%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================================                               |  56%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========================================                              |  56%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========================================                              |  57%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========================================                              |  58%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========================================                             |  58%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========================================                             |  59%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================================                            |  60%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========================================                           |  61%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========================================                           |  62%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============================================                          |  62%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============================================                          |  63%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============================================                          |  64%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================================                         |  64%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================================                         |  65%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================================                        |  65%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================================                        |  66%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============================================                       |  66%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============================================                       |  67%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============================================                       |  68%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================================================                      |  68%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================================================                      |  69%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================================                     |  70%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================================================                    |  71%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================================================                    |  72%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================                   |  72%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================                   |  73%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================                   |  74%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================================                  |  74%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================================                  |  75%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====================================================                 |  75%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====================================================                 |  76%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================================================                |  76%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================================================                |  77%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================================================                |  78%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================================================               |  78%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================================================               |  79%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========================================================              |  80%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========================================================             |  81%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========================================================             |  82%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================================================            |  82%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================================================            |  83%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================================================            |  84%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========================================================           |  84%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========================================================           |  85%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============================================================          |  85%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============================================================          |  86%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================================================         |  86%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================================================         |  87%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================================================         |  88%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================================================        |  88%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================================================        |  89%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============================================================       |  90%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================================================================      |  91%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================================================================      |  92%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================================================     |  92%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================================================     |  93%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================================================     |  94%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================================================================    |  94%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================================================================    |  95%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================================   |  95%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================================   |  96%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================================================  |  96%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================================================  |  97%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================================================  |  98%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================================== |  98%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================================== |  99%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================================================================| 100%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
ready retrieving sequences!
 reading pfm files: C:/Users/biocbuild/bbs-3.11-bioc/R/library/cobindR/extdata/pfms ...
[1] "ES_Sox2_1_c1058"
[1] "ES_Klf4_3_c1373"
[1] "ES_Oct4_1_c570"
[1] "ES_Sox2_1_c1058"
ignored files:
 
Using the serial version of cobindR - function cpg.gc.content
> # perform tfbs prediction using matchPWM
> runObj.bs <- search.pwm(runObj, min.score = '90')
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
cobindR
 --- call from context --- 
FUN(X[[i]], ...)
 --- call from argument --- 
if (class(res) == "try-error") warning("PFM-PWM conversion failed for matrix ", 
    names(x@pfm)[x], "!")
 --- R stacktrace ---
where 1: FUN(X[[i]], ...)
where 2: lapply(1:length(x@pfm), function(y) {
    pwm = x@pfm[[y]]
    is.float = any(pwm != apply(pwm, c(1, 2), as.integer))
    if (is.float) {
        return(pwm)
    }
    else {
        res = try(pfm2pwm(pwm))
        if (class(res) == "try-error") 
            warning("PFM-PWM conversion failed for matrix ", 
                names(x@pfm)[x], "!")
        return(res)
    }
})
where 3: lapply(1:length(x@pfm), function(y) {
    pwm = x@pfm[[y]]
    is.float = any(pwm != apply(pwm, c(1, 2), as.integer))
    if (is.float) {
        return(pwm)
    }
    else {
        res = try(pfm2pwm(pwm))
        if (class(res) == "try-error") 
            warning("PFM-PWM conversion failed for matrix ", 
                names(x@pfm)[x], "!")
        return(res)
    }
})
where 4: .local(x, ...)
where 5: search.pwm(runObj, min.score = "90")
where 6: search.pwm(runObj, min.score = "90")

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (y) 
{
    pwm = x@pfm[[y]]
    is.float = any(pwm != apply(pwm, c(1, 2), as.integer))
    if (is.float) {
        return(pwm)
    }
    else {
        res = try(pfm2pwm(pwm))
        if (class(res) == "try-error") 
            warning("PFM-PWM conversion failed for matrix ", 
                names(x@pfm)[x], "!")
        return(res)
    }
}
<environment: 0x232f3320>
 --- function search by body ---
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1

** running examples for arch 'x64' ... ERROR
Running examples in 'cobindR-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: search.pwm
> ### Title: function to predict transcription factor binding sites using the
> ###   method matchPWM from package Biostrings
> ### Aliases: search.pwm search.pwm-method search.pwm,cobindr-method
> ### Keywords: manip iteration methods
> 
> ### ** Examples
> 
> ############################################################
> # use simulated sequences
> library(Biostrings)
Loading required package: BiocGenerics
Loading required package: parallel

Attaching package: 'BiocGenerics'

The following objects are masked from 'package:parallel':

    clusterApply, clusterApplyLB, clusterCall, clusterEvalQ,
    clusterExport, clusterMap, parApply, parCapply, parLapply,
    parLapplyLB, parRapply, parSapply, parSapplyLB

The following objects are masked from 'package:cobindR':

    path, path<-

The following objects are masked from 'package:stats':

    IQR, mad, sd, var, xtabs

The following objects are masked from 'package:base':

    Filter, Find, Map, Position, Reduce, anyDuplicated, append,
    as.data.frame, basename, cbind, colnames, dirname, do.call,
    duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
    lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
    pmin.int, rank, rbind, rownames, sapply, setdiff, sort, table,
    tapply, union, unique, unsplit, which, which.max, which.min

Loading required package: S4Vectors
Loading required package: stats4

Attaching package: 'S4Vectors'

The following object is masked from 'package:base':

    expand.grid

Loading required package: IRanges

Attaching package: 'IRanges'

The following object is masked from 'package:grDevices':

    windows

Loading required package: XVector

Attaching package: 'Biostrings'

The following object is masked from 'package:base':

    strsplit

> 
> n <- 400 # number of input sequences
> l <- 500 # length of sequences
> n.hits <- 250 # number of 'true' binding sites
> bases <- c("A","C","G","T") # alphabet
> # generate random input sequences with two groups with differing GC content
> seqs <- sapply(1:(3*n/4), function(x) paste(sample(bases, l, replace=TRUE, 
+ 		prob=c(.3,.22,.2,.28)), collapse=""))
> seqs <- append(seqs, sapply(1:(n/4), function(x) paste(sample(bases, l, replace=TRUE, 
+ 		prob=c(.25,.25,.25,.25)), collapse="")))
> path <- system.file('extdata/pfms/myod.tfpfm',package='cobindR')
> motif <- read.transfac.pfm(path)[[1]] # get PFM of binding site 
[1] "ES_Sox2_1_c1058"
[1] "ES_Klf4_3_c1373"
> # add binding sites with distance specificity
> for(position in c(110, 150)) {
+ 	hits <- apply(apply(motif, 2, function(x) sample(x=bases, size=n.hits, prob=x, 
+ 			replace=TRUE)), 1, paste, collapse='')
+ 	pos.hits <- round(rnorm(n.hits, mean=position, sd=8))
+ 	names(pos.hits) <- sample(1:n, n.hits)
+ 	for(i in 1:n.hits) substr(seqs[as.integer(names(pos.hits)[i])], start=pos.hits[i], 
+ 							stop=pos.hits[i]+ncol(motif)) <- hits[i] 
+ }
> #save sample sequences in fasta file
> tmp.file <- tempfile(pattern = "cobindr_sample_seq", tmpdir = tempdir(), fileext = ".fasta")
> writeXStringSet(DNAStringSet(seqs), tmp.file)
> #run cobindr
> cfg <- cobindRConfiguration()
Warning in .local(.Object, ...) :
  no config-file defined, generating configuration-object with default values
> sequence_type(cfg) <- 'fasta'
> sequence_source(cfg) <- tmp.file
> sequence_origin(cfg) <- 'artificial sequences'
> pfm_path(cfg) <- system.file('extdata/pfms',package='cobindR')
> pairs(cfg) <- 'V$MYOD_01 V$MYOD_01' 
> runObj <- cobindr(cfg, name='cobindr test using sampled sequences')
[1] "Creating a new experiment!"
reading file C:\Users\biocbuild\bbs-3.11-bioc\tmpdir\RtmpaYlgWJ\cobindr_sample_seq1ab819483abf.fasta ...

  |                                                                            
  |                                                                      |   0%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=                                                                     |   1%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=                                                                     |   2%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==                                                                    |   2%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==                                                                    |   3%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==                                                                    |   4%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===                                                                   |   4%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===                                                                   |   5%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====                                                                  |   5%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====                                                                  |   6%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====                                                                 |   6%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====                                                                 |   7%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====                                                                 |   8%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======                                                                |   8%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======                                                                |   9%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======                                                               |  10%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========                                                              |  11%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========                                                              |  12%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========                                                             |  12%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========                                                             |  13%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========                                                             |  14%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========                                                            |  14%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========                                                            |  15%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========                                                           |  15%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========                                                           |  16%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============                                                          |  16%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============                                                          |  17%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============                                                          |  18%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============                                                         |  18%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============                                                         |  19%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============                                                        |  20%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============                                                       |  21%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============                                                       |  22%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================                                                      |  22%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================                                                      |  23%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================                                                      |  24%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================                                                     |  24%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================                                                     |  25%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================                                                    |  25%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================                                                    |  26%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================                                                   |  26%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================                                                   |  27%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================                                                   |  28%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================                                                  |  28%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================                                                  |  29%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====================                                                 |  30%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================                                                |  31%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================                                                |  32%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================                                               |  32%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================                                               |  33%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================                                               |  34%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========================                                              |  34%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========================                                              |  35%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========================                                             |  35%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========================                                             |  36%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================                                            |  36%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================                                            |  37%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================                                            |  38%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========================                                           |  38%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========================                                           |  39%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============================                                          |  40%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================                                         |  41%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================                                         |  42%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================                                        |  42%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================                                        |  43%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================                                        |  44%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============================                                       |  44%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============================                                       |  45%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================================                                      |  45%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================================                                      |  46%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================                                     |  46%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================                                     |  47%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================                                     |  48%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================================                                    |  48%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================================                                    |  49%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================                                   |  50%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================                                  |  51%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================                                  |  52%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====================================                                 |  52%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====================================                                 |  53%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====================================                                 |  54%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================================                                |  54%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================================                                |  55%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================================                               |  55%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================================                               |  56%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========================================                              |  56%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========================================                              |  57%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========================================                              |  58%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========================================                             |  58%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========================================                             |  59%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================================                            |  60%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========================================                           |  61%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========================================                           |  62%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============================================                          |  62%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============================================                          |  63%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============================================                          |  64%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================================                         |  64%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================================                         |  65%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================================                        |  65%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================================                        |  66%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============================================                       |  66%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============================================                       |  67%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============================================                       |  68%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================================================                      |  68%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================================================                      |  69%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================================                     |  70%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================================================                    |  71%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================================================                    |  72%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================                   |  72%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================                   |  73%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================                   |  74%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================================                  |  74%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================================                  |  75%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====================================================                 |  75%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=====================================================                 |  76%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================================================                |  76%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================================================                |  77%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================================================                |  78%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================================================               |  78%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=======================================================               |  79%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |========================================================              |  80%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========================================================             |  81%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=========================================================             |  82%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================================================            |  82%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================================================            |  83%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==========================================================            |  84%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========================================================           |  84%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===========================================================           |  85%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============================================================          |  85%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |============================================================          |  86%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================================================         |  86%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================================================         |  87%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=============================================================         |  88%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================================================        |  88%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==============================================================        |  89%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===============================================================       |  90%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================================================================      |  91%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |================================================================      |  92%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================================================     |  92%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================================================     |  93%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |=================================================================     |  94%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================================================================    |  94%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |==================================================================    |  95%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================================   |  95%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================================   |  96%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================================================  |  96%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================================================  |  97%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |====================================================================  |  98%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================================== |  98%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |===================================================================== |  99%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated

  |                                                                            
  |======================================================================| 100%Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
Warning in `[<-`(`*tmp*`, id, value = new.seq) :
  implicit list embedding of S4 objects is deprecated
ready retrieving sequences!
 reading pfm files: C:/Users/biocbuild/bbs-3.11-bioc/R/library/cobindR/extdata/pfms ...
[1] "ES_Sox2_1_c1058"
[1] "ES_Klf4_3_c1373"
[1] "ES_Oct4_1_c570"
[1] "ES_Sox2_1_c1058"
ignored files:
 
Using the serial version of cobindR - function cpg.gc.content
> # perform tfbs prediction using matchPWM
> runObj.bs <- search.pwm(runObj, min.score = '90')
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
cobindR
 --- call from context --- 
FUN(X[[i]], ...)
 --- call from argument --- 
if (class(res) == "try-error") warning("PFM-PWM conversion failed for matrix ", 
    names(x@pfm)[x], "!")
 --- R stacktrace ---
where 1: FUN(X[[i]], ...)
where 2: lapply(1:length(x@pfm), function(y) {
    pwm = x@pfm[[y]]
    is.float = any(pwm != apply(pwm, c(1, 2), as.integer))
    if (is.float) {
        return(pwm)
    }
    else {
        res = try(pfm2pwm(pwm))
        if (class(res) == "try-error") 
            warning("PFM-PWM conversion failed for matrix ", 
                names(x@pfm)[x], "!")
        return(res)
    }
})
where 3: lapply(1:length(x@pfm), function(y) {
    pwm = x@pfm[[y]]
    is.float = any(pwm != apply(pwm, c(1, 2), as.integer))
    if (is.float) {
        return(pwm)
    }
    else {
        res = try(pfm2pwm(pwm))
        if (class(res) == "try-error") 
            warning("PFM-PWM conversion failed for matrix ", 
                names(x@pfm)[x], "!")
        return(res)
    }
})
where 4: .local(x, ...)
where 5: search.pwm(runObj, min.score = "90")
where 6: search.pwm(runObj, min.score = "90")

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (y) 
{
    pwm = x@pfm[[y]]
    is.float = any(pwm != apply(pwm, c(1, 2), as.integer))
    if (is.float) {
        return(pwm)
    }
    else {
        res = try(pfm2pwm(pwm))
        if (class(res) == "try-error") 
            warning("PFM-PWM conversion failed for matrix ", 
                names(x@pfm)[x], "!")
        return(res)
    }
}
<environment: 0x000000003be6fd28>
 --- function search by body ---
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1

* checking for unstated dependencies in 'tests' ... OK
* checking tests ...
** running tests for arch 'i386' ...
  Running 'runTests.R'
 OK
** running tests for arch 'x64' ...
  Running 'runTests.R'
 OK
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes in 'inst/doc' ... OK
* checking running R code from vignettes ... SKIPPED
* checking re-building of vignette outputs ... SKIPPED
* checking PDF version of manual ... OK
* DONE

Status: 2 ERRORs, 1 WARNING, 7 NOTEs
See
  'C:/Users/biocbuild/bbs-3.11-bioc/meat/cobindR.Rcheck/00check.log'
for details.


Installation output

cobindR.Rcheck/00install.out

##############################################################################
##############################################################################
###
### Running command:
###
###   C:\cygwin\bin\curl.exe -O https://malbec2.bioconductor.org/BBS/3.11/bioc/src/contrib/cobindR_1.25.0.tar.gz && rm -rf cobindR.buildbin-libdir && mkdir cobindR.buildbin-libdir && C:\Users\biocbuild\bbs-3.11-bioc\R\bin\R.exe CMD INSTALL --merge-multiarch --build --library=cobindR.buildbin-libdir cobindR_1.25.0.tar.gz && C:\Users\biocbuild\bbs-3.11-bioc\R\bin\R.exe CMD INSTALL cobindR_1.25.0.zip && rm cobindR_1.25.0.tar.gz cobindR_1.25.0.zip
###
##############################################################################
##############################################################################


  % Total    % Received % Xferd  Average Speed   Time    Time     Time  Current
                                 Dload  Upload   Total   Spent    Left  Speed

  0     0    0     0    0     0      0      0 --:--:-- --:--:-- --:--:--     0
100  821k  100  821k    0     0  12.0M      0 --:--:-- --:--:-- --:--:-- 13.3M

install for i386

* installing *source* package 'cobindR' ...
** using staged installation
** R
** inst
** byte-compile and prepare package for lazy loading
Creating a new generic function for 'sequence' in package 'cobindR'
Creating a new generic function for 'path' in package 'cobindR'
Creating a new generic function for 'path<-' in package 'cobindR'
Creating a generic function for 'write' from package 'base' in package 'cobindR'
Creating a generic function for 'write.fasta' from package 'seqinr' in package 'cobindR'
** help
*** installing help indices
  converting help for package 'cobindR'
    finding HTML links ... done
    SeqObj-class                            html  
    bg_binding_sites                        html  
    finding level-2 HTML links ... done

    bg_pairs                                html  
    bg_sequence_origin                      html  
    bg_sequence_source                      html  
    bg_sequence_type                        html  
    bg_sequences                            html  
    binding_sites                           html  
    cobindRConfiguration                    html  
    cobindr-class                           html  
    cobindr-internal                        html  
    cobindr-package                         html  
    comment                                 html  
    configuration-class                     html  
    configuration                           html  
    downstream                              html  
    experiment_description                  html  
    fdrThreshold                            html  
    find.pairs                              html  
    get.bindingsite.ranges                  html  
    get.pairs                               html  
    get.significant.pairs                   html  
    id                                      html  
    location                                html  
    mart                                    html  
    max_distance                            html  
    name                                    html  
    pValue                                  html  
    pairs                                   html  
    pairs_of_interest                       html  
    path                                    html  
    pfm                                     html  
    pfm_path                                html  
    plot.detrending                         html  
    plot.gc                                 html  
    plot.pairdistance                       html  
    plot.pairdistribution                   html  
    plot.positionprofile                    html  
    plot.positions                          html  
    plot.positions.simple                   html  
    plot.tfbs.heatmap                       html  
    plot.tfbs.venndiagram                   html  
    plot.tfbslogo                           html  
    predicted2pwm                           html  
    pseudocount                             html  
    rtfbs                                   html  
    search.gadem                            html  
    search.pwm                              html  
    seqObj                                  html  
    sequence                                html  
    sequence_origin                         html  
    sequence_source                         html  
    sequence_type                           html  
    sequences                               html  
    species                                 html  
    testCpG                                 html  
    threshold                               html  
    uid                                     html  
    upstream                                html  
    write.bindingsites                      html  
    write.bindingsites.table                html  
    write.pairs                             html  
    write.sequences                         html  
** building package indices
** installing vignettes
** testing if installed package can be loaded from temporary location
Warning: multiple methods tables found for 'path'
Warning: multiple methods tables found for 'path<-'
** testing if installed package can be loaded from final location
Warning: multiple methods tables found for 'path'
Warning: multiple methods tables found for 'path<-'
** testing if installed package keeps a record of temporary installation path

install for x64

* installing *source* package 'cobindR' ...
** testing if installed package can be loaded
Warning: multiple methods tables found for 'path'
Warning: multiple methods tables found for 'path<-'
* MD5 sums
packaged installation of 'cobindR' as cobindR_1.25.0.zip
* DONE (cobindR)
* installing to library 'C:/Users/biocbuild/bbs-3.11-bioc/R/library'
package 'cobindR' successfully unpacked and MD5 sums checked

Tests output

cobindR.Rcheck/tests_i386/runTests.Rout


R Under development (unstable) (2020-01-27 r77730) -- "Unsuffered Consequences"
Copyright (C) 2020 The R Foundation for Statistical Computing
Platform: i386-w64-mingw32/i386 (32-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> BiocGenerics:::testPackage('cobindR', pattern="runit_.*\\.R$")

Attaching package: 'cobindR'

The following object is masked from 'package:base':

    sequence



RUNIT TEST PROTOCOL -- Thu Mar 12 05:57:29 2020 
*********************************************** 
Number of test functions: 0 
Number of errors: 0 
Number of failures: 0 

 
1 Test Suite : 
cobindR RUnit Tests - 0 test functions, 0 errors, 0 failures
Number of test functions: 0 
Number of errors: 0 
Number of failures: 0 
Warning messages:
1: multiple methods tables found for 'path' 
2: multiple methods tables found for 'path<-' 
> 
> proc.time()
   user  system elapsed 
  10.14    1.03   11.15 

cobindR.Rcheck/tests_x64/runTests.Rout


R Under development (unstable) (2020-01-27 r77730) -- "Unsuffered Consequences"
Copyright (C) 2020 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> BiocGenerics:::testPackage('cobindR', pattern="runit_.*\\.R$")

Attaching package: 'cobindR'

The following object is masked from 'package:base':

    sequence



RUNIT TEST PROTOCOL -- Thu Mar 12 05:57:43 2020 
*********************************************** 
Number of test functions: 0 
Number of errors: 0 
Number of failures: 0 

 
1 Test Suite : 
cobindR RUnit Tests - 0 test functions, 0 errors, 0 failures
Number of test functions: 0 
Number of errors: 0 
Number of failures: 0 
Warning messages:
1: multiple methods tables found for 'path' 
2: multiple methods tables found for 'path<-' 
> 
> proc.time()
   user  system elapsed 
  12.67    0.62   13.28 

Example timings

cobindR.Rcheck/examples_i386/cobindR-Ex.timings

nameusersystemelapsed
SeqObj-class000
bg_binding_sites5.161.326.55
bg_pairs3.470.043.52
bg_sequence_origin000
bg_sequence_source000
bg_sequence_type000
bg_sequences2.640.002.64
binding_sites2.780.012.80
cobindRConfiguration000
cobindr-class000
comment0.100.000.09
configuration-class000
configuration2.940.022.95
downstream0.020.000.02
experiment_description4.090.014.11
fdrThreshold0.020.000.01
get.bindingsite.ranges000
id000
location0.090.000.10
mart000
max_distance000
name0.090.020.11
pValue000
pairs000
pairs_of_interest2.720.002.72
path000
pfm3.100.003.09
pfm_path000
plot.gc6.340.166.52
pseudocount0.020.000.01
rtfbs15.97 0.0116.03
search.gadem10.26 0.0210.28

cobindR.Rcheck/examples_x64/cobindR-Ex.timings

nameusersystemelapsed
SeqObj-class000
bg_binding_sites6.000.956.95
bg_pairs4.200.054.25
bg_sequence_origin000
bg_sequence_source000
bg_sequence_type0.010.000.01
bg_sequences3.350.003.34
binding_sites3.140.003.15
cobindRConfiguration000
cobindr-class000
comment0.140.010.15
configuration-class000
configuration3.630.023.64
downstream000
experiment_description3.090.003.10
fdrThreshold0.010.000.01
get.bindingsite.ranges000
id0.020.000.02
location0.090.000.09
mart000
max_distance000
name0.100.010.11
pValue000
pairs000
pairs_of_interest3.060.003.06
path000
pfm3.730.023.75
pfm_path000
plot.gc5.580.085.66
pseudocount000
rtfbs15.70 0.3616.14
search.gadem9.760.039.80