第一篇文章2022.12.2 R语言

问题：编写一个函数，输入变量为个数n。首先产生n个服从标准正态分布N(0,1)的随机数--Fnorm，再产生n个服从均匀分布U[0,1]随机数—Funif。delta为示性变量，当Fnorm大于Funif所对应的值时，delta为0，反之为1。取Fnorm与Funif中对应值的两者较小的元素作为向量Ot。将Ot与delta合并为矩阵—full.data0，并按Ot的升序排列，最后输出矩阵-- full.data。

 

f1=function(n){
Fnorm=rnorm(n,0,1) #Fnorm~N(0,1)标准正态
Funif=runif(n,0,1)  #均匀分布    或者

delta=rep(1,n)    #先赋初值，1，n个
delta[Fnorm>Funif]=0
##??apply查询      ????
Ot=apply(cbind(Fnorm,Funif),1,min)
#                矩阵      每一行 最小值
full.data0=as.matrix(cbind(Ot,delta))#as.matrix将指定向量转化为矩阵
full.data=full.data0[order(full.data0[,1],decreasing=FALSE),]
                          #full.data0的第一列 升序
return(list(full.data=full.data))
}
#执行source("作业.R") f1(10)