Tugas3

data2 <- read.csv("D:/KULIAH UIN/SMT 2/MACHINE LEARNING/Tugas 3 dan 4/MachineLearning3.csv")
head(data2)

##           Country.Name Country.Code       Region Year Fertility.Rate
## 1                Aruba          ABW The Americas 1960          4.820
## 2          Afghanistan          AFG         Asia 1960          7.450
## 3               Angola          AGO       Africa 1960          7.379
## 4              Albania          ALB       Europe 1960          6.186
## 5 United Arab Emirates          ARE  Middle East 1960          6.928
## 6            Argentina          ARG The Americas 1960          3.109

summary(data2)

##  Country.Name       Country.Code          Region               Year     
##  Length:374         Length:374         Length:374         Min.   :1960  
##  Class :character   Class :character   Class :character   1st Qu.:1960  
##  Mode  :character   Mode  :character   Mode  :character   Median :1986  
##                                                           Mean   :1986  
##                                                           3rd Qu.:2013  
##                                                           Max.   :2013  
##  Fertility.Rate 
##  Min.   :1.124  
##  1st Qu.:2.243  
##  Median :3.994  
##  Mean   :4.191  
##  3rd Qu.:6.252  
##  Max.   :8.187

str(data2)

## 'data.frame':    374 obs. of  5 variables:
##  $ Country.Name  : chr  "Aruba" "Afghanistan" "Angola" "Albania" ...
##  $ Country.Code  : chr  "ABW" "AFG" "AGO" "ALB" ...
##  $ Region        : chr  "The Americas" "Asia" "Africa" "Europe" ...
##  $ Year          : int  1960 1960 1960 1960 1960 1960 1960 1960 1960 1960 ...
##  $ Fertility.Rate: num  4.82 7.45 7.38 6.19 6.93 ...

library(DataExplorer)

## Warning: package 'DataExplorer' was built under R version 4.0.5

plot_histogram(data2)