_HiStOrY_V2_
source("sim.R")
system("vi\040sim.R")
source("sim.R")
system("vi\040sim.R")
traceback()
system("vi\040sim.R")
source("sim.R")
system("vi\040sim.R")
source("sim.R")
system("vi\040sim.R")
source("sim.R")
Y
ls()
d
system("vi\040sim.R")
source("sim.R")
system("vi\040sim.R")
source("sim.R")
system("vi\040sim.R")
system("vi\040sim.R")
crq.fit.P
system("vi\040sim.R")
source("sim.R")
ls()
dim(d)
system("vi\040sim.R")
crq(Surv(log(Y),D)\040~\040x1\040+\040x2,\040data\040=\040d,\040method=\040"P",grid\040=\0401:99/100)
crq(Surv(log(Y),D)\040~\040x1\040+\040x2,\040data\040=\040d,\040method=\040"P",grid\040=\0401:99/100)->fff
str(fff)
fff$sol
crq(Surv(log(Y),D)\040~\040x1\040+\040x2,\040data\040=\040d,\040method=\040"PH",grid\040=\0401:99/100)->fff
fff$sol
system("vi\040sim.R")
source("sim.R")
dim(A)
dim(B)
system("vi\040psim.R")
system("vi\040sim.R")
fit.P
fit.PH
system("vi\040psim.R")
source("psim.R")
system("vi\040psim.R")
source("psim.R")
system("open\040psim1.pdf")
system("open\040psim1.pdf")
system("open\040psim2.pdf")
system("vi\040psim.R")
paste("psim",k,".pdf",sep="")
system("vi\040psim.R")
system("vi\040psim.R")
source("psim.R")
system("vi\040psim.R")
source("psim.R")
system("open\040psim1.pdf")
system("open\040psim2.pdf")
system("open\040psim3.pdf")
?cor
system("vi\040psim.R")
source("psim.R")
?cor
system("vi\040psim.R")
?cor
system("vi\040psim.R")
source("psim.R")
system("vi\040psim.R")
system("vi\040bsim.R")
Aa\040<-\040A
Ba\040<-\040B
source("bsim.R")
?lattice
library(lattice)
?xyplot
ls(2)
?xyplot
help("xyplot")
traceback()
system("vi\040bsim.R")
system("vi\040bsim.R")
\040summary(crq(Surv(log(Y),D)\040~\040x1\040+\040x2,\040data\040=\040d,method=\040"P",grid=1:99/100))\040->ggg
\040summary(crq(Surv(log(Y),D)\040~\040x1\040+\040x2,\040data\040=\040d,method=\040"PH",grid=1:99/100))\040->ggg
system("vi\040bsim.R")
lapply(ggg,coef)
\040summary(crq(Surv(log(Y),D)\040~\040x1\040+\040x2,\040data\040=\040d,method=\040"P",grid=1:99/100))\040->ggg
lapply(ggg,coef)
?nlrq
source("bsim.R")
traceback()
coef.crq
summary.crq
system("vi\040bsim.R")
?summary.crq
\040fix(coef.crq)
ls()
q()
