#' @rdname selectProperties-methods
#' @aliases selectProperties,Experiment-method
setMethod(
"selectProperties",
signature = "Experiment",
definition = function(object, attributesVector){
object@properties <- append(object@properties, attributesVector)
return(object)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.