sum(1:100)
## [1] 5050
x<- 1:5
x
## [1] 1 2 3 4 5
y<- 5:1
y
## [1] 5 4 3 2 1
plot(x,y)
a<- xor(1:3, 0:2)
b<- xor(1:3, 0:2)
xor(a, b)
## [1] FALSE FALSE FALSE
#x1<-runif(50, 30, 1)
#y1<-runif(50, 20, 10)
#plot(x,y)
x1<-runif(50, 1, 30)
y1<-runif(50, 20, 30)
plot(x1, y1)