R/classInput.R

In grundy95/changepoint.cov: Implementation of Covariance Changepoint Methods

#' Inputs results into S4 class
#'
#' Function for inputting results into the S4 class \code{\linkS4class{cptCovariance}}.
#'
#' @inheritParams cptCov
#' @inheritParams cptSubspace
#' @param cptsSig Data frame containing the changepoint locations along with their associated test statistics; threshold; and whether or not they were deemed significant
#' @param cpts Vector of changepoint locations
#'
#' @return S4 class of type \code{\linkS4class{cptCovariance}}
#'
#' @seealso \code{\linkS4class{cptCovariance}}
#'
#' @keywords internal
#'
#' @importFrom methods new
classInput <- function(X,cpts,method,numCpts,cptsSig,threshold,thresholdValue,msl,subspaceDim=0,nperm=0,LRCov='NA'){
	if(is.numeric(numCpts)){
		threshold <- "Manual"
	}
	if(method=='Subspace'){
	  ans <- new('cptCovariance',dataset=X,
	             cpts=sort(cpts),
	             method=method,
	             numCpts=numCpts,
	             cptsSig=cptsSig,
	             threshold=threshold,
	             thresholdValue=thresholdValue,
	             msl=as.integer(msl),
	             subspaceDim=subspaceDim,
	             nperm=nperm)
	}else if(method=='CUSUM'){
	  ans <- new('cptCovariance',dataset=X,
	             cpts=sort(cpts),
	             method=method,
	             numCpts=numCpts,
	             cptsSig=cptsSig,
	             threshold=threshold,
	             thresholdValue=thresholdValue,
	             msl=as.integer(msl),
	             LRCov=LRCov)
	}else if(method=='Ratio'){
	  ans <- new('cptCovariance',dataset=X,
	             cpts=sort(cpts),
	             method=method,
	             numCpts=numCpts,
	             cptsSig=cptsSig,
	             threshold=threshold,
	             thresholdValue=thresholdValue,
	             msl=as.integer(msl))
	}
	return(ans)
}