Title: Smart Prediction App Author: Your Name Date: October 27, 2026 autosize: true
An interactive R Shiny application that turns user inputs into useful predictions.
Goal: Make data analysis accessible to everyone.
Understanding data can be difficult without programming knowledge.
Our application helps users:
The app connects user-friendly inputs with R’s analytical capabilities.
The application follows three steps:
# Example calculation using R's built-in dataset
data(cars)
avg_speed <- mean(cars$speed)
avg_distance <- mean(cars$dist)
cat("Average speed:", round(avg_speed, 2), "\n")
## Average speed: 15.4
cat("Average stopping distance:", round(avg_distance, 2))
## Average stopping distance: 42.98
These values are calculated when the presentation is rendered.
The built-in cars dataset demonstrates the relationship
between speed and stopping distance.
data(cars)
plot(
cars$speed,
cars$dist,
main = "Speed vs Stopping Distance",
xlab = "Speed",
ylab = "Stopping Distance",
pch = 19,
col = "steelblue"
)
model <- lm(dist ~ speed, data = cars)
abline(model, lwd = 2, col = "red")
cat(
"Model R-squared:",
round(summary(model)$r.squared, 3)
)
## Model R-squared: 0.651
The scatter plot and fitted regression line illustrate how R can summarize a relationship in data.
What makes the application useful?
Next step: Try the deployed Shiny application and explore its real inputs and outputs.
Thank you!