This is an R Markdown
Notebook. When you execute code within the notebook, the results appear
beneath the code.
Try executing this chunk by clicking the Run button within
the chunk or by placing your cursor inside it and pressing
Ctrl+Shift+Enter.
# In this hw1.R assignment, we want students to:
# - learn how to write a trivial R script
# - learn how to run an R script via the source() function
# - learn to answer our "write code ..." questions with R code that
# isn't too specific (I'll describe this point more in class)
# We're hoping that this small exericse will lead to less trouble on
# hw2.R, which requires a more meaningful R script.
#
# You should replace all occurrences of "..." with your code. If you'd
# like to replace a single "..." with more than one line of code
# before my line (using your own variables), you may certainly do
# that.
#
# Name: Kayley Seow
# Email: kseow@wisc.edu
# We'll grade your homework by running this ".R" file via
# source("hw1.R")
rm(list = ls()) # Remove all objects defined in workspace.
x = c(5, 7)
# Find the sum of the elements of the vector x.
# ... your code here, if you wish ...
answer.1 = sum(x)# ... set this variable correctly (please don't use "5+7"
# or "12": use more general code that will work even if x
# were changed)
cat(sep="", "sum of elements of x is ", answer.1, "\n")
# Write code to generate two random numbers from N(0, 1) and report
# their sum.
# ... your code here, if you wish ...
# we need to use the rnorm function in order to get the random number
rand = rnorm(n = 2,mean = 0,sd = 1)
answer.2 = sum(rand) # ... set this variable correctly
cat(sep="", "sum of two random N(0, 1) numbers is ", answer.2, "\n")
LS0tDQp0aXRsZTogIlNUQVQgMzAzIEhvbWV3b3JrIDEiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpUaGlzIGlzIGFuIFtSIE1hcmtkb3duXShodHRwOi8vcm1hcmtkb3duLnJzdHVkaW8uY29tKSBOb3RlYm9vay4gV2hlbiB5b3UgZXhlY3V0ZSBjb2RlIHdpdGhpbiB0aGUgbm90ZWJvb2ssIHRoZSByZXN1bHRzIGFwcGVhciBiZW5lYXRoIHRoZSBjb2RlLiANCg0KVHJ5IGV4ZWN1dGluZyB0aGlzIGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqUnVuKiBidXR0b24gd2l0aGluIHRoZSBjaHVuayBvciBieSBwbGFjaW5nIHlvdXIgY3Vyc29yIGluc2lkZSBpdCBhbmQgcHJlc3NpbmcgKkN0cmwrU2hpZnQrRW50ZXIqLiANCg0KYGBge3J9DQojIEluIHRoaXMgaHcxLlIgYXNzaWdubWVudCwgd2Ugd2FudCBzdHVkZW50cyB0bzoNCiMgICAtIGxlYXJuIGhvdyB0byB3cml0ZSBhIHRyaXZpYWwgUiBzY3JpcHQNCiMgICAtIGxlYXJuIGhvdyB0byBydW4gYW4gUiBzY3JpcHQgdmlhIHRoZSBzb3VyY2UoKSBmdW5jdGlvbg0KIyAgIC0gbGVhcm4gdG8gYW5zd2VyIG91ciAid3JpdGUgY29kZSAuLi4iIHF1ZXN0aW9ucyB3aXRoIFIgY29kZSB0aGF0DQojICAgICBpc24ndCB0b28gc3BlY2lmaWMgKEknbGwgZGVzY3JpYmUgdGhpcyBwb2ludCBtb3JlIGluIGNsYXNzKQ0KIyBXZSdyZSBob3BpbmcgdGhhdCB0aGlzIHNtYWxsIGV4ZXJpY3NlIHdpbGwgbGVhZCB0byBsZXNzIHRyb3VibGUgb24NCiMgaHcyLlIsIHdoaWNoIHJlcXVpcmVzIGEgbW9yZSBtZWFuaW5nZnVsIFIgc2NyaXB0Lg0KIw0KIyBZb3Ugc2hvdWxkIHJlcGxhY2UgYWxsIG9jY3VycmVuY2VzIG9mICIuLi4iIHdpdGggeW91ciBjb2RlLiBJZiB5b3UnZA0KIyBsaWtlIHRvIHJlcGxhY2UgYSBzaW5nbGUgIi4uLiIgd2l0aCBtb3JlIHRoYW4gb25lIGxpbmUgb2YgY29kZQ0KIyBiZWZvcmUgbXkgbGluZSAodXNpbmcgeW91ciBvd24gdmFyaWFibGVzKSwgeW91IG1heSBjZXJ0YWlubHkgZG8NCiMgdGhhdC4NCiMNCiMgTmFtZTogS2F5bGV5IFNlb3cNCiMgRW1haWw6IGtzZW93QHdpc2MuZWR1DQoNCiMgV2UnbGwgZ3JhZGUgeW91ciBob21ld29yayBieSBydW5uaW5nIHRoaXMgIi5SIiBmaWxlIHZpYQ0KIyAgIHNvdXJjZSgiaHcxLlIiKQ0KDQpybShsaXN0ID0gbHMoKSkgIyBSZW1vdmUgYWxsIG9iamVjdHMgZGVmaW5lZCBpbiB3b3Jrc3BhY2UuDQoNCnggPSBjKDUsIDcpDQoNCiMgRmluZCB0aGUgc3VtIG9mIHRoZSBlbGVtZW50cyBvZiB0aGUgdmVjdG9yIHguDQoNCiMgLi4uIHlvdXIgY29kZSBoZXJlLCBpZiB5b3Ugd2lzaCAuLi4NCg0KYW5zd2VyLjEgPSBzdW0oeCkjIC4uLiBzZXQgdGhpcyB2YXJpYWJsZSBjb3JyZWN0bHkgKHBsZWFzZSBkb24ndCB1c2UgIjUrNyINCiMgb3IgIjEyIjogdXNlIG1vcmUgZ2VuZXJhbCBjb2RlIHRoYXQgd2lsbCB3b3JrIGV2ZW4gaWYgeA0KIyB3ZXJlIGNoYW5nZWQpDQoNCmNhdChzZXA9IiIsICJzdW0gb2YgZWxlbWVudHMgb2YgeCBpcyAiLCBhbnN3ZXIuMSwgIlxuIikNCg0KIyBXcml0ZSBjb2RlIHRvIGdlbmVyYXRlIHR3byByYW5kb20gbnVtYmVycyBmcm9tIE4oMCwgMSkgYW5kIHJlcG9ydA0KIyB0aGVpciBzdW0uDQoNCiMgLi4uIHlvdXIgY29kZSBoZXJlLCBpZiB5b3Ugd2lzaCAuLi4NCg0KIyB3ZSBuZWVkIHRvIHVzZSB0aGUgcm5vcm0gZnVuY3Rpb24gaW4gb3JkZXIgdG8gZ2V0IHRoZSByYW5kb20gbnVtYmVyDQpyYW5kID0gcm5vcm0obiA9IDIsbWVhbiA9IDAsc2QgPSAxKQ0KDQphbnN3ZXIuMiA9IHN1bShyYW5kKSAjIC4uLiBzZXQgdGhpcyB2YXJpYWJsZSBjb3JyZWN0bHkNCg0KY2F0KHNlcD0iIiwgInN1bSBvZiB0d28gcmFuZG9tIE4oMCwgMSkgbnVtYmVycyBpcyAiLCBhbnN3ZXIuMiwgIlxuIikNCmBgYA0KDQo=