Introduction

This is a sample document created for the IE 5342 Fall 2026 semester. I am going demonstrate using R Markdown in this document. The first thing, is to add some sample data.

Load Required Libraries

library(DoE.base)

Sample Data

The sample data will be the vectors \(X\) and \(Y\).

X<-c(1,2,3,4,5,6)
Y<-c(5,3,8,6,5,3)

grab some other data in DC_Motors

df<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/refs/heads/main/DC_Motors.csv")

Plot of Data

Now, I would like to create a histogram, oops I meant scatterplot, of the data

plot(X,Y,main="Scatterplot of the Vectors X and Y")

Look at how cool this is.

Sample Statistics

We would now like to create some descriptive statistics as it relates to the data that was inputted previously. The first thing that we want, are the measures of location and dispersion

cat("summary measures of X \n",summary(X),"\n")
## summary measures of X 
##  1 2.25 3.5 3.5 4.75 6
cat("summary measures of Y \n",summary(Y),"\n")
## summary measures of Y 
##  3 3.5 5 5 5.75 8

Variance

var(X)
## [1] 3.5
var(Y)
## [1] 3.6

\[Y=\frac{2}{3}\]

Complete Code

library(DoE.base)
X<-c(1,2,3,4,5,6)
Y<-c(5,3,8,6,5,3)
df<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/refs/heads/main/DC_Motors.csv")
cat("summary measures of X \n",summary(X),"\n")
cat("summary measures of Y \n",summary(Y),"\n")
var(X)
var(Y)