. , , , . - "" , , , , .
R, , ftable, " ftable " . , R UCBAdmissions, 3- , .
> data (UCBAdmissions)
> ftable (UCBAdmissions)
Dept | A | B | C | D | E | F | |
, 3- .
read.ftable
read.ftable(file,sep = "", quote = "\"", row.var.names, col.vars, skip = 0)
:
file | . . |
Sep | . . |
quote | . |
row.var.names | , , . |
col.vars | , , . |
skip | , . |
: , .
:
file <- tempfile()
cat(" \n",
" Yes No\n",
" 43 134\n",
" 26 149\n",
" 29 23\n",
" 22 36\n",
file = file)
file.show(file)
ft <- read.ftable(file)
ft
unlink(file)
write.ftable:
write.ftable(x, file = "", quote = TRUE, digits = getOption("digits"))
:
`"ftable"'. | |
Digits | , . |
, as.table.
|
|
as.table(x,...)
.
save():
save(..., list = character(0), file = "", ascii = FALSE, version = NULL, envir = parent.frame(), compress = FALSE)
:
... | , . |
list | , , . |
file | , . |
ascii | TRUE, ASCII. . FALSE, . |
version | . NULL , . , R 0.99.0 R 1.3.1 1. R 1.4.0 2. |
envir | . |
compress | . . 1 . |
safe | . TRUE, |
save.image () save() :
save.image(file = ".RData", version = NULL, ascii = FALSE,compress = FALSE, safe = TRUE)
C ( image), load()
load(file, envir = parent.frame())
:
file | - |
envir | , |
> save (x, y, z, file = "Mystuff. RData").
> save(list=ls (all=TRUE),file = ". RData").
, ascii=TRUE. , ( image),
> load ("Mystuff. RData").