43 lines
1.1 KiB
Plaintext
43 lines
1.1 KiB
Plaintext
---
|
|
title: "Untitled"
|
|
output: html_document
|
|
---
|
|
|
|
```{r setup, include=FALSE}
|
|
knitr::opts_chunk$set(echo = TRUE)
|
|
```
|
|
|
|
## 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:
|
|
|
|
```{r fram data}
|
|
data <- read.csv("C:/Users/mjpearl/Desktop/omsa/ISYE-6414-OAN/hw2/fram.csv", head = TRUE)
|
|
data$SEX <- as.factor(data$SEX)
|
|
data$CURSMOKE <- as.factor(data$CURSMOKE)
|
|
```
|
|
|
|
## Including Plots
|
|
|
|
You can also embed plots, for example:
|
|
|
|
```{r pressure, echo=FALSE}
|
|
lm1 <- lm(data$SYSBP ~ data$SEX + data$AGE + data$CURSMOKE + data$BMI)
|
|
summary(lm1)
|
|
```
|
|
```{r pressure, echo=FALSE}
|
|
data
|
|
```
|
|
|
|
```{r pressure, echo=FALSE}
|
|
lm1$fitted.values
|
|
```
|
|
|
|
```{r pressure, echo=FALSE}
|
|
data3 <- data[data$BMI>=30,]
|
|
lm2 <- lm(data3$SYSBP ~ data3$SEX + data3$AGE + data3$CURSMOKE + data3$BMI)
|
|
summary(lm2)
|
|
```
|