Publications by Tom Buonora
DiscussionWeek15
\[f(x,y)=x^2 + 4y + y^2 -9 y + 3xy\] f1<-function(x,y) x^2 + 4*y + y^2 -9*y + 3*x*y 1) Take the partial derivatives. library(Deriv) ## Warning: package 'Deriv' was built under R version 4.0.5 Deriv(f1) ## function (x, y) ## c(x = 2 * x + 3 * y, y = 2 * y + 3 * x - 5) \[f_x\prime(x,y) \ = \ 2x + 3y\] \[f_y\prime(x,y) \ = \ 2y + 3x -5\] 2) ...
914 sym R (588 sym/12 pcs) 3 img
Data605 Assignment14
Common Maclaurin Series \[f(x) \ = \ \frac{1}{(1-x)}\] \[1 + X + X^2 + X^3 + X^4 ... = \sum_{n=0}^\infty \ x^n\] Interval of Convergence (-1, 1) The interval is bounded (only works) where x is between -1 and 1. This function calculates the first 30 terms. Lets call it for \(x=.18\) and compare it with the actual result. one_over_one_mi...
1043 sym R (641 sym/6 pcs)
Data605 Assignment13
library(Deriv) Use integration by substitution to solve the integral below. \[\int{ 4e^{-7x} dx}\] pull out the coefficient \(4\int{ e^{-7x} dx}\) \(u=-7x\) take the derivative of u \(\frac{du}{dx}=-7\) integrate “back”, note e to any exponent changes at a rate equal to itself \(\int{e^u \ du} = e^u\) pull out 4 and \(\frac{1}{7}\) un...
3080 sym R (1629 sym/18 pcs) 5 img
Data605 Assignment15
Find the equation of the regression line for the given points. Round any final values to the nearest hundredth, if necessary. ( 5.6, 8.8 ), ( 6.3, 12.4 ), ( 7, 14.8 ), ( 7.7, 18.2 ), ( 8.4, 20.8 ) My best fit was \[x^{1.7} - 2x\] R linear fit is \[0.234x + 3.48\] Below Im comparing my equation to R’s Estimate Cefficients and lm() and nls()...
3500 sym R (3090 sym/20 pcs) 2 img 1 tbl
Data605 Assignment12
Linear Regression Part II Provide a scatterplot of LifeExp~TotExp, and run simple linear regression. Do not transform the variables. Provide and interpret the F statistics, R^2, standard error,and p-values only. Discuss whether the assumptions of simple linear regression met. The Visual Interpretation data = read.csv(file = "C:\\Users\\arono\...
4483 sym R (4937 sym/28 pcs) 5 img
Data605 Assignment11
Linear Regression Using the “cars” dataset in R, build a linear model for stopping distance as a function of speed and replicate the analysis of your textbook chapter 3 (visualization, quality evaluation of the model, and residual analysis.) Cars Linear Model x<-cars$speed y<-cars$dist cars.lm <- lm(dist ~ speed, data = cars) b<-cars...
2019 sym R (2566 sym/25 pcs) 4 img
Week12 Discussion
Multiple Linear Regression Data comes from the 2020 baseball season courtesy of sports_reference Most baseball fans will tell you that runs against is a more important metric than runs for because good pitching is more reliable. Further, most fans will tell you that the best runs are the home runs because thats how you score against good pitc...
545 sym R (2280 sym/13 pcs) 3 img
Data605 Final 2
library(jpeg) # for readJPEG library(OpenImageR) # for flipImage library(ggplot2) # for qplot library(tidyverse) # for %>% library(caret) # for predict library(nnet) # for multinom Principal Component Analysis and Confusion Matrix Prepare Data Bring in the Training and Test Data Sets. # The first column ...
2890 sym R (6768 sym/26 pcs) 6 img
Data605 Final 1
library(igraph) # for graph_from_data_frame and page_Rank Form the Matrix Form the A matrix. Then, introduce decay and form the B matrix as we did in the course notes. First create a function that performs power iteration until a convergence threshold is reached. pow_it_until<-function(A, r, it) { epsilon<-.00001 r_t<-r # i...
1924 sym R (2318 sym/14 pcs) 1 img