r - Select the most dissimilar individual using cluster analysis -


i want cluster data 5 clusters, need select 50 individuals dissimilar relationship data. means if cluster 1 contains 100, 2 contains 200, 3 contains 400, 4 contains 200, , 5 100, have select 5 first cluster + 10 second cluster + 20 third + 10 fourth + 5 fifth.

data example:

     mydata<-matrix(nrow=100,ncol=10,rnorm(1000, mean = 0, sd = 1))

what did till clustering data , rank individuals within each cluster, export excel , go there … has become became problem since data has became big.

i appreciate or suggestion on how apply previous in r .

i´m not sure if searching, maybe helps:

mydata<-matrix(nrow=100, ncol=10, rnorm(1000, mean = 0, sd = 1)) rownames(mydata) <- paste0("id", 1:100) # id identification   # cluster objects , calculate dissimilarity matrix cl <- cutree(hclust(   sim <- dist(mydata, diag = true, upper=true)), 5)   # combine results, take sum aggregate dissimilarity res <- data.frame(id=rownames(mydata),                   cluster=cl, dis_sim=rowsums(as.matrix(sim))) # order, lowest overall dissimilarity first res <- res[order(res$dis_sim), ]    # split object reslist <- split(res, f=res$cluster)   ## takes first 3 items highest overall dissim. lapply(reslist, tail, n=3)   ## returns id´s highest overall dissimilarity, top 20%  lapply(reslist, function(x, p) tail(x, round(nrow(x)*p)), p=0.2)

Comments

Post a Comment

Popular posts from this blog

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more

rewrite - Trouble with Wordpress multiple custom querystrings -

i'm working on adding multiple querystring , doesn't seem work. i've found codes seems work others might i'm missing something. i want like: http://mydomain.com/board/?getyear=2013&getsometext2=sometext to http://mydomain.com/board/2013/sometext/ i added code below functions.php file. doesn't seem work should though. this works. echoing querystring gets both variable without problem. http://mydomain.com/board/2013/sometext/ but doesn't. tested querystring vis isset() seems nothing being set/get http://mydomain.com/board/2013/ function add_query_vars($vars) { $vars[] = "getyear"; $vars[] = "getsometext2"; return $vars; } add_filter('query_vars', 'add_query_vars'); function add_rewrite_rules($arules) { $anewrules = array('board/([^/]+)/([^/]+)/?$' => 'index.php?pagename=board&getyear=$matches[1]&getsometext2=$matches[2]'); $arules = $a...
Read more