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]]
