下面代码在运行的时候说找不到prob2，是不是应该事先定义，但不不知道如何定义？
prob1<-scan()
1 2 50 3.2
1 3 45 3.5
1 4 40 2.8
2 4 50 3.5
2 5 46 3.6
2 7 48 3.2
3 8 51 4.6
3 9 5  5.2
3 10 48 5.9

dim(prob1)<-c(4,9)
prob1<-t(prob1)
colnames(prob1)<-c("id","time","wt","dv")
prob1
prob1<-as.data.frame(prob1)
mindv<-aggregate(x=prob1[,c("dv")],by=list(prob1$id),FUN=min)
mindv

i<-numeric()
for(i in 1:length(mindv$x)){
j<-which(prob1$dv==mindv$x[i])
prob2[i,]<-prob1[j,]
}