Start from Week2_Part1.R script, change it according to your selected datset from Quiz2. Then submit to this link: 1. Your modified script. 2. A screenshot report showing the outputs from your rstudio after executing all activities.

# comments start with # # to quit q() # two steps to install any library #install.packages("rattle") #library(rattle) setwd("C:/Users/ialsmadi/Desktop/University_of_Cumberlands/Lectures/Week2/RScripts") getwd() x <- 3 # x is a vector of length 1 print(x) v1 <- c(2,4,6,8,10) print(v1) print(v1[3]) v <- c(1:10) #creates a vector of 10 elements numbered 1 through 10. More complicated data print(v) print(v[6]) # Import test data test<-read.csv("yearly_sales.csv") test1<-read.csv("yearly_sales.csv", sep=",") test2<-read.table("yearly_sales.csv", sep=",") write.csv(test2, file="out.csv") # Write CSV in R write.table(test1, file = "out1.csv",row.names=TRUE, na="",col.names=TRUE, sep=",") head(test) tail(test) summary(test) head <- head(test) tail <- tail(test) cor(test$sales_total, test$num_of_orders) sd(test$sales_total) var(test$sales_total) plot(test$sales_total) hist(test$sales_total) str(test$sales_total) quit()