Title

This is an R Markdown document. Markdown is a simple formatting syntax for authoring web pages (click the MD toolbar button for help on Markdown).

When you click the Knit HTML button a web page will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

aids <- read.csv("C:/Users/telke/Desktop/PhD/Epsy8252/composite.endpoints.aids.csv")
View(aids)
aids <- aids[order(aids$RR), ]

You can also embed plots, for example:

library(ggplot2)
lm.1 <- lm(Phys.score ~ Patient.score, data = aids)
ggplot(data = aids, aes(x = Patient.score, y = Phys.score, xlab = "Patient Severity Rank", 
    ylab = "Physician Severity Rank")) + ggtitle("Relative Risk of Death for Those with Event vs. Not\n and\n Severity Rank of Event by Physicians and Patients") + 
    geom_point(data = aids, aes(x = Patient.score, y = Phys.score), size = 2) + 
    geom_text(aes(label = Event, angle = 43, hjust = -0.05, size = 3)) + geom_text(aes(label = text.RR, 
    angle = 43, vjust = 1.6, hjust = -0.1, size = 3)) + geom_text(aes(label = CI, 
    angle = 43, vjust = 2.6, hjust = -0.1, size = 3)) + # theme(axis.title.x= element_text(size=15)) + theme(axis.title.y=
# element_text(size=15)) +
xlim(4, 10) + ylim(2.5, 10) + theme(legend.position = "none")