CATS: Difference between revisions
Jump to navigation
Jump to search
| Line 13: | Line 13: | ||
==== Simple power plot ==== | ==== Simple power plot ==== | ||
[[File:catsFig1.png|thumb]] | |||
<pre> | <pre> | ||
library(CATS) | library(CATS) | ||
| Line 24: | Line 26: | ||
lines.cats(c2,type="First",lty=4) | lines.cats(c2,type="First",lty=4) | ||
legend("left",c("One stage","Joint","Relication","First Stage"),lty=1:4,bty="n") | legend("left",c("One stage","Joint","Relication","First Stage"),lty=1:4,bty="n") | ||
</pre> | </pre> | ||
Revision as of 14:47, 5 August 2013
joint power of a non-symetric two stage GWA design
R package for power estimation for a two-stage genome-wide association design. This is a modification of the code from Skol et al 2006, nat genet. so that the relative risk, case-control ratios and allele frequencies are allowed to vary between stages.
Download and installation
plot examples
Simple power plot
library(CATS)
rr<-seq(1,2,by=0.05)
maf<-c(0.05,0.1,0.2,0.5)
c2<-curve.cats(rr,maf,ncases=600,ncontrols=600,ncases2=600,ncontrols2=600,alpha=0.000001,prevalence=0.01);
plot(c2,type="One",main="power2",ylab="Power",xlab="RR",file=NULL,col=1:4)
lines.cats(c2,type="Replication",lty=3)
lines.cats(c2,type="Joint",lty=2)
lines.cats(c2,type="First",lty=4)
legend("left",c("One stage","Joint","Relication","First Stage"),lty=1:4,bty="n")