FQ2Shashaank2020-10-12abstract =read.csv("iris_exams.csv")summary(abstract)##idSpeciesSepal.LengthSepal.Width##Length:300Length:300Min.:4.417Min.:1.796##Class :characterClass :character1st Qu.:5.2091stQu.:2.720##Mode:characterMode:characterMedian :5.844Median :2.992##Mean:5.857Mean:3.064##3rd Qu.:6.4483rdQu.:3.375##Max.:8.478Max.:4.810##Petal.LengthPetal.Width##Min.:1.135Min.:-0.03371##1st Qu.:1.5661st Qu.: 0.30278##Median :4.228Median : 1.28776##Mean:3.738Mean: 1.19830##3rd Qu.:5.2053rd Qu.: 1.87452##Max.:6.955Max.: 2.62487abstract$Species[abstract$Species=="versicolor"] <-1abstract$Species[abstract$Species=="setosa"] <-2abstract$Species[abstract$Species=="virginica"] <-3model1 =lm(Species~Sepal.Length+Sepal.Width+Petal.Length+Petal.Width ,data =abstract)summary(model1)#### Call:## lm(formula = Species ~ Sepal.Length + Sepal.Width +Petal.Length +##Petal.Width, data = abstract)#### Residuals:##Min1QMedian3QMax## -1.6395 -0.53360.11410.45711.3656##