irisData<-read.csv("iris.csv",header = TRUE,stringsAsFactors = FALSE)#this is used to load the
#csv into the working directory


countSetosa<- 0
countversicolor<- 0
countvirginica<- 0
for (i in seq(irisData$Species)){
  if(irisData$Species[i]=="Iris-setosa") countSetosa<-countSetosa+1
  if(irisData$Species[i]=="Iris-versicolor") countversicolor<-countversicolor+1
  if(irisData$Species[i]=="Iris-virginica") countvirginica<-countvirginica+1

  
  
}
  



correlation<-cor(#this is ued to set up a varible called correlation 
  irisData$Petal.length,#sets the x axis
  irisData$Sepal.length,#sets the y axis 
  method = c("pearson"))#sets method as pearson 
correlation
petalscatter<-scatter.smooth(irisData$Sepal.length,
                             irisData$Petal.length,
                             main = "Scatterplot",#creates a title
                             xlab = "Sepal Length", #adds x axis
                             ylab = "petal length")#adds y axis     

decider<- 0
calculateArea<-function(x){
  for (i in seq(x$Species)){
    if(irisData$Species[i]=="Iris-setosa") decider<- 1
    if(irisData$Species[i]=="Iris-versicolor") decider<- 2
    if(irisData$Species[i]=="Iris-virginica") decider<- 3
    return(decider)
    
  }

    
    
}
calculateArea(irisData)