HW1.R

# House Keeping:
rm(list = ls())
setwd("/Users/bmishra/Dropbox/OSU/PhD/Fall 2021/STAT5193 SAS R/R/Assignments/Homework 1")

# Assignment 1:
# Q1:
bm = 5.2
bm + 5

## [1] 10.2

# Q2:
# Q2(a):
library(MASS)
data("DDT") 
help("DDT")
# DDT: A numeric vector of 15 measurements by different laboratories of the pesticide DDT in kale, in ppm (parts per million) using the multiple pesticide residue measurement.

# Q2(b):
mean(DDT) # Mean

## [1] 3.328

sd(DDT) #Standard Deviation

## [1] 0.4371531

# Q2(c):
xbar = mean(DDT) # Mean
sdev = sd(DDT) #Standard Deviation
n = length(DDT)
CI = c(xbar - 2*sdev/sqrt(n), xbar + 2*sdev/sqrt(n))
CI

## [1] 3.102255 3.553745

# Q2(d):
hist(DDT)

# Q3:
bijesh = 8968
bijesh

## [1] 8968

# Extra Codes:
pdf("BMishraAssignment1.pdf")
hist(DDT)
dev.off() # Device Off

## quartz_off_screen 
##                 2

ls()

## [1] "bijesh" "bm"     "CI"     "DDT"    "n"      "sdev"   "xbar"

save.image("HW1.RData")
load("HW1.RData")