Nothing
setMethod(f = "getmultiKmax",signature = "CGHdata",
definition = function(.Object,CGHo,uniKmax=NULL,multiKmax=NULL){
M = length(names(.Object@Y))
if (is.null(uniKmax)){
uniKmax = getuniKmax(.Object,CGHo,uniKmax)
}
if (is.null(multiKmax)){
if (CGHo["select"] == "none"){
cat("[check getmultiKmax] if no selection is performed while multiKmax is not specified \n")
cat("[check getmultiKmax] multiKmax is initialized by default\n")
cat("**********************************************************\n")
}
multiKmax = floor(sum(unlist(uniKmax))) * CGHo["beta"]
} else {
if (multiKmax < M){
cat("[getmultiKmax] multiKmax should be greater that the number of patients (",M,") \n")
stop()
} else {
if (multiKmax > sum(unlist(uniKmax))){
cat("[getmultiKmax] multiKmax should be lower that the sum of the number allowed segments in every profile (",sum(unlist(uniKmax)),") \n")
stop()
}
}
}
return(multiKmax)
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.