#' Counting samples
#'
#'@description
#'
#'
#' @param cluster
#' @param Model
#' @return
#' @examples
#'
#'
#' @import plyr
#' @export
CountingSamples<-function(cluster,Model=NULL)
{
if(is.null(Model))
{
Model<-c("FCM","Malthus","Gompertz","Logistic")
}
Counting<-list()
for( i in Model)
{
# Possibility to consider the ClusterWithMeanCurve output
if(is.null(cluster[[i]])) {
if(is.null(cluster$Information))
{
warning("File in input is different from the ClusterWithMeanCurve or FittingAndClustering output")
break
}
ClustCurve<-cluster$Information$ClustCurve
}else{ ClustCurve<-cluster[[i]]$Information$ClustCurve}
feature<-tail(colnames(ClustCurve),1)
a<-count(ClustCurve, c("ID", "Cluster",feature))[,-4]
Counting[[paste(i)]]<-count(a,c( "Cluster",feature))
}
return(Counting)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.