1、求给r语言计算向量各值与一常数差值的平方和
定向量中偶数的个数。
2、用repeat、while和for计算从1~100的所有整数的平方和。
3、把一个整数型向量中所有3的整数倍用0替代。
4、编写函数stat，要求该函数同时计算均值、最大值、最小值、标准差、峰度和偏度。(提示：R默认不提供计算峰度和偏度，可以自编公式或者使用fBasics包。加载fBasics包，可使用skewness(x)计算x的偏度，kurtisis(x)计算x的峰度。)
2、生成自由度为2的t分布的100个随机数t，并通过函数stat计算t的均值、最大值、最小值、标准差、峰度和偏度。
data<-seq(2,12,2)y<-matrix(data,nrow= 2,ncol=3,byrow=T/F)
#data是矩阵的元素，nrow指定行的维数，ncol指定列的维数，byrow=TRUE表明矩阵是按行填充，还是按列填充byrow=FALSE，默认按列填充。
#1.如果总体是自然数这样的等差数列，可以直接利用seq函数挑出奇数（或偶数）：n <- 1:100( ji <- seq(from=1,to=100,by=2) )( ou <- setdiff(n,ji) )rm(ji)rm(ou)#2.如果总体是杂乱无章的集合，可以写个小函数判断某个数的奇偶：jishu <- function(x){ifelse(x%%2 ==0,F,T)}( ji <- n[jishu(n)] )( ou <- n[!jishu(n)] )#通过上面的任一一种方法将总体的奇数偶数区分开，接下来就可以使用sample函数抽样了：sample(ji,5)
