Nothing
`fact2dummy` <-
function (data, all=TRUE, lab="x")
{
dum.fcn <- function(x, all=TRUE){
fine <- model.matrix.lm(~x-1, na.action = "na.pass")
colnames(fine) <- levels(x)
if(!all) fine <- fine[,-ncol(fine), drop=FALSE]
fine
}
if(is.null(dim(data))){
if(class(data)[1]=="numeric" || class(data)[1]=="integer" || class(data)[1]=="logical") oo <- cbind(1*data)
else{
oo <- dum.fcn(data, all=all)
colnames(oo) <- paste(lab, colnames(oo), sep="")
}
}
else{
if(is.matrix(data)) oo <- data
else{
p <- ncol(data)
n <- nrow(data)
vtype <- lapply(data, class)
out <- as.list(rep(NA, p))
lab <- names(data)
for(i in 1:p){
if(vtype[[i]][1]=="numeric" || vtype[[i]][1]=="integer" || vtype[[i]][1]=="logical") {
aa <- matrix(1*data[,i])
colnames(aa) <- lab[i]
out[[i]] <- aa
}
else{
aa <- dum.fcn(data[,i], all=all)
colnames(aa) <- paste(lab[i], 1:ncol(aa), sep="")
out[[i]] <- aa
}
}
# oo <- unlist(out)
# oo <- matrix(oo, nrow=n)
# dimnames(oo) <- list(row.names(data), unlist(lapply(out, colnames)))
#cat(unlist(lapply(out, nrow)), fill=T)
oo <- do.call("cbind", out)
}
}
rownames(oo) <- rownames(data)
oo
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.