Nothing
boot.compute.fi.fj <- function(DATA,DESIGN,res){
pca.types <- c('tepBADA')
ca.types <- c('tepDICA')
#A simple override/check. If someone puts in texpoOutput class data, tepGraphs will recognize it.
tepPlotInfo <- NULL
if(class(res)[1] == "texpoOutput"){
if(length(res)==2){
tepPlotInfo <- res$Plotting.Data
}
res <- res$TExPosition.Data
}else{
stop("Unknown class") ##fix this later with more checks.
}
boot.sample.vector <- boot.samples(DATA,DESIGN,constrained=TRUE)
BootX <- DATA[boot.sample.vector,]
if((class(res)[1] %in% c(pca.types))){
massedDESIGN <- t(t(DESIGN) * (1/(colSums(DESIGN))))
BootY <- massedDESIGN[boot.sample.vector,]
}
if((class(res)[1] %in% c(ca.types))){
BootY <- DESIGN[boot.sample.vector,]
}
Rboot<-t(BootY) %*% BootX
Fboot.Y <- supplementaryRows(Rboot,res)$fii
if((class(res)[1] %in% c(pca.types))){
Fboot.X <- supplementaryCols(Rboot,res,center=res$center,scale=res$scale)$fjj
}else if((class(res)[1] %in% c(ca.types))){
Fboot.X <- supplementaryCols(Rboot,res)$fjj
}
Fboot.Y <- replace(Fboot.Y,is.nan(Fboot.Y),0)
Fboot.X <- replace(Fboot.X,is.nan(Fboot.X),0)
return(list(FBX=Fboot.X,FBY=Fboot.Y))
}
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.