1.age <- c(1,3,5,2,11,9,3,9,12,3)
weight <-c(4.4,5.3,7.2,5.2,8.5,7.3,6.0,10.4,10.2,6.1)
mean(weight)
sd(weight)
cor(age,weight)
plot(age,weight)
2.data() example("foo")
3.getwd() setwd("") rm() savehistory("myfile") loadhistory("myfile")
save.image("") save(); load("myfile")
dir.create()
4.setwd("") options() options(digits=3)
x<-runif(20) summary(x) hist(x)
savehistory()
save.image()
5.source("file")
sink("file") 重定向到文件file, 默认覆盖可以加append=TRUE;split=TRUE 输出同时发送到屏幕和输出文件
6 图形输出 PDF,win.metafile(".wmf");png,jpeg,bmp,postscript("filename.ps") + dev.off()
sink("myoutpit",append=TRUE,split=TRUE)
pdf("mygraphs.pdf")
source("script2.R")
script2.R执行,结果显示在屏幕上,除此之外文本输出追加到文件myoutput, 图形输出将保存到mygraphs.pdf
sink()//仅在屏幕输出
dev.off()//关闭图
source("new.R")
7.R CMD BATCH --option scriot.R
lmfit <- lm(mpg~wt, data=mtcars)
summary(lmfit)分析结果统计概要 predict(lmfit,newdata)
8.
cells <- ()
matrix(cells, nrow=2, ncol=2, byrow=TRUE, dimnames=list(rnames, cnames))
array(vector,dimensions,dimnames)
dim1 <- c("A1","A2")
dim2 <- c("B1", "B2", "B3")
dim3 <- c("c1","c2","c3")
> z <- array(1:18, c(2,3,3), dimnames=list(dim1,dim2,dim3)
data.frame(c1,c2,c3) str summary
9. attach(), detach() 上下文
with(context,{
<<- 全局变量赋值外面看的到
})
10.
g <- "My first list"
> h <- c(25, 26, 18, 39)
> j <- matrix(1:10, nrow=5)
> k <- c("one","two","three")
> mylist <- list(title=g,ages=h,j,k)
> mylist[[2]] mylist[["ages"]]
11. grades <- read.table("studentgrades.csv", header=TRUE, sep=",", row.names="STUDENTID")
12. cind rbind
13. attach(mtcars)
> abline(lm(mpg~wt))
> title("MPG")
> detach(mtcars)
14. pdf("") dev.off() dev.new()
15. opar <- par(no.readonly=TRUE)
par(opar)
weight <-c(4.4,5.3,7.2,5.2,8.5,7.3,6.0,10.4,10.2,6.1)
mean(weight)
sd(weight)
cor(age,weight)
plot(age,weight)
2.data() example("foo")
3.getwd() setwd("") rm() savehistory("myfile") loadhistory("myfile")
save.image("") save(); load("myfile")
dir.create()
4.setwd("") options() options(digits=3)
x<-runif(20) summary(x) hist(x)
savehistory()
save.image()
5.source("file")
sink("file") 重定向到文件file, 默认覆盖可以加append=TRUE;split=TRUE 输出同时发送到屏幕和输出文件
6 图形输出 PDF,win.metafile(".wmf");png,jpeg,bmp,postscript("filename.ps") + dev.off()
sink("myoutpit",append=TRUE,split=TRUE)
pdf("mygraphs.pdf")
source("script2.R")
script2.R执行,结果显示在屏幕上,除此之外文本输出追加到文件myoutput, 图形输出将保存到mygraphs.pdf
sink()//仅在屏幕输出
dev.off()//关闭图
source("new.R")
7.R CMD BATCH --option scriot.R
lmfit <- lm(mpg~wt, data=mtcars)
summary(lmfit)分析结果统计概要 predict(lmfit,newdata)
8.
cells <- ()
matrix(cells, nrow=2, ncol=2, byrow=TRUE, dimnames=list(rnames, cnames))
array(vector,dimensions,dimnames)
dim1 <- c("A1","A2")
dim2 <- c("B1", "B2", "B3")
dim3 <- c("c1","c2","c3")
> z <- array(1:18, c(2,3,3), dimnames=list(dim1,dim2,dim3)
data.frame(c1,c2,c3) str summary
9. attach(), detach() 上下文
with(context,{
<<- 全局变量赋值外面看的到
})
10.
g <- "My first list"
> h <- c(25, 26, 18, 39)
> j <- matrix(1:10, nrow=5)
> k <- c("one","two","three")
> mylist <- list(title=g,ages=h,j,k)
> mylist[[2]] mylist[["ages"]]
11. grades <- read.table("studentgrades.csv", header=TRUE, sep=",", row.names="STUDENTID")
12. cind rbind
13. attach(mtcars)
> abline(lm(mpg~wt))
> title("MPG")
> detach(mtcars)
14. pdf("") dev.off() dev.new()
15. opar <- par(no.readonly=TRUE)
par(opar)