Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Comparison of two normal distributions, example Treatment with HCQ
#R version 3.4.4 # Title: Treatment with HCQ example # Autor: Thomas Arend # Rheinbach, Germany require(graphics) x<- seq(30,120,0.1) data <- read.table(file("stdin"), sep=";", header=TRUE) f1<-dnorm(x,68.1,18.9) f2<-dnorm(x,63.2,15.6) plot(x,dnorm(x,63.2,15.6),type="l", col="blue",lwd=2, xlab="Age [years]",ylab="Share", main="Treatment with HCQ", sub="Comparison of the age of the patients" ) polygon(c(x,rev(x)),c(dnorm(x,63.2,15.6),rev(dnorm(x,68.1,18.9))),col="yellow",border="blue") lines(x,dnorm(x,68.1,18.9),type="l",col="red", lty=1,lwd=2) abline(v=83); text(90,0.002,"Age > 83") legend("topright", inset=0.05, legend=c("HCQ alone\nMean,SD=63.2,15.6\n", "Neither med\nMean,SD=68.1,18.9\n"), title="Treatment groups", col=c("blue", "red"), lty=1, cex=0.8)
run
|
edit
|
history
|
help
0
Figura
Linear regression wall
asdf
28-09-2020Int-poli-inter
AjusteLinearizado-11-01-21-pacotematriz
Ass2 q2
Regressão linear
oooo
Dbinom
Adding text to bar plot bars -- elegantly!