1:10
1:10 -> a
a
1.3:10
1.3:10 -> b
a
b
ls.str()
c(4, -2, 3^2)
c(4, -2, 3^2) -> c
c
c(a, b ) -> d 
d
( c(a, b ) -> d )
nf <- c(1,1)
nf
nf <- rep(1, 2)
nf
rep(d, 2) 
seq(0, 100, by=1)
seq(0, 100, by=5)
seq(0, 100, len=100)
seq(0, 100, len=101)
length( seq(0, 100, len=101) )
x <- (1:100)^2
x
mean(x)
mean(x, digit=12)
sum(x) / length(x) 
for(i in 1:length(x)) print(x)
for(i in 1:length(x)) print(x[i])
for(i in 1:20) print(x[i])
s= 0; for(i in 1:length(x)) s <- s+x[i] 
s
s= 0; for(i in 1:length(x)) s <- s+x[i] ; s/length(x)
s= 0; for(xi in x) s <- s+xi ; s/length(x)   
nomi <- c('giaCOMO', 'carlo', 'andrea')
nomi
for(i in i:3) print(nomi[i])
for(i in i:3) print(nomi[i])
for(i in 1:3) print(nomi[i])
for(chi in nomi) print(chi)
source("media.R")
ls()
ls.str()
media
media()
v = 1:3
v
media(c)
media(v)
media(v) -> ris
ris
media(v)
media
source("media.R")
media
media(x)
media(x^2)
q()