> ######### Generate n=30 observations from Normal with mean=10 and SD=9
> vec1<-rnorm(30,10 ,9)
> > vec1
 [1]  2.22291562 11.50199530 16.92193190  9.44570397 21.93644176 13.63682677 22.02488952 14.55572916  8.60853717  4.91032621 -5.53497885 20.60865627
[13] 20.49993573 -0.05165645  0.56842967 -0.55399406  8.69629780  1.02993680  2.59011827 18.71027607  4.74164980  5.42508909 16.55819195 17.95701268
[25]  2.36378439 13.64130019 25.87822665  3.22077925  0.84679924  0.50391216
>
> ######### Initialize vec2 for Likert storage
> vec2<-rep(NA,30)
> vec2
 [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
>
> ######### Create categorical Likert using logical operators 
> vec2[vec1<=qnorm(.20,10,9)]="Low"
> vec2[vec1>qnorm(.20,10,9) & vec1<=qnorm(.40,10,9)]="Low-Mid"
> vec2[vec1>qnorm(.40,10,9) & vec1<=qnorm(.60,10,9)]="Middle"
> vec2[vec1>qnorm(.60,10,9) & vec1<=qnorm(.80,10,9)]="Mid-High"
> vec2[vec1>qnorm(.80,10,9)]="High"

> ######### Initialize vec3 for Likert storage
> vec3<-rep(NA,30)
> vec3
 [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
>
> ######### Create numerical Likert  
> vec3<-rep(NA,30)
> vec3[vec1<=qnorm(.20,10,9)]=1
> vec3[vec1>qnorm(.20,10,9) & vec1<=qnorm(.40,10,9)]=2
> vec3[vec1>qnorm(.40,10,9) & vec1<=qnorm(.60,10,9)]=3
> vec3[vec1>qnorm(.60,10,9) & vec1<=qnorm(.80,10,9)]=4
> vec3[vec1>qnorm(.80,10,9)]=5
>
> cbind(vec1,vec2,vec3)
      vec1                  vec2       vec3
 [1,] "2.22291561713552"    "Low"      "1" 
 [2,] "11.5019952957777"    "Middle"   "3" 
 [3,] "16.921931896917"     "Mid-High" "4" 
 [4,] "9.44570396785374"    "Middle"   "3" 
 [5,] "21.936441760283"     "High"     "5" 
 [6,] "13.6368267701268"    "Mid-High" "4" 
 [7,] "22.0248895201799"    "High"     "5" 
 [8,] "14.5557291577566"    "Mid-High" "4" 
 [9,] "8.60853717350829"    "Middle"   "3" 
[10,] "4.91032621009245"    "Low-Mid"  "2" 
[11,] "-5.53497884706063"   "Low"      "1" 
[12,] "20.6086562744806"    "High"     "5" 
[13,] "20.4999357338484"    "High"     "5" 
[14,] "-0.0516564484029889" "Low"      "1" 
[15,] "0.568429671773474"   "Low"      "1" 
[16,] "-0.553994055885202"  "Low"      "1" 
[17,] "8.69629779889798"    "Middle"   "3" 
[18,] "1.02993679879524"    "Low"      "1" 
[19,] "2.59011826964375"    "Low-Mid"  "2" 
[20,] "18.7102760669909"    "High"     "5" 
[21,] "4.74164980290352"    "Low-Mid"  "2" 
[22,] "5.4250890905658"     "Low-Mid"  "2" 
[23,] "16.5581919493113"    "Mid-High" "4" 
[24,] "17.9570126828948"    "High"     "5" 
[25,] "2.36378439038029"    "Low"      "1" 
[26,] "13.641300190615"     "Mid-High" "4" 
[27,] "25.8782266462673"    "High"     "5" 
[28,] "3.22077924913933"    "Low-Mid"  "2" 
[29,] "0.84679923631457"    "Low"      "1" 
[30,] "0.503912163783978"   "Low"      "1"