# NOT RUN {
angle1<-c(80,80,80,80)
angle2<-c(80,80,80,70)
angle3<-c(80,80,60,70)
angle4<-c(80,50,60,70)
angle5<-c(40,50,60,70)
uai1<-uniform.angle(angle1,para=72)
uai1
uai2<-uniform.angle(angle2,para=72)
uai2
uai3<-uniform.angle(angle3,para=72)
uai3
uai4<-uniform.angle(angle4,para=72)
uai4
uai5<-uniform.angle(angle5,para=72)
uai5
# }
Run the code above in your browser using DataLab