library(palmerpenguins)

## 
## Attaching package: 'palmerpenguins'

## The following objects are masked from 'package:datasets':
## 
##     penguins, penguins_raw

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)

dim(penguins)

## [1] 344   8

"The R code I used: dim(penguins) and the answer it gave me was that there are 344 rows and 8 variables."

head(penguins)

## # A tibble: 6 × 8
##   species island    bill_length_mm bill_depth_mm flipper_length_mm body_mass_g
##   <fct>   <fct>              <dbl>         <dbl>             <int>       <int>
## 1 Adelie  Torgersen           39.1          18.7               181        3750
## 2 Adelie  Torgersen           39.5          17.4               186        3800
## 3 Adelie  Torgersen           40.3          18                 195        3250
## 4 Adelie  Torgersen           NA            NA                  NA          NA
## 5 Adelie  Torgersen           36.7          19.3               193        3450
## 6 Adelie  Torgersen           39.3          20.6               190        3650
## # ℹ 2 more variables: sex <fct>, year <int>

"R code I used: head(penguins) and the output I got species island billlengthmm billdepthmm 1 Adelie Torge$)C!& 39.1 18.7 2 Adelie Torge$)C!& 39.5 17.4 3 Adelie Torge$)C!& 40.3 18
4 Adelie Torge$)C!& NA NA
5 Adelie Torge$)C!& 36.7 19.3 6 Adelie Torge$)C!& 39.3 20.6 " 

summary(penguins$flipperlengthmm)

## Min. 1st Qu.
Median Mean 3rd Qu. Max. NA's


172.0 190.0 197.0 200.9 213.0 231.0 2

"R code I used: summary(penguins$flipperlengthmm) The output I got: Mean, 200.9 Median, 197.0"

library(openintro)

## Loading required package: airports

## Loading required package: cherryblossom

## Loading required package: usdata

sd(penguins$flipper_length_mm)

## [1] NA