Nothing
setClass("Segmentor",
representation(data = "numeric", model = "character", breaks= "matrix", parameters="matrix", likelihood="matrix", Kmax="numeric", Cost="matrix", Pos = "matrix", mean="numeric", overdispersion="numeric",compression = "numeric"),
prototype(model = "Poisson", Kmax=15),
)
setMethod("show", "Segmentor",
function (object){
cat ( "Object of class Segmentor \n " )
cat("\n Model used for the segmentation: \n")
print(object@model)
cat("\n Maximum number of segments: \n")
print(object@Kmax)
cat("\n Compression factor used: \n")
print(object@compression)
cat("\n Matrix of breakpoints: \n")
print(object@breaks)
cat("\n Parameter of each segment: \n")
str(object@parameters)
cat("\n Likelihood of the segmentation \n")
print(object@likelihood)
if(object@model=="Variance")
{
cat("\n Mean used: \n")
print(object@mean)
} else if (object@model=="Negative Binomial")
{
cat("\n Overdispersion used: \n")
print(object@overdispersion)
} })
setGeneric ("getModel",
function(object){ standardGeneric ("getModel" )}
)
setMethod("getModel", "Segmentor",
function (object){
return ( object@model )
}
)
setGeneric ("getData",
function(object){ standardGeneric ("getData" )}
)
setMethod("getData", "Segmentor",
function (object){
return ( object@data )
}
)
setGeneric ("getCost",
function(object){ standardGeneric ("getCost" )}
)
setMethod("getCost", "Segmentor",
function (object){
return ( object@Cost )
}
)
setGeneric ("getPos",
function(object){ standardGeneric ("getPos" )}
)
setMethod("getPos", "Segmentor",
function (object){
return ( object@Pos )
}
)
setGeneric ("getKmax",
function(object){ standardGeneric ("getKmax" )}
)
setMethod("getKmax", "Segmentor",
function (object){
return ( object@Kmax )
}
)
setGeneric ("getMean",
function(object){ standardGeneric ("getMean" )}
)
setMethod("getMean", "Segmentor",
function (object){
return ( object@mean )
}
)
setGeneric ("getOverdispersion",
function(object){ standardGeneric ("getOverdispersion" )}
)
setMethod("getOverdispersion", "Segmentor",
function (object){
return ( object@overdispersion )
}
)
setGeneric ("getBreaks",
function(object){ standardGeneric ("getBreaks" )}
)
setMethod("getBreaks", "Segmentor",
function (object){
return ( object@breaks )
}
)
setGeneric ("getLikelihood",
function(object){ standardGeneric ("getLikelihood" )}
)
setMethod("getLikelihood", "Segmentor",
function (object){
return ( object@likelihood )
}
)
setGeneric ("getParameters",
function(object){ standardGeneric ("getParameters" )}
)
setMethod("getParameters", "Segmentor",
function (object){
return ( object@parameters )
}
)
setGeneric ("getCompression",
function(object){ standardGeneric ("getCompression" )}
)
setMethod("getCompression", "Segmentor",
function (object){
return ( object@compression )
}
)
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.