R语言——第二课

'判断是否有缺失值'
z = c(1:3,NA)
is.na(z) # 返回逻辑向量
NaN # not a number,1/0就会这样显示



'字符串'
x = 'UIBE'
typeof(x)
x1 = c('I','am','a','student')
length(x1) # 4
x2 = paste('I','am','a','student',sep = '') # 拼接函数，sep是拼接的间隔符
length(x2) # 1
z = paste(c('x','y'),1:10,sep = '') # "x1"  "y2"  "x3"  "y4"  "x5"  "y6"  "x7"  "y8"  "x9"  "y10"
# 拼接字符串与变量
age = 35
p = paste('My age is',age)



'替换'
x = 1:100
x[2*(0:49)+1] = 50
x = c(-2:2,NA)
(x+1)[(!is.na(x) & x>0)]
c('x','y')[rep(c(1,2,2,1),times=4)] # "x" "y" "y" "x" "x" "y" "y" "x" "x" "y" "y" "x" "x" "y" "y" "x"
x = 1:10
y = x[-(1:5)] # 负号表示去除



'命名'
fruit = c(5,10,1,20)
names(fruit) = c('orange','banana','apple','peach') # 如果不加peach，会把20赋给<NA>



'利用指针变绝对值'
x = c(1,-1,3,4,-4,5,6,-9)
x[x<0] = -x[x<0]
x



'练习第一题'
x = c(29,3,6,11,0,41,101)
# 1.a
x[4]
# 1.b
length(x)
# 1.c
x[c(4,7)]
# 1.d
y = x^2

'练习第二题'
xvals = seq(-2.5,2.5,by=0.02)
length(xvals)