Module #2 Assignment

-

Daniel Tafmizi

Lis 4273

Dr. Friedman

January 20, 2024

Module 2 Assignment

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

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

myMean(assignment2)

[1] 18.66667

This function found the mean average of the assignment 2 vector. This function 
consists of the name (myMean), the body (data from assignment 2), and the set of 
arguments(sum/length). It returns the sum of the values in assignment 2, and then 
divides it by the length (number of values) in assignment 2.

Comments

Post a Comment

Popular posts from this blog

Module 7 Assignment

-
Image
Daniel Tafmizi Lis 4273 Dr. Ajani  February 23, 2024 Module 7 Assignment Question 1) x <- c(16, 17, 13, 18, 12, 14, 19, 11, 11, 10) y <- c(63, 81, 56, 91, 47, 57, 76, 72, 62, 48) Y = a + bX +e 1.1 Define the relationship model between the predictor and the response variable: model <- lm(y~x)  R equation for x,y relationship. Y is the target, x is the predictor   Relationship Model :  Y = 19.206 + 3.269X, RSE =10.48 the relationship has a positive correlation 1.2 Calculate the coefficients? summary(model)  gives information about the relationship model regression coefficient = 3.269, intercept coefficient = 19.206 question 2) discharge <- c(3.600,1.800,3.333,2.283,4.533,2.883) waiting <- c(79,54,74,62,85,55) visit <- data.frame(discharge, waiting) model2 <- lm(discharge ~ waiting, data=visit) summary(model2) Relationship Model : Y= -1.53317 + 0.06756X, RSE = 0.4724, the relationship has a positive correlation coeffs = coefficients(model2); co...
Read more

Module 4 Assignment

-
 Daniel Tafmizi Lis 4273 Dr. Ajani  February 4, 2024 Module 4 Assignment Question A) A1: 33% A2: 33% A3: 66% A4: 55% Question B)  Trick question, Jane is getting married not Marie and wow is my brain hurting. Jokes aside, I believe this answer is True. We are looking to see if it will rain based on the weatherman's report. We need to get the value of the weatherman's conditional probability, which is seen in (0.014)(0.9). Then we need to see how his predictions play out in the real world through prior probability, which is seen in [ (0.014)(0.9) + (0.986)(0.1) ]. Dividing these gives us our probability that the weatherman is right .1 out of .986 is much greater than .9 of .014. Thus it stands to reason that the probability would be low. Bayes' theory is cool and I would like to spend more time with it. Question C) > dbinom(x=10, size=10, prob=.2) [1] 1.024e-07
Read more

Module 12 Assignment

-
Image
Daniel Tafmizi Lis 4273 Dr. Ajani  April 6, 2024 Module 12 Assignment Charge<-c(31.9,27,31.3,31,39.4,40.7,42.3,49.5,45,50,50.9,58.5,39.4,36.2,40.5,44.6,46.8,44.7,52.2,54,48.8 ,55.8,58.7,63.4) #creates a list of all charges. Chargetimeseries <-ts(Charge) #the 24 charges are arranged in a time series of 24 values. Chargetimeseries <-ts(Charge, frequency = 12, start=c(2012,1), end = c(2013, 12)) #applies the time span ?ts  Time series function consists of (data, start: natural time unit, frequency: # of obs per time unit) Data is charge, frequency is 12 observations per 1 year, start is 2012 with time unit being 1 year plot(Chargetimeseries)  The visualization shows that there were more charges in 2013 than 2012. Charges tend to increase as the year progresses. We should use Holt-Winters exponential smoothing because we see an increasing trend and seasonality. ?HoltWinters Chargeforecast<-HoltWinters(Chargetimeseries) plot(Chargeforecast) Chargeforecast Holt-Wint...
Read more