# Basic usage
stats <- TestStatistics(J15S500)
print(stats)
# Extract specific statistics
cat("Mean score:", stats$Mean, "\n")
cat("Standard deviation:", stats$SD, "\n")
# View score distribution summary
summary_stats <- data.frame(
Min = stats$Min,
Q1 = stats$Q1,
Median = stats$Median,
Mean = stats$Mean,
Q3 = stats$Q3,
Max = stats$Max
)
print(summary_stats)
Run the code above in your browser using DataLab