R/add.names2vector.R

In mssm-msf-2019/BiostatsALL:

#' add.names2vector
#' @description Super Cool function that does magic like Harry Potter
#' @export

add.names2vector<-function(x,cn){
  y<-as.vector(x);
  if(is.factor(x))y=as.factor(y)
  names(y)<-cn;
  return(y)}