https://github.com/cran/BayesDA
Tip revision: bffdc42c3f8912d3bef31ee5fbd0b1092fcbd906 authored by Kjetil Halvorsen on 20 February 2008, 00:00:00 UTC
version 1.0-1
version 1.0-1
Tip revision: bffdc42
personality.Rd
\name{personality}
\alias{personality}
\docType{data}
\title{ Personality Data From an Experiment in Psychology }
\description{
This is a tree-way array showing responses to 15 possible reactions in
23 situations for 54 persons. It is used in the book as an example
for posterior predictive checks.
}
\usage{data(personality)}
\format{
The format is:
num [1:15, 1:23, 1:54] 0 0 0 1 0 0 1 2 0 0 ...
- attr(*, "dimnames")=List of 3
..\$ response : chr [1:15] "1" "2" "3" "4" ...
..\$ situation: chr [1:23] "1" "2" "3" "4" ...
..\$ person : chr [1:54] "1" "2" "3" "4" ...
}
\details{
}
\source{
}
\references{
}
\examples{
data(personality)
str(personality)
# Following code adapted from file personality3.R on the book's webpage:
nsubjects <- 6
nrep <- 7
test <- function (a){
output <- as.vector(a)>0
glm.data.frame <- data.frame (output, response, situation, person)
glm0 <- glm (output ~
factor(response) + factor(situation) + factor(person),
family=binomial(link=logit),
data=glm.data.frame)
pred0 <- predict.glm (glm0, type="response")
mean (ifelse(output, (1-pred0)^2, pred0^2))
}
data <- personality[,,1:nsubjects]
attrs <- attributes(data)
data <- ifelse (data>0, 1, 0)
attributes(data) <- attrs
}
\keyword{datasets}