The iris data set is a default data set from R. It gives data from 150 iris from the 3 different Species: Setosa, Versicolor and Virginica. The data provided is the sepal length, sepal width, petal length and petal width. Each species has a different relationship between those measurements.

I developed a Shiny App to see if we can predict the petal length based on the sepal length. In the App, the user can decide which model to use: model for all species or for a specific Species.

The App also provides the prediction of all models for a certain Sepal Length chosen by the user in a slider.

In order to see if the determination of the petal length depends on the species I calculated 4 models:

• Model 1: linear regression of all irises from the database
• Model 2: linear regression of only the irises from species setosa
• Model 3: linera regression of only the irises from species versicolor
• Model 4: linera regression of only the irises from species virginica

Code of the App is in the Github repository: Github Link with code

library(shiny)
shinyUI(fluidPage(
    titlePanel("Predict Petal Length"),
    sidebarLayout(
        sidebarPanel(
            sliderInput("slider", "What is the Sepal Length?", 4, 8, value = 6),
            checkboxInput("showModel1", "Show/Hide Model All Species", value = TRUE),
            checkboxInput("showModel2", "Show/Hide Model Setosa", value = TRUE),
            checkboxInput("showModel3", "Show/Hide Model Versicolor", value = TRUE),
            checkboxInput("showModel4", "Show/Hide Model Virginica", value = TRUE),
            submitButton("Submit")
        ),
        mainPanel(
            plotOutput("plot1"),
            h4("Predicted Petal Length from Model All Species:",style="color:blue"),
            textOutput("pred1"),
            h4("Predicted Petal Length from Model Setosa:",style="color:black"),
            textOutput("pred2"),
            h4("Predicted Petal Length from Model Versicolor:",style="color:red"),
            textOutput("pred3"),
            h4("Predicted Petal Length from Model Virginica:",style="color:green"),
            textOutput("pred4")
        )
    )
))