x <-  1:50
1:10  -> x
x
sum(x)
sum(x^3)
sum(log(x))
s = 0
x[2]
for(i in 1:10) s <- s + x[i]
s
for(i in 1:10) s <- s + x[i]
s
s=0; for(i in 1:10) s <- s + x[i]
s=0; for(i in 1:10) { s <- s + x[i] ; print(s) }   
s=0; for(i in 1:10) s <- s + x[i] ; print(s)    
xl = log(x)
xl+
xl
s=0; for(i in 1:10) s <- s + xl[i] ; print(s)    
x <- 1:100
x
xl = log(x)
xl
s=0; for(i in 1:length(xl)) s <- s + xl[i] ; print(s)    
length(xl)
length(x)
s=0; k=0;  while(s < 300) { k=k+1; s <- s + xl[i] }       
k
q()