a<-c(-3,-2,-1,1,2,3)
sum(a)
abs(a)
as<-a[4:6]
sqrt(as)
max(a)
min(a)
range(a)
exp(a)
log(as)
log10(as)