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
Estatística básica cálculo de medidas de posição e de dispersão2
Get a variable name in string format
US births
16-09-2020IntPoli
MAX
factor
Adding text to bar plot bars -- elegantly!
5 # SUMMARY PART A
23-09-2020IntNewtform
03-08-2020-Integral-Numerica