Functions are a way to compartmentalize chuncks of code so you can use them over and over.

For this homework, I would like you to create a function called get_rice() and it will do the following:

I’ll get you started with the URL and the stub for the function. If you want to look at the raw data

# Put your code here for the function.
get_rice <- function() {
  url <- "https://docs.google.com/spreadsheets/d/1Mk1YGH9LqjF7drJE-td1G_JkdADOU0eMlrP01WFBT8s/pub?gid=0&single=true&output=csv"

}

When done, you should be able to call the function as:

rice <- get_rice() 
summary( rice )
   Length     Class      Mode 
        1 character character 

Put it into a script file.

Copy the code for the function above and put it into a *.R script file and save it in the root directory of your project for this class. Now you can use it whenever we need to load in that particular data file.

LS0tCnRpdGxlOiAiRnVuY3Rpb25zIgphdXRob3I6IFlPVVJfTkFNRV9IRVJFCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCj4gRnVuY3Rpb25zIGFyZSBhIHdheSB0byBjb21wYXJ0bWVudGFsaXplIGNodW5ja3Mgb2YgY29kZSBzbyB5b3UgY2FuIHVzZSB0aGVtIG92ZXIgYW5kIG92ZXIuCgpGb3IgdGhpcyBob21ld29yaywgSSB3b3VsZCBsaWtlIHlvdSB0byBjcmVhdGUgYSBmdW5jdGlvbiBjYWxsZWQgYGdldF9yaWNlKClgIGFuZCBpdCB3aWxsIGRvIHRoZSBmb2xsb3dpbmc6CgotIExvYWQgaW4gdGhlIGNzdiBmaWxlIGZyb20gZ29vZ2xlIGRvY3MuICAKLSBNYWtlIGNvbHVtbnMgZm9yIERhdGUsIE1vbnRoLCAmIFdlZWtkYXkuICAKLSBDb252ZXJ0IFRlbXBlcmF0dXJlICYgTGVuZ3RoIHVuaXRzIHRvIG1ldHJpYyB2ZXJzaW9uLiAgCi0gRHJvcCBhbGwgZHVwbGljYXRlIGRhdGEuICAKLSBNYWtlIGNvbHVtbiBuYW1lcyByZWFkYWJsZSBhbmQgdXNhYmxlLiAgCi0gUmV0dXJuIHRoZSBkYXRhIGZyYW1lIHRvIHRoZSB1c2VyLiAgCgoKSSdsbCBnZXQgeW91IHN0YXJ0ZWQgd2l0aCB0aGUgVVJMIGFuZCB0aGUgc3R1YiBmb3IgdGhlIGZ1bmN0aW9uLiAgSWYgeW91IHdhbnQgdG8gbG9vayBhdCB0aGUgcmF3IGRhdGEKCgoKYGBge3J9CiMgUHV0IHlvdXIgY29kZSBoZXJlIGZvciB0aGUgZnVuY3Rpb24uCmdldF9yaWNlIDwtIGZ1bmN0aW9uKCkgewogIHVybCA8LSAiaHR0cHM6Ly9kb2NzLmdvb2dsZS5jb20vc3ByZWFkc2hlZXRzL2QvMU1rMVlHSDlMcWpGN2RySkUtdGQxR19Ka2RBRE9VMGVNbHJQMDFXRkJUOHMvcHViP2dpZD0wJnNpbmdsZT10cnVlJm91dHB1dD1jc3YiCgp9CmBgYAoKCgpXaGVuIGRvbmUsIHlvdSBzaG91bGQgYmUgYWJsZSB0byBjYWxsIHRoZSBmdW5jdGlvbiBhczogCgpgYGB7cn0KcmljZSA8LSBnZXRfcmljZSgpIApzdW1tYXJ5KCByaWNlICkKYGBgCgoKCiMjIFB1dCBpdCBpbnRvIGEgc2NyaXB0IGZpbGUuCgpDb3B5IHRoZSBjb2RlIGZvciB0aGUgZnVuY3Rpb24gYWJvdmUgYW5kIHB1dCBpdCBpbnRvIGEgKi5SIHNjcmlwdCBmaWxlIGFuZCBzYXZlIGl0IGluIHRoZSByb290IGRpcmVjdG9yeSBvZiB5b3VyIHByb2plY3QgZm9yIHRoaXMgY2xhc3MuICBOb3cgeW91IGNhbiB1c2UgaXQgd2hlbmV2ZXIgd2UgbmVlZCB0byBsb2FkIGluIHRoYXQgcGFydGljdWxhciBkYXRhIGZpbGUuCgo=