# Get the input values. 

input <- mtcars[,c(‘wt’,’mpg’)]

Your content goes here. Edit or remove this text inline or in the module Content settings. You can also style every aspect of this content in the module Design settings and even apply custom CSS to this text in the module Advanced settings.

# Plot the chart for cars with weight between 2.5 to 5 and mileage between 15 and 30. 

plot(x=input$wt,y=input$mpg, 

     xlab=”Weight”, 

     ylab=”Milage”, 

     xlim=c(2.5,5), 

     ylim=c(15,30),    

     main=”Weight vs Milage” 

     ) 

# Save the file. 

dev.off()