CW2425

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document 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:

subject_name<-c(" john doe","jane doe", "steve Greves")
temperature <-c(98.1,98.6,101.4)
flue_status<-c(FALSE, FALSE, TRUE)
temperature[2]

## [1] 98.6

temperature[2:3]

## [1]  98.6 101.4

temperature[-2]

## [1]  98.1 101.4

gender<-factor(c("MALE","FEMALE", "MALE"))
gender

## [1] MALE   FEMALE MALE  
## Levels: FEMALE MALE

blood<-factor(c("O", "AB", "A"),levels=c("A","B","AB", "O"))
blood

## [1] O  AB A 
## Levels: A B AB O

symptoms <- factor(c("SEVERE", "MILD", "MODERATE"), levels = c("MILD", "MODERATE","SEVERE"),ordered=TRUE)
symptoms

## [1] SEVERE   MILD     MODERATE
## Levels: MILD < MODERATE < SEVERE

symptoms>"MODERATE"

## [1]  TRUE FALSE FALSE

symptoms>="MODERATE"

## [1]  TRUE FALSE  TRUE

pt_data<-data.frame(subject_name, temperature, flue_status,gender,blood, symptoms,stringsAsFactors=FALSE)
pt_data

##   subject_name temperature flue_status gender blood symptoms
## 1     john doe        98.1       FALSE   MALE     O   SEVERE
## 2     jane doe        98.6       FALSE FEMALE    AB     MILD
## 3 steve Greves       101.4        TRUE   MALE     A MODERATE

pt_data[1,2]

## [1] 98.1

pt_data[,1]

## [1] " john doe"    "jane doe"     "steve Greves"

pt_data[c(1,3), c(2,4)]

##   temperature gender
## 1        98.1   MALE
## 3       101.4   MALE

temperature

## [1]  98.1  98.6 101.4

pt_data[,]

##   subject_name temperature flue_status gender blood symptoms
## 1     john doe        98.1       FALSE   MALE     O   SEVERE
## 2     jane doe        98.6       FALSE FEMALE    AB     MILD
## 3 steve Greves       101.4        TRUE   MALE     A MODERATE

pt_data[c(1,3),c("temperature", "gender")]

##   temperature gender
## 1        98.1   MALE
## 3       101.4   MALE

pt_data$temp_c<-(pt_data$temperature-32)*(5/9)

pt_data[c("temperature", "temp_c")]

##   temperature   temp_c
## 1        98.1 36.72222
## 2        98.6 37.00000
## 3       101.4 38.55556

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.