Maybe this helps, too.


readExcel <- function(row.names = 1, check.names = FALSE, ...)
  read.delim("clipboard", row.names = row.names, check.names = 
check.names, ...)

writeExcel <- function(x, check.rows = FALSE, check.names = FALSE, ...){
  df <- data.frame(x, check.rows = check.rows, check.names = check.names)
  write.table(df, "clipboard", sep = "\t", col.names = NA, ...)
}


Best regards,
Stefan

-------------------------------------------------------
Dr. Stefan Albrecht, CFA
Allianz Private Equity Partners GmbH
Giselastraße 4
D-80802 Munich, Germany
Phone: +49.89.38 00 - 18 317
Fax: +49.89.38 00 - 818 317
stefan.albrecht@allianz.com
www.apep.com
	[[alternative HTML version deleted]]


