Evaluacion

#pregunta 1
DatasetTitatic <- read.csv ("https://raw.githubusercontent.com/DFJL/Datasets/master/titanic.csv", sep = ",")
View(DatasetTitatic)

#Pregunta 2
p <- .5 
quantile(x = variable, probs = p)

#Pregunta 3
"El rango intercuartil se representa como q3 - q1"

#Pregunta 4
DataSetSpotify <- read.csv("https://raw.githubusercontent.com/DFJL/Datasets/master/Spotify-2000.csv", sep = ";")
MediaS <- sum(DataSetSpotify$Popularity, na.rm = TRUE) / nrow(DataSetSpotify)
MediaS
MediaSB <- mean(DataSetSpotify$Popularity, na.rm = TRUE)

MediaS;MediaSB

#Pregunta 5
max (DatasetTitatic [, 6], na.rm = TRUE) - min (DatasetTitatic [, 6], na.rm = TRUE)
max(DatasetTitatic$Age, na.rm = TRUE) - min(DatasetTitatic$Age, na.rm = TRUE)
max(DatasetTitatic$SibSp, na.rm = TRUE) - min(DatasetTitatic$SibSp, na.rm = TRUE)

#Pregunta 6
df <- DatasetTitatic %>% sample_n(100)
df

#Pregunta 7
"Filtrar = WHERE"
"Organizar = Order_by"
"bind_rows = Join"
"seleccione = select"

#Pregunta 8
"modelo estadistico de segmentacion"

#Pregunta 9
cuatil <- quantile (x = DataSetSpotify$Popularity, probs = c (0.1, .9), na.rm = TRUE)
cuatil

#Pregunta 10
"Las variables cualitativas del DataSetTitanic son, 
Name, Sex, Embarked"