Nothing
#' Make an Partition Matrix
#' @param member membership matrix
#' @param K number of cluster
#' @param n number of observation
#' @param RandomNumber random number/seed used
#' @importFrom stats runif
#' @export
#' @return membership object
#' @slot member membership object
#' @slot hard.label hard label
#' @examples
#' #make an matrix membership
#' membership(K=3,n=20,RandomNumber=1234)
"membership"<-function(member,K,n,RandomNumber=0){
if(missing(K))
{
cat("\nNumber Of Cluster undefined.Default number of cluster(2) will be used\n")
K<-2
}
if(missing(n))
stop("Specify number of data first")
if(missing(member)||
ncol(member)!=K||
nrow(member)!=n)
{
cat("\nMembership initialiazed randomly\n")
if(RandomNumber<0 || !is.numeric(RandomNumber))
RandomNumber<-0
if (RandomNumber > 0)
set.seed(RandomNumber)
member <- matrix(runif(n * K,0,1),n,K)
member<-round(member,5)
member <- member/rowSums(member)
}
hard.label<-apply(member,
1,
function(x){which.max(x)})
result<-new("membership",
member=(member),
hard.label=(hard.label))
return(result)
}
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.