Powerpoint of collected data, writing homework help

Hire our professional essay experts at Gradehunters.net who are available online 24/7 for an essay paper written to a high standard at an affordable cost.

Order a Similar Paper Order a Different Paper

5 slides powerpoint. Integrate the data analysis I have in hand using RStudio and excel into powerpoint slides. We analyze the freethrow percentage in NBA with few model to determine corelation and other models. Please put all the things we have into a few slides based on the instruction I will attach.

If you know how to use Rstudio this should be a 10 min work for you.

Basketball <- read_csv(“C:/Users/kaziz/Desktop/MKTG 480N Basketball analytics.csv”)

# to help generate correlation plots
install.packages(“PerformanceAnalytics”, repos = “http://cran.us.r-project.org)


# to help visualize correlation in color
install.packages(“corrplot”, repos = “http://cran.us.r-project.org)


#See some Descriptive statistics about our Basketball dataset


“`{r, results=’hide’}
# Using the function chart.Correlation from “PerformanceAnalytics” package,
# we can create a correlation matrix easily, much easier than built in functions

# However, before that, we need to pick out the numerical variables
# because we cannot run correlation matrix with categorical data or missing data
Basketball.num = sapply(Basketball, is.numeric) # label TRUE FALSE for numerical variables
num = Basketball[,Basketball.num] # selecting only numerical variables


correlation = cor(num, use = “complete.obs”)
corrplot(correlation, type=”upper”)

Basketball$Post= ifelse(Basketball$Pos==”PG”,1,ifelse(Basketball$Pos==”SG”,2,ifelse(Basketball$Pos==”SF”,3,ifelse(Basketball$Pos==”PF”,4,5))))

# first load package “caTools”

# based on probability 70% training data / 30% test data split.
# We create an item variable called “indicator”, where indicator = TRUE takes up 70% of data
indicator = sample.split(Basketball, SplitRatio = 0.7)

# Extract out the data based on whether indicator variable is TRUE or FALSE
testing = Basketball[!indicator,] # getting 30% of the data as testing
training = Basketball[indicator,] # getting 70% of the data as training

# Attach training data first

# To build a linear regression model, give this model a name “linear”:
linear = lm(FTP~ Post + FGP + `3PP` + AST + TRB+ TOV+BLK+`PS/G`+ MP)

# To see the result of model:


# To predict the gross of data from testing dataset using the linear model we built
testing$linear_prediction = predict(linear, newdata = testing)

# To see the accuracy of prediction:
accuracy = testing$linear_prediction – testing$FTP
percent = accuracy/testing$FTP
mean(accuracy,na.rm = TRUE) # to see how much percentage away from the actual


Everyone needs a little help with academic work from time to time. Hire the best essay writing professionals working for us today!

Get a 15% discount for your first order

Order a Similar Paper Order a Different Paper