
#  Carga la libreria dplyr 


#  A través de la función filter() crea un subconjunto llamado data1 sólo para las regiones del Maule y Araucanía 


# Generar un gráfico que permita visualizar la relación entre las variables Temperatura y rendimiento para ambas  regiones.


		#   Carga la libreria dplyr
library(dplyr)
		
		#   A través de la función filter() crea un subconjunto llamado data1 sólo para las regiones del Maule y Araucanía 

data1 <- filter(data, Region == "Maule" | Region =="La_Araucania")
		

		# Generar un grafico que permita visualizar la relacion entre las variables Temperatura y rendimiento para ambas  regiones.
		
plot(data1$Temperatura, data1$rendimiento)


		test_function("library")
		test_object("data1")
		test_function("filter")
		test_function("plot")
		success_msg("Buen Trabajo!")

Recuerda usar el operador ( <- ) para crear el vector data1.