if (FALSE) {
##############################
##### Example how response object for Bundesliga data Buli1516 was created
##############################
data(BuliResponse)
Y.Buli <- response.BTLLasso(response = BuliResponse$Result,
first.object = BuliResponse$TeamHome,
second.object = BuliResponse$TeamAway,
subject = BuliResponse$Matchday)
##############################
##### Example to create response object from paircomp object
##############################
data("Topmodel2007", package = "psychotree")
Y.models <- response.BTLLasso(Topmodel2007$preference)
X.models <- scale(model.matrix(preference~., data = Topmodel2007)[,-1])
rownames(X.models) <- paste0("Subject",1:nrow(X.models))
colnames(X.models) <- c("Gender","Age","KnowShow","WatchShow","WatchFinal")
set.seed(5)
m.models <- cv.BTLLasso(Y = Y.models, X = X.models)
}
Run the code above in your browser using DataLab