¿Cómo van tus funciones en R? (2)
Se te ha proporcionado una posible implementación de la función interpret(). En este ejercicio escribirás otra función que utilizará la función interpret() para interpretar todos los datos de las vistas diarias de tu perfil dentro de un vector. Además, tu función devolverá la suma de vistas en días populares, si así se solicita. Un bucle for es ideal para iterar sobre todos los elementos del vector. La capacidad de devolver la suma de vistas en días populares es algo que puedes programar mediante un argumento de función con un valor predeterminado.
Este ejercicio forma parte del curso
R intermedio
Instrucciones de ejercicio
Termina la plantilla para la función interpret_all():
Haz que
return_sumsea un argumento opcional,TRUEde forma predeterminada.Dentro del bucle
for, itera sobre todo el valor deviews: en cada iteración, añade el resultado deinterpret(v)acount. Recuerda queinterpret(v)devuelvevpara los días populares y0en caso contrario. Al mismo tiempo,interpret(v)también hará algunas impresiones.Termina la construcción
if:Si
return_sumesTRUE, devuelvecount.Si no, devuelve
NULL.
Llama a esta función recién definida en linkedin y facebook.
Ejercicio interactivo práctico
Pruebe este ejercicio completando este código de muestra.
# The linkedin and facebook vectors have already been created for you
linkedin <- c(16, 9, 13, 5, 2, 17, 14)
facebook <- c(17, 7, 5, 16, 8, 13, 14)
# The interpret() can be used inside interpret_all()
interpret <- function(num_views) {
if (num_views > 15) {
print("You're popular!")
return(num_views)
} else {
print("Try to be more visible!")
return(0)
}
}
# Define the interpret_all() function
# views: vector with data to interpret
# return_sum: return total number of views on popular days?
interpret_all <- function(views, return_sum) {
count <- 0
for (v in views) {
}
if (return_sum) {
} else {
}
}
# Call the interpret_all() function on both linkedin and facebook