CW2425

subject_name<- c("John Doe", "Jane Doe", "Steve Graves")
temperature<- c(98.1, 98.6, 101.4)
flu_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

bloodsign<- factor(c("+","-", "-"), levels = c("+","-"))


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  TRUE

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

##   subject_name temperature flu_status gender blood symptoms
## 1     John Doe        98.1      FALSE   MALE     O   SEVERE
## 2     Jane Doe        98.6      FALSE FEMALE    AB     MILD
## 3 Steve Graves       101.4       TRUE   MALE     A MODERATE

pt_data[1,2]

## [1] 98.1

pt_data[,]

##   subject_name temperature flu_status gender blood symptoms
## 1     John Doe        98.1      FALSE   MALE     O   SEVERE
## 2     Jane Doe        98.6      FALSE FEMALE    AB     MILD
## 3 Steve Graves       101.4       TRUE   MALE     A MODERATE

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

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

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

##   subject_name temperature flu_status gender blood symptoms   temp_c
## 1     John Doe        98.1      FALSE   MALE     O   SEVERE 36.72222
## 2     Jane Doe        98.6      FALSE FEMALE    AB     MILD 37.00000
## 3 Steve Graves       101.4       TRUE   MALE     A MODERATE 38.55556

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

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

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:

summary(cars)

##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

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.