Nothing
#' @export
S.STSI<-function(S,Nh,nh)
{
S<-as.factor(S)
S<-as.factor(as.integer(S))
cum<-cumsum(nh)
sam<-matrix(0,sum(nh))
for(k in 1: length(nh)){
h<-which(S==k)
sam.h<-sample(Nh[k],nh[k])
if(k==1){
sam[1:nh[k]]<-h[sam.h]
}
if(k>1){
sam[(cum[k-1]+1):(cum[k])]<-h[sam.h]
}
}
sort(sam)
}
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.