Nothing
input_to_beat.2st_2 <- function(psu,psu_id,stratum_var,mos_var,delta,minimum) {
psu_file <- NULL
psu_file$PSU_ID <- psu[,paste0(psu_id)]
psu_file$STRATUM <- psu[,paste0(stratum_var)]
psu_file$PSU_MOS <- psu[,paste0(mos_var)]
psu_file <- as.data.frame(psu_file)
des_file <- aggregate(PSU_MOS ~ STRATUM, data=psu_file,sum)
des_file$DELTA <- delta
des_file$MINIMUM <- minimum
colnames(des_file)[2] <- "STRAT_MOS"
out <- list(psu_file=psu_file,des_file=des_file)
return(out)
}
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.