Nothing
#' As Membership/Membership Matrix
#' @description Convert matrix to membership matrix
#' @param member membership matrix
#' @return Membership Membership object, contains membership and label
#' @export
"as.membership"<-function(member){
ifelse(is.membership(member),
return(member),
return(membership(member,
K=ncol(member),
n=nrow(member))))
}
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.