FunctionsλΌλ μμ©λμ΄μμ 9κ³Όλ₯Ό μ€ννλ €κ³ ν©λλ€. μ΄ λ¨μμμλ μλ μ½λλ₯Ό μ¬μ©νμ¬ ν¨μλ₯Ό λ§λ λ€μ submit()μ μ¬μ©νμ¬ ν΄λΉ μ½λλ₯Ό μ μΆνλλ‘ μμ²ν©λλ€. μ½λλ₯Ό μ¬λ°λ₯΄κ² μ λ ₯νμ§λ§ submit() ν¨μλ₯Ό μ¬μ©ν λ #μ΄ x μμ μ΄λ»κ²λ μ½μ λ©λλ€(λ΄ μ μ₯λ μ½λ λ΄μμ). #xκ° μλ μ½λκ° μ¬λ°λ₯΄μ§ μμ Coursera κ³Όμ λ₯Ό μλ£ν μ μμ΅λλ€.
μ§λ£¨ν ν¨μ <- ν¨μ(x) {
NS
}
R μ€νλμ€ 0.99.893(3.2.3)
μλμ° 10 ν 64λΉνΈ
λ€μμ μλνμμμ€.
bye()
λ₯Ό μ¬μ©νμ¬ μμ
μ μ’
λ£ν©λλ€.κ·Έλλ λ¬Έμ κ° ν΄κ²°λμ§ μμΌλ©΄ μλ €μ£Όμμμ€.
λλ κ·Έκ²μ μλνμ§λ§ μλνμ§ μμλ€. λν μμ©λμ΄λ₯Ό μμνκΈ° μ μ "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μΌλ‘ μ μ₯ν©λλ€.
λλ₯Ό μν΄ κ·Έκ²μ ν¨κ³Όκ° μμκ³ , λΉμ μκ²λ ν¬λ§μ΄ μμ΅λλ€.
κ°μ₯ μ μ©ν λκΈ
μλ νμΈμ @sbriones μ λλ€ .
λλ κ°μ λ¬Έμ κ° μμλ€ ... λ΄κ° μ΄λμ λ€μ μ½μ λ κ·Έκ²μ λ§νλ€
Swirlμ μλμΌλ‘ μ€ν¬λ¦½νΈλ₯Ό μμ±νμ§λ§ κ·Έλ μ§ μμ κ²½μ°. κ·Έλ₯ 볡μ¬νμλ©΄ λ©λλ€...
...Rμ μλ¨ λΆλΆμΌλ‘. κ·Έλ° λ€μ νμΌλ‘ μ΄λνμ¬ μ μ₯νκ±°λ λ€λ₯Έ μ΄λ¦μΌλ‘ μ μ₯νκ³ μ€ν¬λ¦½νΈλ₯Όboring_functionμΌλ‘ μ μ₯ν©λλ€.
λλ₯Ό μν΄ κ·Έκ²μ ν¨κ³Όκ° μμκ³ , λΉμ μκ²λ ν¬λ§μ΄ μμ΅λλ€.