スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

ファイル操作

ls機能

> data <- list.files()
> data
[1] "Chao0_18Sep2013-mini.png" "Chao0_18Sep2013.pdf"
[3] "Chao0_18Sep2013.png"
> data[1]
[1] "Chao0_18Sep2013-mini.png"

dir()も同じ効果。

list.dirs()


cd ../

setwd("../")
スポンサーサイト

Chao 0

f<-function(x){
x*(1-exp(-200/x))
}
x <- c(1:110000)
pdf("Chao0_18Sep2013.pdf",height=5.5,width=6,pointsize=14)
plot(f(x),x,type="l",xlim=c(200,150),ylim=c(0,11000),lwd = 2,xlab="D",ylab="N")
abline(v=seq(200,150,-2.5),col="#0006E560",lty=2)
dev.off()

Chao0_18Sep2013-mini.png

Profile

zoa

Author:zoa
Metropolis (1927)

Calendar
08 | 2013/09 | 10
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 - - - - -
Labels
Admin
Previous Posts
Recent Comments
Recent Trackback
Archive
このページのトップへ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。