paizaのRでプロットがしたい。
概要
paizaのRは、plotが動かん。でもプロットしたい。
手順1
javascriptを挟んで、プリントアウト。
実際
サンプルコード
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
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>")
出力をコピーして、jsdoに貼り付ける。
実際
写真
Author And Source
この問題について(paizaのRでプロットがしたい。), 我々は、より多くの情報をここで見つけました https://qiita.com/ohisama@github/items/a594ec05d13e6b4588bd著者帰属:元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .