Swirl: μ†Œμš©λŒμ΄ νŒ¨ν‚€μ§€, #9 κΈ°λŠ₯ 였λ₯˜

에 λ§Œλ“  2016λ…„ 04μ›” 05일  Β·  12μ½”λ©˜νŠΈ  Β·  좜처: swirldev/swirl

FunctionsλΌλŠ” μ†Œμš©λŒμ΄μ—μ„œ 9κ³Όλ₯Ό μ‹€ν–‰ν•˜λ €κ³  ν•©λ‹ˆλ‹€. 이 λ‹¨μ›μ—μ„œλŠ” μ•„λž˜ μ½”λ“œλ₯Ό μ‚¬μš©ν•˜μ—¬ ν•¨μˆ˜λ₯Ό λ§Œλ“  λ‹€μŒ submit()을 μ‚¬μš©ν•˜μ—¬ ν•΄λ‹Ή μ½”λ“œλ₯Ό μ œμΆœν•˜λ„λ‘ μš”μ²­ν•©λ‹ˆλ‹€. μ½”λ“œλ₯Ό μ˜¬λ°”λ₯΄κ²Œ μž…λ ₯ν–ˆμ§€λ§Œ submit() ν•¨μˆ˜λ₯Ό μ‚¬μš©ν•  λ•Œ #이 x μ•žμ— μ–΄λ–»κ²Œλ“  μ‚½μž…λ©λ‹ˆλ‹€(λ‚΄ μ €μž₯된 μ½”λ“œ λ‚΄μ—μ„œ). #xκ°€ μžˆλŠ” μ½”λ“œκ°€ μ˜¬λ°”λ₯΄μ§€ μ•Šμ•„ Coursera 과제λ₯Ό μ™„λ£Œν•  수 μ—†μŠ΅λ‹ˆλ‹€.

μ§€λ£¨ν•œ ν•¨μˆ˜ <- ν•¨μˆ˜(x) {
NS
}

R μŠ€νŠœλ””μ˜€ 0.99.893(3.2.3)
μœˆλ„μš° 10 ν™ˆ 64λΉ„νŠΈ

κ°€μž₯ μœ μš©ν•œ λŒ“κΈ€

μ•ˆλ…•ν•˜μ„Έμš” @sbriones μž…λ‹ˆλ‹€ .

λ‚˜λŠ” 같은 λ¬Έμ œκ°€ μžˆμ—ˆλ‹€ ... λ‚΄κ°€ μš΄λ™μ„ λ‹€μ‹œ 읽을 λ•Œ 그것은 λ§ν•œλ‹€

submit()을 μž…λ ₯ν•˜κΈ° 전에 슀크립트λ₯Ό μ €μž₯ν•΄μ•Ό ν•©λ‹ˆλ‹€."

Swirl은 μžλ™μœΌλ‘œ 슀크립트λ₯Ό μƒμ„±ν•˜μ§€λ§Œ 그렇지 μ•Šμ€ 경우. κ·Έλƒ₯ λ³΅μ‚¬ν•˜μ‹œλ©΄ λ©λ‹ˆλ‹€...

μ§€λ£¨ν•œ ν•¨μˆ˜ - ν•¨μˆ˜(x) {
NS
}
μ œμΆœν•˜λ‹€()

...R의 상단 λΆ€λΆ„μœΌλ‘œ. 그런 λ‹€μŒ 파일둜 μ΄λ™ν•˜μ—¬ μ €μž₯ν•˜κ±°λ‚˜ λ‹€λ₯Έ μ΄λ¦„μœΌλ‘œ μ €μž₯ν•˜κ³  슀크립트λ₯Όboring_function으둜 μ €μž₯ν•©λ‹ˆλ‹€.

λ‚˜λ₯Ό μœ„ν•΄ 그것은 νš¨κ³Όκ°€ μžˆμ—ˆκ³ , λ‹Ήμ‹ μ—κ²Œλ„ 희망이 μžˆμŠ΅λ‹ˆλ‹€.

λͺ¨λ“  12 λŒ“κΈ€

λ‹€μŒμ„ μ‹œλ„ν•˜μ‹­μ‹œμ˜€.

  1. bye() λ₯Ό μ‚¬μš©ν•˜μ—¬ μˆ˜μ—…μ„ μ’…λ£Œν•©λ‹ˆλ‹€.
  2. μ—΄λ € μžˆλŠ” λͺ¨λ“  R 슀크립트 νŽΈμ§‘ 창을 λ‹«μŠ΅λ‹ˆλ‹€.
  3. R λ˜λŠ” RStudioλ₯Ό λ‹«μŠ΅λ‹ˆλ‹€.
  4. R λ˜λŠ” RStudioλ₯Ό μ—½λ‹ˆλ‹€.
  5. μˆ˜μ—…μ„ λ‹€μ‹œ μ‹œμž‘ν•©λ‹ˆλ‹€.

κ·Έλž˜λ„ λ¬Έμ œκ°€ ν•΄κ²°λ˜μ§€ μ•ŠμœΌλ©΄ μ•Œλ €μ£Όμ‹­μ‹œμ˜€.

λ‚˜λŠ” 그것을 μ‹œλ„ν–ˆμ§€λ§Œ μž‘λ™ν•˜μ§€ μ•Šμ•˜λ‹€. λ˜ν•œ μ†Œμš©λŒμ΄λ₯Ό μ‹œμž‘ν•˜κΈ° 전에 "options(editor = "internal")" λͺ…령을 μ‹€ν–‰ν•˜λ €κ³  μ‹œλ„ν–ˆμ§€λ§Œ μž‘λ™ν•˜μ§€ μ•Šμ•˜μŠ΅λ‹ˆλ‹€. κ·Έ 쀑 아무 것도 μž‘λ™ν•˜μ§€ μ•Šμ•˜κΈ° λ•Œλ¬Έμ— R Studioλ₯Ό μ œκ±°ν•˜κ³  λ‹€μ‹œ μ„€μΉ˜ν–ˆλŠ”λ° 원인이 된 μž‘μ—…μ„ μˆ˜ν–‰ν–ˆμ§€λ§Œ μ—¬μ „νžˆ μž‘λ™ν•˜μ§€ μ•ŠμŠ΅λ‹ˆλ‹€.

@tgsutterby options()$editor 의 결과둜 무엇을 μ–»μŠ΅λ‹ˆκΉŒ?

[1] "λ‚΄λΆ€"

RStudioλ₯Ό λ‹€μ‹œ μ‹œμž‘ν•˜λ©΄ options()$editor 결과둜 무엇을 얻을 수 μžˆμŠ΅λ‹ˆκΉŒ? λ˜ν•œ sessionInfo() 의 결과둜 무엇을 μ–»μŠ΅λ‹ˆκΉŒ?

이것은 λ‚΄κ°€ R Studioλ₯Ό μ—΄μž ... λ³„λ‘œ μ˜³μ§€ μ•Šμ€ 것 κ°™μŠ΅λ‹ˆλ‹€. λ‚΄ νŽΈμ§‘κΈ°μ— λ¬Έμ œκ°€ μžˆλŠ” κ²ƒμΌκΉŒμš”?

ν•¨μˆ˜(이름, 파일, 제λͺ©)
{
if (is.null(이름) || is.function(이름)) {
if (is.null(이름)) {
if (!is.null(파일) && nzchar(파일))
targetFile <- 파일
else targetFile <- 슀크래치 파일
}
또 λ‹€λ₯Έ {
functionSrc <- .rs.deparseFunction(이름, μ°Έ, 거짓)
targetFile <- 슀크래치 파일
writeLines(functionSrc, targetFile)
}
if (.Call("rs_editFile", targetFile)) {
newFunc <- try(eval.parent(parse(targetFile)), μžλ™ = TRUE)
if (inherits(newFunc, "μ‹œλ„ 였λ₯˜")) {
stop(newFunc, ""λ₯Ό μ‚¬μš©ν•˜μ—¬ 였λ₯˜ μˆ˜μ •μ„ μ‹œλ„ν•  수 μžˆμŠ΅λ‹ˆλ‹€.
제λͺ©, " = νŽΈμ§‘()")
}
λ°˜ν™˜(newFunc)
}
또 λ‹€λ₯Έ {
stop("ν•¨μˆ˜λ₯Ό μˆ˜μ •ν•˜λŠ” λ™μ•ˆ 였λ₯˜κ°€ λ°œμƒν–ˆμŠ΅λ‹ˆλ‹€ '", 이름,
"'")
}
}
else edit(이름, 파일, 제λͺ©, νŽΈμ§‘κΈ° = defaultEditor)
}

그리고 이것은 λ‚΄κ°€ sessionInfo()μ—μ„œ 얻은 κ²ƒμž…λ‹ˆλ‹€.

R 버전 3.2.3(2015-12-10)
ν”Œλž«νΌ: x86_64-w64-mingw32/x64(64λΉ„νŠΈ)
μ‹€ν–‰: Windows >= 8 x64(λΉŒλ“œ 9200)

μž₯μ†Œ:
[1] LC_COLLATE=μ˜μ–΄_λ―Έκ΅­.1252 LC_CTYPE=μ˜μ–΄_λ―Έκ΅­.1252
[3] LC_MONETARY=μ˜μ–΄_λ―Έκ΅­.1252 LC_NUMERIC=C
[5] LC_TIME=μ˜μ–΄_λ―Έκ΅­.1252

μ²¨λΆ€λœ κΈ°λ³Έ νŒ¨ν‚€μ§€:
[1] 톡계 κ·Έλž˜ν”½ grDevices utils 데이터 μ„ΈνŠΈ 방법 기반

λ„€μž„μŠ€νŽ˜μ΄μŠ€λ₯Ό 톡해 λ‘œλ“œλ¨(μ—°κ²°λ˜μ§€ μ•ŠμŒ):
[1] 도ꡬ_3.2.3

λ˜ν•œ μ–΄λ–€ λ²„μ „μ˜ μ†Œμš©λŒμ΄λ₯Ό μ‚¬μš©ν•˜κ³  μžˆμŠ΅λ‹ˆκΉŒ? packageVersion("swirl") 확인할 수 μžˆμŠ΅λ‹ˆλ‹€.

R ν”„λ‘œκ·Έλž˜λ° ν•¨μˆ˜ μˆ˜μ—…μ—λ„ λ¬Έμ œκ°€ μžˆμŠ΅λ‹ˆλ‹€. mean() ν•¨μˆ˜λ₯Ό μ„±κ³΅μ μœΌλ‘œ μ‚¬μš©ν•œ ν›„ 슀크립트λ₯Ό μˆ˜μ •ν•˜λΌλŠ” λ©”μ‹œμ§€κ°€ ν‘œμ‹œλ˜μ§€λ§Œ κ·Έ μ΄ν›„μ—λŠ” 정보가 λˆ„λ½λœ 것 κ°™μŠ΅λ‹ˆλ‹€.

> mean(c(2, 4, 5))
[1] 3.666667

| You are doing so well!

  |=============                                                                                                                   |  10%

| Functions usually take arguments which are variables that the function operates on. For example, the mean() function takes a vector as
| an argument, like in the case of mean(c(2,6,8)). The mean() function then adds up all of the numbers in the vector and divides that sum
| by the length of the vector.

...

  |================                                                                                                                |  12%

| In the following question you will be asked to modify a script that will appear as soon as you move on from this question. When you
| have finished modifying the script, save your changes to the script and type submit() and the script will be evaluated. There will be
| some comments in the script that opens up, so be sure to read them!

...

  |==================                                                                                                              |  14%

| The last R expression to be evaluated in a function will become the return value of that function. We want this function to take one
| argument, x, and return x without modifying it. Delete the pound sign so that x is returned without any modification. Make sure to save
| your script before you type submit().

Error in editor(file = file, title = title) : 
  argument "name" is missing, with no default

| Leaving swirl now. Type swirl() to resume.
`

μ†Œμš©λŒμ΄(bye())λ₯Ό μ’…λ£Œν•˜κ³  μ—΄λ € μžˆλŠ” λͺ¨λ“  R 슀크립트 νŽΈμ§‘ 창을 λ‹«κ³  RStudioλ₯Ό λ‹€μ‹œ μ‹œμž‘ν•˜κ³  μˆ˜μ—…μ„ λ‹€μ‹œ μ‹œμž‘ν–ˆμŠ΅λ‹ˆλ‹€.

#434 μ°Έμ‘°
2016λ…„ 4μ›” 20일 μˆ˜μš”μΌ μ˜€ν›„ 12μ‹œ 15뢄에 ccoat [email protected]μ—μ„œ λ‹€μŒκ³Ό 같이 μž‘μ„±ν–ˆμŠ΅λ‹ˆλ‹€.

R ν”„λ‘œκ·Έλž˜λ° ν•¨μˆ˜ μˆ˜μ—…μ—λ„ λ¬Έμ œκ°€ μžˆμŠ΅λ‹ˆλ‹€. 후에
mean() ν•¨μˆ˜λ₯Ό μ„±κ³΅μ μœΌλ‘œ μ‚¬μš©ν•˜λ©΄ 슀크립트λ₯Ό μˆ˜μ •ν•˜λΌλŠ” λ©”μ‹œμ§€κ°€ λ‚˜νƒ€λ‚©λ‹ˆλ‹€.
ν•˜μ§€λ§Œ κ·Έ 이후에 정보가 λˆ„λ½λœ 것 κ°™μŠ΅λ‹ˆλ‹€.

평균(c(2, 4, 5))
[1] 3.666667

| 당신은 λ„ˆλ¬΄ μž˜ν•˜κ³  μžˆμŠ΅λ‹ˆλ‹€!

|============== | 10%

| ν•¨μˆ˜λŠ” 일반적으둜 ν•¨μˆ˜κ°€ μž‘λ™ν•˜λŠ” λ³€μˆ˜μΈ 인수λ₯Ό μ·¨ν•©λ‹ˆλ‹€. 예λ₯Ό λ“€μ–΄, mean() ν•¨μˆ˜λŠ” 벑터λ₯Ό λ‹€μŒκ³Ό 같이 μ·¨ν•©λ‹ˆλ‹€.
| mean(c(2,6,8))의 κ²½μš°μ™€ 같은 인수. 그런 λ‹€μŒ mean() ν•¨μˆ˜λŠ” λ²‘ν„°μ˜ λͺ¨λ“  숫자λ₯Ό λ”ν•˜κ³  κ·Έ 합계λ₯Ό λ‚˜λˆ•λ‹ˆλ‹€.
| λ²‘ν„°μ˜ 길이둜

...

|================= | 12%

| λ‹€μŒ μ§ˆλ¬Έμ—μ„œ 이 μ§ˆλ¬Έμ—μ„œ λ„˜μ–΄κ°€μž 마자 λ‚˜νƒ€λ‚  슀크립트λ₯Ό μˆ˜μ •ν•˜λΌλŠ” λ©”μ‹œμ§€κ°€ ν‘œμ‹œλ©λ‹ˆλ‹€. λ•Œλ₯Ό
| 슀크립트 μˆ˜μ •μ„ μ™„λ£Œν•˜κ³  μŠ€ν¬λ¦½νŠΈμ— λŒ€ν•œ λ³€κ²½ 사항을 μ €μž₯ν•˜κ³  submit()을 μž…λ ₯ν•˜λ©΄ μŠ€ν¬λ¦½νŠΈκ°€ ν‰κ°€λ©λ‹ˆλ‹€. μžˆμ„ 것이닀
| μ—΄λ¦¬λŠ” μŠ€ν¬λ¦½νŠΈμ— λͺ‡ 가지 주석이 μžˆμœΌλ―€λ‘œ λ°˜λ“œμ‹œ μ½μœΌμ‹­μ‹œμ˜€!

...

|=================== | 14%

| ν•¨μˆ˜μ—μ„œ 평가될 λ§ˆμ§€λ§‰ R ν‘œν˜„μ‹μ€ ν•΄λ‹Ή ν•¨μˆ˜μ˜ λ°˜ν™˜ 값이 λ©λ‹ˆλ‹€. μš°λ¦¬λŠ” 이 ν•¨μˆ˜κ°€
| 인수 xλ₯Ό μˆ˜μ •ν•˜μ§€ μ•Šκ³  xλ₯Ό λ°˜ν™˜ν•©λ‹ˆλ‹€. xκ°€ μˆ˜μ • 없이 λ°˜ν™˜λ˜λ„λ‘ νŒŒμš΄λ“œ 기호λ₯Ό μ‚­μ œν•©λ‹ˆλ‹€. κΌ­ μ €μž₯ν•˜μ„Έμš”
| submit()을 μž…λ ₯ν•˜κΈ° 전에 슀크립트.

νŽΈμ§‘κΈ° 였λ₯˜(파일 = 파일, 제λͺ© = 제λͺ©):
인수 "이름"이 λˆ„λ½λ˜μ—ˆμœΌλ©° 기본값이 μ—†μŠ΅λ‹ˆλ‹€.

| μ§€κΈˆ μ†Œμš©λŒμ΄λ₯Ό λ– λ‚©λ‹ˆλ‹€. λ‹€μ‹œ μ‹œμž‘ν•˜λ €λ©΄ μ†Œμš©λŒμ΄()λ₯Ό μž…λ ₯ν•˜μ„Έμš”.
`

λ‚˜λŠ” μ†Œμš©λŒμ΄λ₯Ό μ’…λ£Œν•˜κ³ (bye()) μ—΄λ € μžˆλŠ” λͺ¨λ“  R 슀크립트 νŽΈμ§‘ 창을 λ‹«μ•˜μŠ΅λ‹ˆλ‹€.
RStudioλ₯Ό λ‹€μ‹œ μ‹œμž‘ν•˜κ³  μˆ˜μ—…μ„ λ‹€μ‹œ μ‹œμž‘ν–ˆμŠ΅λ‹ˆλ‹€.

β€”
당신이 λŒ“κΈ€μ„ λ‹¬μ•˜κΈ° λ•Œλ¬Έμ— 이것을 λ°›λŠ” κ²ƒμž…λ‹ˆλ‹€.

이 이메일에 직접 λ‹΅μž₯ν•˜κ±°λ‚˜ GitHubμ—μ„œ ν™•μΈν•˜μ„Έμš”.
https://github.com/swirldev/swirl/issues/445#issuecomment -212496251

ꡉμž₯ν•©λ‹ˆλ‹€, κ°μ‚¬ν•©λ‹ˆλ‹€ @seankross!

λ‚˜λŠ” 같은 λ¬Έμ œκ°€ 있고 μ†”λ£¨μ…˜μ„ μ‹œλ„ν–ˆμ§€λ§Œ μž‘λ™ν•˜μ§€ λͺ»ν–ˆμŠ΅λ‹ˆλ‹€.
λ‚˜λŠ” 항상:
"ν•¨μˆ˜μ—μ„œ 평가될 λ§ˆμ§€λ§‰ R ν‘œν˜„μ‹μ€
| κ·Έ κΈ°λŠ₯. μš°λ¦¬λŠ” 이 ν•¨μˆ˜κ°€ ν•˜λ‚˜μ˜ 인수 xλ₯Ό μ·¨ν•˜κ³  xλ₯Ό λ°˜ν™˜ν•˜μ§€ μ•ŠκΈ°λ₯Ό μ›ν•©λ‹ˆλ‹€.
| μˆ˜μ •ν•©λ‹ˆλ‹€. xκ°€ μˆ˜μ • 없이 λ°˜ν™˜λ˜λ„λ‘ νŒŒμš΄λ“œ 기호λ₯Ό μ‚­μ œν•©λ‹ˆλ‹€.
| submit()을 μž…λ ₯ν•˜κΈ° 전에 슀크립트λ₯Ό μ €μž₯ν•΄μ•Ό ν•©λ‹ˆλ‹€.

μ§€λ£¨ν•œ ν•¨μˆ˜ <- ν•¨μˆ˜(x) {

  • NS
  • }
    μ œμΆœν•˜λ‹€()

| 슀크립트 μ†Œμ‹± 쀑...

| λ‚΄κ°€ 찾던 λ°”λ‘œ κ·Έ 것이 μ•„λ‹ˆλ‹€. λ‹€μ‹œ μ‹œλ„ν•˜μ‹­μ‹œμ˜€.

| ν•¨μˆ˜μ˜ λ§ˆμ§€λ§‰ ν‘œν˜„μ‹μ΄ xκ°€ λ˜λ„λ‘ νŒŒμš΄λ“œ 기호λ₯Ό μ‚­μ œν•΄μ•Ό ν•©λ‹ˆλ‹€."

μ•ˆλ…•ν•˜μ„Έμš” @sbriones μž…λ‹ˆλ‹€ .

λ‚˜λŠ” 같은 λ¬Έμ œκ°€ μžˆμ—ˆλ‹€ ... λ‚΄κ°€ μš΄λ™μ„ λ‹€μ‹œ 읽을 λ•Œ 그것은 λ§ν•œλ‹€

submit()을 μž…λ ₯ν•˜κΈ° 전에 슀크립트λ₯Ό μ €μž₯ν•΄μ•Ό ν•©λ‹ˆλ‹€."

Swirl은 μžλ™μœΌλ‘œ 슀크립트λ₯Ό μƒμ„±ν•˜μ§€λ§Œ 그렇지 μ•Šμ€ 경우. κ·Έλƒ₯ λ³΅μ‚¬ν•˜μ‹œλ©΄ λ©λ‹ˆλ‹€...

μ§€λ£¨ν•œ ν•¨μˆ˜ - ν•¨μˆ˜(x) {
NS
}
μ œμΆœν•˜λ‹€()

...R의 상단 λΆ€λΆ„μœΌλ‘œ. 그런 λ‹€μŒ 파일둜 μ΄λ™ν•˜μ—¬ μ €μž₯ν•˜κ±°λ‚˜ λ‹€λ₯Έ μ΄λ¦„μœΌλ‘œ μ €μž₯ν•˜κ³  슀크립트λ₯Όboring_function으둜 μ €μž₯ν•©λ‹ˆλ‹€.

λ‚˜λ₯Ό μœ„ν•΄ 그것은 νš¨κ³Όκ°€ μžˆμ—ˆκ³ , λ‹Ήμ‹ μ—κ²Œλ„ 희망이 μžˆμŠ΅λ‹ˆλ‹€.

이 νŽ˜μ΄μ§€κ°€ 도움이 λ˜μ—ˆλ‚˜μš”?
0 / 5 - 0 λ“±κΈ‰