Results of Patient Blood Pressure and MD Decision

Using the data collected for ten patients by a local hospital, including the frequency of their visits, blood pressure, first assessment, second assessment, and final decision, I was able to create five vectors. 


Freq <- c(0.6, 0.3, 0.4, 0.4, 0.2, 0.6, 0.3, 0.4, 0.9, 0.2)

bloodp <- c(103, 87, 32, 42, 59, 109, 78, 205, 135, 176)

first <- c(1, 1, 1, 1, 0, 0, 0, 0, NA, 1)

second <- c(0, 0, 1, 1, 0, 0, 1, 1, 1, 1)

finaldecision <- c(0, 1, 0, 1, 0, 1, 0, 1, 1, 1)


With these vectors, I made a side-by-side box plot comparing the low and high blood pressures, then a histogram of the frequency of each blood pressure range. 


R Code:

boxplot(bloodp ~ finaldecision, 

        main = "Patients BPs & MD’s Ratings",

        names = c("Low","High"),

        xlab = "Final Decision",

        ylab = "Blood Pressure")












hist(bloodp,

     main = "Histogram of Patient's Blood Pressure",

     xlab = "Blood Pressure")











The outcome from the box plots shows that blood pressure distribution generally aligns with the emergency unit's decision regarding immediate care for the patient. Most patients who had a higher blood pressure received a high final decision, meaning the patient has a higher chance of needing immediate care, while those with a lower blood pressure received a low final decision. I can also see that the IQR and outliers of the high final decision box plot are more spread out compared to the more compressed box plot for low blood pressure. This goes to show that while a higher blood pressure is usually the cause for immediate care regarding these patients, someone with a lower blood pressure could receive a high final decision too.


The histogram shows that 60% of the patients had a blood pressure between 50 and 150, 20% on the lower end between 0 and 50, and 20% on the higher end between 150 and 250. With the histogram being right-skewed, it makes sense that as a patient's blood pressure increases, the head of the emergency unit would decide those patients may require immediate care, resulting in a high final decision. 


Comments

Post a Comment

Popular posts from this blog

myMean Error and Correction

Using the following vector and function in RStudio, I ran myMean(assignment2). assignment2 <- c(16, 18, 14, 22, 27, 17, 19, 17, 17, 22, 20, 22) myMean <- function(assignment2) { return(sum(assignment) / length(someData)) }    The output was "Error in myMean(assignment2) : object 'assignment' not found".   The function fails because assignment and someData are not assigned variables. These objects do not exist, so trying to pass them to the function myMean(assignment2) results in an error. To correctly return the mean of assignment2, the myMean function needs the variable assignment2 to replace assignment and someData. Corrected version of myMean, which returns 19.25. myMean <- function(assignment2) { return(sum(assignment2) / length(assignment2)) }   
Read more

Election Data Frame

Image
Errors in the original data set: a missing comma between Marco and Carly in Name, I fixed the spelling of Berine to Bernie, a missing comma between 62 and 51 in ABC, quotation marks around names had to be changed to " ", the variable names for ABC and CBS political poll results had spaces, which I changed to _. After fixing all the errors in the data set, I used the three variables Name, ABC_political_poll_results,  and CBS_political_poll_results to create the data frame. Since the data set is based on the 2016  presidential election, I named the data frame election_2016. Here is my corrected code in R: Name <- c("Jeb", "Donald", "Ted", "Marco", "Carly", "Hillary", "Bernie") ABC_political_poll_results <- c(4, 62, 51, 21, 2, 14, 15) CBS_political_poll_results <- c(12, 75, 43, 19, 1, 21, 19)  election_2016 <- data.frame(Name, ABC_political_poll_results, CBS_political_poll_results) election_2016 Af...
Read more

Doing Math on Matrices

I used the following values to find the inverse and determinants of two matrices. A = matrix(1:100, nrow=10) B = matrix(1:1000, nrow=10) First, I assigned the matrices in R.  A <- matrix(1:100, nrow=10) B <- matrix(1:1000, nrow=10) To obtain the determinant of each matrix, I used the det function. det(A) Result:  0 det(B) Result: Error in determinant.matrix(x, logarithm = TRUE, ...) :    'x' must be a square matrix Then, to obtain the inverse of each matrix, I used the solve function. solve(A) Result:  Error in solve.default(A) :    Lapack routine dgesv: system is exactly singular: U[3,3] = 0 solve(B) Result: Error in solve.default(B) : 'a' (10 x 100) must be square Looking at the matrices, we can see that A is a square matrix because it has the same number of rows and columns. There are 100 values in the matrix; dividing that by 10 rows gives me 10 columns. This makes matrix A a 10x10 square matrix. With B, there are 1000 values in the matrix, a...
Read more