Assignment 2

Super Cool File

R Markdown

This is a sample document that I am creating with my students. The following is demographic data

x<-c(4,5,6,7)
y<-c(4,7,6,5)
plot(x,y)

age<-c(34,54,67, 52)
person<-c("Frank","Betty","Juan","Lisa")
sex<-c("M","F","M","F")

df<-data.frame(person,age,sex)
df$sex<-as.factor(df$sex)
df$smoking<-c("yes","no","no","yes")
df$smoking<-as.factor(df$smoking)
df

##   person age sex smoking
## 1  Frank  34   M     yes
## 2  Betty  54   F      no
## 3   Juan  67   M      no
## 4   Lisa  52   F     yes