data(yacht_hydrodynamics)
summary(yacht_hydrodynamics)
plot(
x = yacht_hydrodynamics$V6,
y = yacht_hydrodynamics$V7,
xlab = "Boat Velocity",
ylab = "Residuary Resistance",
main = "Velocity vs Residuary Resistance"
)
if (requireNamespace("corrplot", quietly = TRUE)) {
yacht_corr <- cor(yacht_hydrodynamics, use = "complete.obs")
corrplot::corrplot(yacht_corr, method = "color", type = "upper", order = "hclust")
}
model <- lm(V7 ~ V6 + V1, data = yacht_hydrodynamics)
summary(model)
Run the code above in your browser using DataLab