r语言提取cvs数据_R语言 第3章 R语言常用的数据管理（9）

###计算标准差sd2function(x)}{ #异常处理，当输入的数据不是数值型时报错if(!is.numeric(x)){
    stop(“the input data must be numeric!\n”)}#异常处理，当仅输入一个数据时，告知不能计算标准差if(length(x)==1){
    stop(“can not compute sd for one number,a numeric vector required.\n”)

#初始化一个临时向量，保存循环结果

#求每个值与平均值的平方

x2#求该向量的平均值meanxx)#循环for(i in 1:length(x)){
    xnx[i]-meanxx2[i]2}#求总平和sum2#计算标准差sdsqrt(sum2/#返回值return(sd)}

##程序的检验

#正常情况

sd2(c(2,6,4,9,12))

#一个数值的情况

sd2(3)

#输入数据不为数值类型时

sd2(c(“1”,”2”))

课后练习1

1)查看数据集CO2中的变量名称，并将变量Treatment的名称更改为Treat。