data=read.table("cancersurvival.txt",header=T)
data[1:5,]
survival=data[,"Survival"]
survival
boxplot(survival)
?boxplot
group=data[,"Organ"]
group
boxplot(survival~group)
hist(survival[group=="Stomach"])
plot(density(survival[group=="Stomach"]))
stomach=survival[group=="Stomach"]
hist(log(stomach))
plot(density(log(stomach)))
colon=survival[group=="Colon"]
par(mfrow=c(2,2))
hist(stomach)
hist(colon)
hist(log(stomach))
hist(log(colon))
hist(log(colon),plot=F)
?hist
hist(log(colon),freq=F)
source("ctnm.R")
ctnm()
source("ctbp.R")
ctbp()