Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Sine approximation
#R version 3.3.2 x <- 1:500 x <- pi * (x - min(x)) / (max(x) - min(x)) y <- 1.27323954 * x - 0.405284735 * x^2 z <- sin(x) y <- rep(c(y, -y), time = 2) z <- rep(c(z, -z), time = 2) plot(y, type = "l", col = "red", lwd = 2) lines(z, col = "blue", lwd = 2) legend("bottomleft", legend = c("Approximated sine", "Real sine"), col = c("red", "blue"), pch = c(20, 20))
run
|
edit
|
history
|
help
0
R2
ExDecaiEulerMin28-01-21
Tablet-Sprite-image-Interval
Hiring Activity
Desktop-Sprite-image-Interval
19-08-2020-SeidelSistema
Die sim
Sampling Distribution for the Wald-Wolfowitz 2-Sample Runs Test
Project2.Question1
Football weights