# # # # basicspace_AM.r -- Does Aldrich-McKelvey Scaling of 1968 Urban Unrest # 7-Point Scale # # &&&&&&&&& STIMULI &&&&&&&& # # 1968 7-POINT URBAN UNREST SCALE # # VAR00460 LOC 907 WIDTH 1 PBM URBAN UNREST-JHNSN # VAR00461 LOC 908 WIDTH 1 PBM URBAN UNREST-HHH # VAR00462 LOC 909 WIDTH 1 PBM URBAN UNREST-NIXON # VAR00463 LOC 910 WIDTH 1 PBM URBAN UNREST-WALLA # VAR00464 LOC 911 WIDTH 1 PBM URBAN UNREST-R # CAND(1)= 'LYNDON JOHNSON ' # CAND(2)= 'HUBERT HUMPHREY ' # CAND(3)= 'RICHARD NIXON ' # CAND(4)= 'GEORGE WALLACE ' # CAND(5)= 'INDIVIDUAL ' # rm(list=ls(all=TRUE)) # library(MASS) library(foreign) library(basicspace) #setwd("C:/basicspace") data <- read.spss("C:/uga_course_2015/anes1968.por",use.value.labels=FALSE) attach(data,warn.conflicts = FALSE) # T <- cbind(V680460,V680461,V680462,V680463,V680464) TT <- T mode(TT) <- "double" colnames(TT) <- c("Johnson","Humphrey","Nixon","Wallace","Self") # # Note that polarity=1 selects Lyndon Johnson -- The Respondent Self Placement # is in the last column -- respondent=5 # result <- aldmck(TT,polarity=1,respondent=5,missing=c(0,8,9),verbose=TRUE) # # # ---- Useful Commands To See What is in an Object # # > length(result) # [1] 8 # > class(result) # [1] "aldmck" # > names(result) # [1] "stimuli" "respondents" "eigenvalues" "AMfit" "R2" # [6] "N" "N.neg" "N.pos" # > summary(result) -- shows everything # > plot(result) -- shows basic graphs of the results #