fazac<-function(sekchar){
c<-length(sekchar)
faza<-vector(mode='integer', length=c)
faza[which(sekchar=='A')]<-pi/4
faza[which(sekchar=='C')]<--3*pi/4
faza[which(sekchar=='G')]<-3*pi/4
faza[which(sekchar=='T')]<--pi/4
return(faza)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.