Scatter plot in R

# install.packages("ggplot2")# install.packages("ggExtra")library(ggplot2)library(ggExtra)dat<- read.csv(file.choose())colnames(dat)# Save the scatter plot in a variablep <- ggplot(dat, aes(x = Speed_2017_to_2019, y =  Volume_2017_to_2019)) +  geom_point(shape=5, color="gray")+ ...

Histogram in R

 # Load datap <- read.csv(file.choose())colnames(p)hist(p$Speed_during, xlab = "Speed in 2020", ylab = "Frequency",      main = "",breaks= 20, xlim= c(0, 120), w=20)hist(p$Volume_during, xlab = "Volume in 2020", ylab = "Frequency", main = "",     breaks= 20,...

No Parametric Model in R

 require(foreign)  #import data filesrequire(ggplot2)  #plotrequire(MASS)     #for Modern Applied Statistics with Slibrary("mosaic") #Statistics and Mathematics Teaching Utilities# Load datap <- read.csv(file.choose())m<- fitModel(SPEEDING_CRASH  ~               exp(LENGTH             ...

MARS in R

 #MARSlibrary(earth)require(MASS)# fit modelfit <- earth(formula=SPEEDING_CRASH ~               log(AVG_AADT)+LANDUSE_MIX+PAVEMENT_CONDITION+ISLDWIDTH+               P_BOTH_SIDEWALK_ONLY+HIGH_FREQ_TRANSIT+SIGNAL_PER_MILE+               MEDIAN_WIDTH+DAILY_TRANSIT+PAVEMENT_CONDITION+LANE_WIDTH ...