R-0, esempi introduttivi:
funz. di 2 variab, istogr. e boxplot, derivate, grafici di più funzioni.
R-1: approssimaz., frazioni, num. complessi, fattoriale, coeff. binom., :, operatori log.,
==, function, {}, var.locali-globali-parametri,
ifelse, plot, abline, readLines, read.table, csv, dev.new, ylim, axTicks, $,
[ ], ls, rm, c, length, range, sort, sum, prod, seq,
barplot.
R-2: plot type="n" fg xaxt yaxt, curve, add, copiare comandi ^ v, help, ricorsione,
for, NULL, min, max, quote, a capo, seq, rep,
sort, mean, median, stem-and-leaf, hist, [x], probability=TRUE, freq=FALSE,
right=FALSE, main, par, mai,
nclass, colors, lines, body, D, eval, integrate.
R-3: dev.off, summary, hist$mids, hist$density, sd, scan, boxplot, runif, floor,
dnorm, rnorm, text, while, TRUE, subset, cor, lm
R: indice per voci, WolframAlpha
Attività con R - 0
Apri e incolla in R quanto segue:
x <- y <- seq(-10, 10, len = 30)
f <- function(x,y) { r <- sqrt(x^2+y^2); 10 * sin(r)/r }
z <- outer(x, y, f)
persp(x,y,z, theta=30, phi=30, expand=0.5, col="yellow", shade=0.3)
Non ci interessa, per ora, vedere in dettaglio i comandi: abbiamo
fatto il grafico per x ed y tra -10 e 10, con un reticolato 30×30,
di una funzione di 2 variabili, visto da un particolare punto di
vista e opportunamente colorato e sfumato.
Copia e
incolla quanto segue:
alu <- c(156,172,162,150,167,157,171,157,162,164,
157,165,163,165,166,160,163,162,155)
length(alu); summary(alu)
par(mfrow=c(2,1), mar=c(3,3,2,1))
hist(alu, col="grey", right=FALSE)
boxplot(alu, horizontal=TRUE, col="yellow")
Abbiamo considerato un tot di numeri (le altezze delle alunne di
una classe), ne abbiamo fatto una rapida analisi statistica, abbiamo aperto e suddiviso in due parti (2 righe ed 1 colonna,
con opportuni margini) un foglio su cui abbiamo tracciato l'istogramma e il boxplot relativi.
Copia e incolla quanto segue:
fx <- expression(x^2+x^3+sin(2*x)) gx <-D(fx,"x"); hx <-D(gx,"x"); kx <-D(hx,"x") gx; hx; kx
Abbiamo calcolato derivata prima, seconda e terza di una funzione di una variabile.
Facciamo il grafico della funzione e di queste sue derivate:
f <- function(x) eval(fx); g <- function(x) eval(gx) h <- function(x) eval(hx); k <- function(x) eval(kx) dev.new(); plot(f,-3,3); abline(v=axTicks(1), h=axTicks(2), col="grey", lty=3) curve(g,add=TRUE,col="blue"); curve(h,add=TRUE,col="red") curve(k,add=TRUE,col="green")
Abbiamo definito funzioni usando i termini precedenti e ne abbiamo tracciato (in una nuova finestra) i grafici sovrapposti.