DATA_MINING_LAB_INTRO_R 4/3/2020

RStudio

X<-c(69,74,68,70,72)
Y<-c(153,175,155,135,172)
mean(X)
median(X)

 c_root<- function(x){
   return(sqrt(X))
 }
 c_root(25)

xseq<- seq(20,130,.1)
 densities<-dnorm(xseq,mean(X),var(X))
 plot(xseq,densities,col="blue",xlab="X",ylab="PDF",type="l",lwd=4,main="PDF OF X")

  (X>80)
 which(X>80)