Scribd
Upload
13 views2 pages

Blood Pressure Changes: 139/120 Analysis

The document presents a laboratory activity analyzing blood pressure data before and after a certain intervention. It includes two sets of blood pressure readings, 'Before' and 'After', along with statistical summaries for each set. The analysis reveals changes in the mean and median values of blood pressure readings.

Uploaded by

s.balasico.kennethcarl
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
13 views2 pages

Blood Pressure Changes: 139/120 Analysis

The document presents a laboratory activity analyzing blood pressure data before and after a certain intervention. It includes two sets of blood pressure readings, 'Before' and 'After', along with statistical summaries for each set. The analysis reveals changes in the mean and median values of blood pressure readings.

Uploaded by

s.balasico.kennethcarl
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

Laboratory Activity #3

Kyla Angeline Balasico


2025-01-29

Before = c(135, 142, 137, 122, 147, 151, 131, 117, 154,
143,133,125,154,156,132,125,136,141,129,148,136,120,147,138,158)

Before

## [1] 135 142 137 122 147 151 131 117 154 143 133 125 154 156 132 125 136 141 129
## [20] 148 136 120 147 138 158

After=c(127,145,131,125,132,147,119,125,132,139,122,125,138,121,126,127,128,132,131,139,
120,119,135,142, 130 )

After

## [1] 127 145 131 125 132 147 119 125 132 139 122 125 138 121 126 127 128 132 131
## [20] 139 120 119 135 142 130

library(readr)
BP_data <- read_csv("C:/Users/elaba/Downloads/[Link]")

## Rows: 25 Columns: 3
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (3): Subject, Before, After
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
summary(BP_data)

## Subject Before After


## Min. : 1 Min. :117.0 Min. :119.0
## 1st Qu.: 7 1st Qu.:131.0 1st Qu.:125.0
## Median :13 Median :137.0 Median :130.0
## Mean :13 Mean :138.3 Mean :130.3
## 3rd Qu.:19 3rd Qu.:147.0 3rd Qu.:135.0
## Max. :25 Max. :158.0 Max. :147.0

summary(BP_data$Before)

## Min. 1st Qu. Median Mean 3rd Qu. Max.


## 117.0 131.0 137.0 138.3 147.0 158.0

summary(BP_data$After)

## Min. 1st Qu. Median Mean 3rd Qu. Max.


## 119.0 125.0 130.0 130.3 135.0 147.0

You might also like