Exercise 1

getwd()

## [1] "C:/Users/Jgranados18/Desktop/Psyc109"

cdc <- read.csv("cdc.csv")
str(cdc)  

## 'data.frame':    20000 obs. of  9 variables:
##  $ genhlth : Factor w/ 5 levels "excellent","fair",..: 3 3 3 3 5 5 5 5 3 3 ...
##  $ exerany : int  0 0 1 1 0 1 1 0 0 1 ...
##  $ hlthplan: int  1 1 1 1 1 1 1 1 1 1 ...
##  $ smoke100: int  0 1 1 0 0 0 0 0 1 0 ...
##  $ height  : int  70 64 60 66 61 64 71 67 65 70 ...
##  $ weight  : int  175 125 105 132 150 114 194 170 150 180 ...
##  $ wtdesire: int  175 115 105 124 130 114 185 160 130 170 ...
##  $ age     : int  77 33 49 42 55 55 31 45 27 44 ...
##  $ gender  : Factor w/ 2 levels "f","m": 2 1 1 1 1 1 2 2 1 2 ...

mean(cdc$height)

## [1] 67.1829

sd(cdc$height)

## [1] 4.125954

library("moments")
library("lattice")
skewness(cdc$height)

## [1] 0.1036046

kurtosis(cdc$height)

## [1] 2.62141

histogram(cdc$height)

mean(cdc$age)

## [1] 45.06825

sd(cdc$age)

## [1] 17.19269

library("moments")
library("lattice")
skewness(cdc$age)

## [1] 0.4516664

kurtosis(cdc$age)

## [1] 2.345038

histogram(cdc$age)