# # # # basicspace_blackbox.r -- Does BASIC SPACE SCALING ON 1980 ISSUE SCALES # # # # rm(list=ls(all=TRUE)) # library(MASS) library(basicspace) setwd("C:/basicspace") # # T <- as.matrix(read.table("C:/basicspace/fort99.dat",row.names=1)) T[T[,5]==7,5] <- 8 T[T[,14]==7,14] <- 8 mode(T) <- "double" # #> dim(T) #[1] 1614 14 #> table(T[,5]) # # 1 2 3 4 7 8 9 #178 506 294 569 18 39 10 # #> table(T[,14]) # # 1 2 3 4 7 8 9 #133 609 245 375 11 27 214 # # result <- blackbox(T,missing=c(0,8,9),dims=3,minscale=8,verbose=F) # # # ---- Useful Commands To See What is in an Object # # > length(result) # [1] 9 # > class(result) # [1] "blackbox" # > names(result) # [1] "stimuli" "individuals" "fits" "Nrow" "Ncol" # [6] "Ndata" "Nmiss" "SS_mean" "dims" # > summary(result) -- shows everything #