Description Usage Arguments Value Examples
Function implementing predictions for uncharacterized drugs
1 | PredictionKSeeds(test, Seed, num_clusters, A, numcolsideffects)
|
test |
test drugs features matrix |
Seed |
matrix of seeds initialize in the KSeed algorithm |
num_clusters |
number of clusters desired |
A |
matrix of Naive Bayes predictions scores, result of KSeedsScores function |
numcolsideffects |
number of sideeffects |
predizioni matrix containing predictions for the various uncharacterized drugs
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | r <- 8
c <- 10
m0 <- matrix(0, r, c)
num_clusters=4
features<-apply(m0, c(1,2), function(x) sample(c(0,1),1))
#Generate a sample side effects binary matrix
r1 <- 8
c1 <- 15
m1 <- matrix(0, r1, c1)
side_effects<-apply(m1, c(1,2), function(x) sample(c(0,1),1))
folds<-CreateFolds(features,2)
i=0
train = features[folds != i,]
trainpharmat = side_effects[folds != i,]
test = features[folds == i,]
testpharmat = side_effects[folds == i,]
s<-RandomSeedGenerator(num_clusters,nrow(train))
Seed<-SeedSelection(train,num_clusters,s)
clusters<-KSeedsClusters (train,num_clusters,Seed,s)
A<-KSeedsScores(train,trainpharmat,num_clusters,Seed,s,clusters)
predizioni<-PredictionKSeeds(test,Seed,num_clusters,A,ncol(side_effects))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.