Module 2 assignment


module2mymeanRW
@@ -0,0 +1,27 @@
Task:
Your assignment, evaluate the following function call myMean. The data for this function called assignment.

assignment2 <- c(16, 18, 14, 22, 27, 17, 19, 17, 17, 22, 20, 22)

>myMean <- function(assignment2) { return(sum(assignment)/length(someData)) }

Ans:
The “assignment2” returned the following:

[1] 16 18 14 22 27 17 19 17 17 22 20 22

The “myMean” returned the following:

Error in myMean(assignment2) : object ‘assignment’ not found

The function myMean does not work the way it was supposed to work because objects “assignment” and “someData” are not defined. If they were both replaced with predefined object “assignment2”, the function “myMean” would return the expected mean value of the given data set.

The corrected program would be:

>assignment2 <- c(16, 18, 14, 22, 27, 17, 19, 17, 17, 22, 20, 22)
>myMean <- function(assignment2) { return(sum(assignment2)/length(assignment2)) }
>myMean(assignment2)

This program will return:

[1] 19.25

Comments

Post a Comment

Popular posts from this blog

R secure coding

Secure Programming is an important part of a software developers job and for my BMI reader I've updated and working on more secure programming paradigms or methods not limited to integrating packages like openssl and auditor. Meanwhile I've already included secure coding packages that R offers like testthat ().  gsub () is a secure programming tool in R that helps perform crucial data security and sanitization functions  w1 = 0; w2 = 0; w3 = 0; w4 = 0; w5 = 0; w6= 0; h=0; avgw = 0; SP = 0; DP = 0; PP=0; h = readline("Enter your height value: ");  w1 = readline("Enter first Weight value: "); w2 = readline("Enter second Weight value: "); w3 = readline("Enter third Weight value: "); w4 = readline("Enter fourth Weight value: "); w5 = readline("Enter fifth weight value: ");w6 = readline("Enter sixth Weight value: ");  w1 = as.numeric(w1); w2 = as.numeric(w2); w3 = as.numeric(w3); w4 = as.numeric(w4); w5 = as.numer...
Read more

Mod 11 debugging

 Debugging this R program. Steps taken. running the program. The R programming environment output an Error message. The error as seen below.  Reformating the program using an editor that can really help readability and run time. To correct the error. reformatting of key words, Correct spacing and alignment of iterations statements, for loops, and output: return helped the program to compile smoothly without error > tukey_multiple <- function(x) { + outliers <- array(TRUE,dim=dim(x)) + for (j in 1:ncol(x)) + { + outliers[,j] <- outliers[,j] && tukey.outlier(x[,j]) + } + outlier.vec <- vector(length=nrow(x)) + for (i in 1:nrow(x)) + { outlier.vec[i] <- all(outliers[i,]) } return(outlier.vec) } Error: unexpected symbol in: " for (i in 1:nrow(x)) { outlier.vec[i] <- all(outliers[i,]) } return" > tukey_multiple <- function(x) { + + > tukey_multiple <- function(x) + + { + + ou...
Read more

Final Project-R Package

Image
Introduction  BMI/BP Calculator My biological father suffered a stroke 4 years ago , however, I am not here to lament on his medical condition but to provide a solution, to be more precise, a preventative measure for physical trainers ( which I believe play a important role in professional spheres) or any for that matter. This tool can help someone quickly figure out the next best course of actions regarding there medical health, and body weight, if there are any concerns to report. The calculator output the value of your cardiac output, which is the volumetric flow rate, Q . The optimum value is 40 L/m. Recording this value we can calculate Mean Arterial Pressure (MAP).  MAP is the product of cardiac output and total  peripheral vascular resistance . Importantly, both of these parameters are under the control of the arterial baroreflex and autonomic nervous system. Since cardiac output is the product of heart rate and stroke volume, changes in either of these parameter...
Read more