Skip to content

Instantly share code, notes, and snippets.

@kosugitti
Created February 3, 2016 00:41
Show Gist options
  • Save kosugitti/c47524afcbc5720d51c3 to your computer and use it in GitHub Desktop.
Save kosugitti/c47524afcbc5720d51c3 to your computer and use it in GitHub Desktop.
par(mfrow=c(2,2))
x <- seq(-4,4,0.1)
plot(exp(x),main="eの累乗",xaxt="n",xlab="")
axis(side=1, at=1:length(x), labels=x) # ラベルの描画
plot(1/exp(x),main="ひっくり返す",xaxt="n",xlab="")
axis(side=1, at=1:length(x), labels=x) # ラベルの描画
plot(1/(1+exp(-x)),main="マイナスを掛ける",xaxt="n",xlab="")
axis(side=1, at=1:length(x), labels=x) # ラベルの描画
plot(1/(1+2.7^(-x)),main="近似値は2.7",xaxt="n",xlab="")
axis(side=1, at=1:length(x), labels=x) # ラベルの描画
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment