set.seed(589771237)
n1<-rnorm(50,4,0.8)
n2<-rnorm(45,5.5,1)
n3<-rnorm(60,6,1.44)
n4<-rnorm(80,5,0.25)
n3[52]<-9.9


