Script_R_2020/Sauvegarde/sp2df.R

sp2df <- function(sp,y,nam,lo)
{

  dat=data.frame(x=I(sp))
  class(dat$x)="matrix"
  if(!missing(nam)) rownames(dat$x)=nam
  if(!missing(lo)) colnames(dat)=lo
  if(!missing(y)) dat=cbind(y,dat)
  return(dat)
}
martinEcarnot/signe documentation built on Nov. 17, 2022, 1:49 a.m.