plot(1:20, pch=1:20)
plot(1:20, pch=1:5)
plot(1:20, pch=1:20)
plot(1:20, pch='*')
plot(1:20, pch='X')
plot(1:20, pch='W')
plot(1:20, pch=0:20)
plot(0:20, pch=0:20)
plot(0:20, pch=0:20, col=rainbow(21), cex=2 )
plot(0:20, pch=0:20, col=rev(rainbow(21)), cex=2 )
plot(0:20, pch=0:20, col=rainbow(21), cex=2 )
plot(0:20, pch=0:20, col=rev(rainbow(21)), cex=2 )
seq(0,1, by=0.2) -> x
x
seq(0-1,1, by=len=11) -> y
seq(0-1,1, len=11) -> y
y
x
c(x, y)
c(x, y) -> z
c(x,y,z)
locator(1)
locator(5) -> p
p
str(p)
x
i <- 1:5
ls.str()
c(i, x)  
c(i, x)  -> v
ls.str()
l <- list(2, 3, 'pippo')
l
l <- list(2, 3, 'pippo', x)
l
ls.str()
l
l[[1]]
l[[4]]
l[[3]]
t1 <- Sys.time()
( t1 <- Sys.time() )
( t2 <- Sys.time() )
t1
t2
t2 - t1 
ls.str()
t2 - t1 
( t3 <- Sys.time() )
t2 - t1 
t3 - t1 
as.numeric( t2 - t1 )
q()