R/is.simulateGEdata.R

In RUVcorr: Removal of unwanted variation for gene-gene correlations and related analysis

#' Checking \code{simulateGEdata} class.
#'
#' \code{is.simulateGEdata} checks if object is of \code{simulateGEdata} class.
#'
#' @param x An object.
#' @return \code{is.simulateGEdata} returns a logical scaler; 
#' \code{TRUE} if the object is of the class \code{simulateGEdata}.
#' @examples
#' \donttest{
#' Y<-simulateGEdata(500, 500, 10, 2, 5, g=NULL, Sigma.eps=0.1, 
#' 250, 100, intercept=TRUE, check.input=TRUE)
#' is.simulateGEdata(Y)
#' }
#' @seealso \code{\link{simulateGEdata}}
#' @author Saskia Freytag
#' @export
is.simulateGEdata<-function(
      x ##object
 ){
  
return(class(x)=="simulateGEdata")
}

#' Checking \code{Weights} class.
#'
#' \code{is.Weights} checks if object is of \code{Weights} class.
#'
#' @param x An object.
#' @return \code{is.Weights} returns a logical scaler; 
#' \code{TRUE} if the object is of the class \code{Weights}.
#' @seealso \code{\link{findWeights}}
#' @author Saskia Freytag
#' @export
is.Weights<-function(
  x ##object
){
  
  return(class(x)=="Weights")
}