R/write.gsda.csv.file.R

Defines functions write.gsda.csv.file

Documented in write.gsda.csv.file

write.gsda.csv.file <-
function(gsda.result,out.file)
{
  if (substring(out.file,nchar(out.file)-3)!=".csv")
    stop("out.file must be a .csv file!")
  gsda.res=unclass(gsda.result)
  gsda.res=as.data.frame(gsda.res)
  write.csv(gsda.res,out.file,
            quote=T,row.names=F)
}
xueyuancao/GSDA documentation built on Jan. 21, 2021, 8:23 p.m.