개요

1단계

실제

샘플 코드

cat("<script type=\"text/javascript\" src=\"https://www.google.com/jsapi\"></script><div id='chart'></div>")
cat("<textarea id=\"koko0\">") 
f <- function(x) 1 / (1 + exp(-3 - 0.5 * x))
x <- seq(0, 10, 0.1);
cat(x)
cat("</textarea>")
cat("<textarea id=\"koko1\">")
y <- f(jitter(x, amount = 0.2))
cat(y)
cat("</textarea>")
cat("<textarea id=\"koko2\">")
result <- nls(y ~ a / (1 + exp(-b - c * x)), start = c(a = 2, b = 1, c = 0.1))
predict.c <- predict(result)
cat(predict.c)
#plot(x, y, ann = F, xlim = c(0, 10), ylim = c(0.95, 1));   
#par(new = T)
#plot(x, predict.c, type = "l", xlim = c(0, 10), ylim = c(0.95, 1))
cat("</textarea>")
cat("<script type=\"text/javascript\" src=\"http://jsdo.it/ohisama1/A9Yl.js\"></script>")

2단계

실제

사진