data(SELF5)
v.names=names(SELF5)
v.names
sc.names=c("LM","NO","PA","BC","DE","FG","HI","JK")
lower<-c(-22.5,292.5,247.5,202.5,157.5,112.5,67.5,22.5)
upper<-c(22.5,337.5,292.5,247.5,202.5,157.5,112.5,67.5)
B<-bound.assign(sc.names=sc.names,v.names=v.names,lower=lower,upper=upper)
B$upper
B$lower
# Each one of the 48 items (v.names) is provided with an upper and lower bound:
bounds<-data.frame(v.names,B$upper,B$lower)
bounds[order(B$upper),]
Run the code above in your browser using DataLab