# R script

# Create data vectors.
x = 1:4
y = c(1, 3, 2, 4)

# Compute means, sds, and correlation.
print(mean(x))
print(mean(y))
print(sd(x))
print(sd(y))
print(cov(x, y))

# Print regression summary.
print(summary(lm(y ~ x))

* SAS Script

* Create dataset;
data simple;
   input x y @@;
   datalines;
1 1  2 3  3 2  4 4
;

* Compute means, sds, and correlation;
proc corr;
   var x y;
   
* Print regression summary;
proc reg;
   model y = x;