bigdata_part03_06

.

library(dplyr)

## Warning: 패키지 'dplyr'는 R 버전 4.1.3에서 작성되었습니다

## 
## 다음의 패키지를 부착합니다: 'dplyr'

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

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

boston<-read.csv("boston.csv")
boston %>% select(MEDV) %>% mutate(minmax=(MEDV-min(MEDV))/(max(MEDV)-min(MEDV)))%>%
  filter(minmax>0.5) %>% NROW

## [1] 106