56 lines
1.3 KiB
R
56 lines
1.3 KiB
R
# Test R Script for VSCode Setup
|
|
# This script demonstrates basic R functionality
|
|
|
|
# Basic operations
|
|
x <- 1:10
|
|
y <- x^2
|
|
|
|
cat("=== Basic R Test ===\n")
|
|
cat("Vector x:", x, "\n")
|
|
cat("Vector y:", y, "\n")
|
|
cat("Mean of x:", mean(x), "\n")
|
|
cat("Sum of y:", sum(y), "\n")
|
|
cat("Standard deviation of x:", sd(x), "\n\n")
|
|
|
|
# Data frame example
|
|
df <- data.frame(
|
|
id = 1:5,
|
|
name = c("Alice", "Bob", "Charlie", "Diana", "Eve"),
|
|
age = c(25, 30, 35, 28, 32),
|
|
score = c(85, 92, 78, 96, 88)
|
|
)
|
|
|
|
cat("=== Data Frame Example ===\n")
|
|
print(df)
|
|
cat("\n")
|
|
|
|
# Statistical summary
|
|
cat("=== Statistical Summary ===\n")
|
|
cat("Summary of scores:\n")
|
|
print(summary(df$score))
|
|
cat("\n")
|
|
|
|
# Simple function
|
|
calculate_stats <- function(data) {
|
|
list(
|
|
mean = mean(data),
|
|
median = median(data),
|
|
min = min(data),
|
|
max = max(data)
|
|
)
|
|
}
|
|
|
|
cat("=== Custom Function Test ===\n")
|
|
stats <- calculate_stats(df$score)
|
|
print(stats)
|
|
cat("\n")
|
|
|
|
# Plot example (will create a plot if run in R)
|
|
cat("=== Plot Information ===\n")
|
|
cat("To create a plot, run this script in R and use:\n")
|
|
cat("plot(x, y, main = 'Test Plot: y = x^2', type = 'b', col = 'blue')\n")
|
|
cat("hist(df$score, main = 'Score Distribution', col = 'lightgreen')\n\n")
|
|
|
|
cat("✅ R script executed successfully!\n")
|
|
cat("Your R environment is working correctly.\n")
|