result1 <- anominate(sen89, dims=1, polarity=c(7), nsamp=1500, thin=1, burnin=1000, random.starts=FALSE, verbose=TRUE, constrain=TRUE)and show the two plots that the program produces (study anominate_sen111_onedim.r to see how to change your program to run one dimension).