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(dslabs)
data(heights)
s<-heights%>%filter(sex=="Female")%>%
  summarize(average=mean(height),standard_deviation=sd(height))
s

   average standard_deviation
1 64.93942           3.760656