R/write.data.R

"write.data" <-

function(x, file)



{



	length.old <- options()$length



	options(length = 10000.)



	if(missing(file)) {



		file <- paste(as.character(substitute(x)), ".output",



			sep = "")



		cat(" The data set is being written to the UNIX file: ",



			file, fill = TRUE)



	}



	sink(file)



	print(x, quote = FALSE)



	sink()



	options(length = length.old)



	invisible()



}

Try the Rlab package in your browser

Any scripts or data that you put into this service are public.

Rlab documentation built on May 30, 2017, 3:26 a.m.