# Create random data.frames
selfratings <- as.data.frame(matrix(ncol=60, nrow=100,
sample(1:5, size=600, replace=TRUE)))
informantratings <- as.data.frame(matrix(ncol=60, nrow=100,
sample(1:5, size=600, replace=TRUE)))
colnames(selfratings) <- colnames(informantratings) <- c(paste("Per", 1:60, sep=""))
other.inventory <- as.data.frame(matrix(ncol=100, nrow=100,
sample(1:5, size=1000, replace=TRUE)))
# Create key (optional)
key1 <- rep(1:5, each=12)
key2 <- rep(1:5, each=20)
# Analyses
rcAcrossRaters = randomCorrelations(Data1 = selfratings, Data2 = informantratings,
n.items = 12, R=100, item.overlap = FALSE, trait.overlap = TRUE)
rcWithinRaters = randomCorrelations(Data1 = selfratings, Data2 = informantratings,
n.items = 12, R=100, item.overlap = FALSE, trait.overlap = FALSE, Key1 = key1)
rcAcrossQuestionnaire = randomCorrelations(Data1 = selfratings, Data2 = other.inventory,
n.items = 12, R=100, item.overlap = FALSE, trait.overlap = FALSE, Key1 = key1, Key2 = key2)
rcCompleteOverlap = randomCorrelations(Data1 = selfratings, Data2 = informantratings,
n.items = 12, R=100, complete.overlap = TRUE)
# Look at the results
summary(rcAcrossRaters)
summary(rcWithinRaters)
summary(rcAcrossQuestionnaire)
summary(rcCompleteOverlap)
Run the code above in your browser using DataLab