Nothing
mkRLongM <- function(trtR,K,trt) {
trtRL <- matrix(NA, nrow=nrow(trtR)*K, ncol = 5 )
cnt <- 0
for ( i in 1:nrow(trtR) ) {
alpha <- trtR[i,1]
type <- trtR[i,2]
for ( j in 1:K ) {
cnt <- cnt + 1
Est <- trtR[i,j+2]
trtRL[cnt,] <- c( trt, alpha, type, Est, j )
}
}
colnames(trtRL) <- c("trt","alpha","type","Est","k")
return(trtRL)
}
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.