Pressure Dataset

This dataset shows the relation between temperature (degree Celsius) and vapor pressure of mercury (mm).

data(pressure)
head(pressure)

  temperature pressure
1           0   0.0002
2          20   0.0012
3          40   0.0060
4          60   0.0300
5          80   0.0900
6         100   0.2700

Scatter Plot of Pressure versus Temperature

• Let’s visualize if there is a relationship between the two variables through scatter plot.

plot1<- plot(x=pressure$temperature, y=pressure$pressure,
             xlab='Temperature (deg Celsius)',
             ylab= 'Pressure (mm)',
             main= 'Relationship between Temperature and Pressure')

plot1

## NULL

Linear Model

• Based on the plot, there is a positive linear relationship between the 2 variables.
• The relationship could be shown with linear regression.

linearmodel <- lm(pressure ~ temperature, data=pressure)

Plot with Linear Model

• The blue line in the graph represents the linear model.
• Pressure reading can be predicted using the linear model with the temperature reading selected.

plot(x=pressure$temperature, y=pressure$pressure,
             xlab='Temperature (deg Celsius)',
             ylab= 'Pressure (mm)',
             main= 'Relationship between Temperature and Pressure')
abline(linearmodel, col='blue')