두 그래프 그리기

[안재형]

책에 있는 two_comp.csv로 one-compartment model, two-compart model 둘을 fit한후 그림을 그려봤습니다.

> two.comp=read.csv("two_comp.csv")

> two=nls(conc~SSbiexp(time,A1,lrc1,A2,lrc2),data=two.comp)

> one=nls(conc~C0*exp(-K*time),start=list(C0=0.8,K=0.42),data=two.comp)

> time=rep(two.comp$time,2)

> conc=c(fitted(one),fitted(two))

> model=rep(c('one','two'),c(11,11))

# 그래프 

> library(lattice)

> xyplot(conc~time,groups=model,type="b",col=c("red","blue"))

[황현수]

이 글을 지금 확인했군요...
정보 감사합니다.
그나저나...갑자기 R을 쓰기시작하니..
모르는거 투성이군요 ㅠ_ㅠ

[안재형]

R이 공짜다보니 manual이 형편없어서 맨땅에 헤딩입니다^^ 좀 지나면 익숙해지실겁니다.