sapply(x, function(v) return(v[1]))
-> <-
这部分就是一个函数，且这个函数没有名字；
sapply分别将list中的每个元素当做参数传递给这个func，
我实现的这个函数把参数当成c()或者list()，然后返回第一个元素；
先迭代出里面的元素然后对每个元素取属性值
List<Student>list.....
比如里面存的是Student
Student有一个属性name
1
2
3
4
5
Iterator it = list.iterator()
while(it.hasNext()){
Student stu = it.next()
String name = stu.getName()//得到了里面的元素的属性了
}
#在1到80里随机抽取100个数，可重复
x
<-
sample(1:80,
100,
replace
=
T)
#
看看有多少不同的元素,
unique(x)把x中出现过的元素提取出来，
length()看看有多少个
length(unique(x))
[1]
52
