setwd('D:/18120229')
print(getwd())
list.files()
data = read.csv('data01.csv',header = )
print(data)
attach(data)
mean(FPSA)
mean(TPSA)
var(FPSA)
var(TPSA)
median(FPSA)
median(TPSA)
line(FPSA,TPSA)
plot(FPSA,TPSA,'o')


v1 = c(2,4,6,8,10)
v2 = c(1,3,5,7,9)
v3 = c(11,12,13,14,15)
matrix(c(v1,v2,v3),byrow=TRUE)

x = c(1,2,5,7,-3,0,5,1,5,6)
y = c(2,2,0,-5,7,8,11,9,3,2)
x + y
x*y
x - y
z = x[x%%2 == 0]
z
t = y[y%%2 != 0]
t
d = x[x > 0]
d
d = y[y>0]
d
d = sort(x, decreasing = FALSE)
d