R/methods.R

setMethod("plot", signature(x="ExomeCopy",y="missing"), plot.ExomeCopy)

setMethod("show","ExomeCopy",function(object) {
  cat("\nExomeCopy object\n")
  cat(paste("sample name: ",object@sample.name,"\n",sep=""))
  normal.state <- object@fx.par$normal.state
  normal.percent <- round(100*sum(object@path==normal.state)/length(object@path),2)
  cat(paste("percent normal state: ",normal.percent,"%\n",sep=""))
  })

Try the exomeCopy package in your browser

Any scripts or data that you put into this service are public.

exomeCopy documentation built on Nov. 17, 2017, 8:34 a.m.