Nothing
#######################genPep0.0.1##################################
genPep <- function(Struct,draw){
pepStruct <- data.frame(matrix(0,ncol = ncol(Struct),nrow = draw))
genRes <- function(x){
coeffs <- x
coeffs[is.nan(coeffs)] <- 0
peps <- c("A","R","N","D","Q","E","G","H","L","K",
"F","P","S","W","Y","V","C","I","M","T")
sel <- sample(peps,draw,replace = TRUE, prob = coeffs^2)
return(sel)
}
for (i in 1:ncol(Struct)){
pepStruct[,i] <- genRes(Struct[,i])
}
return(pepStruct)
}
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.