Featured post

c# - Usage of Server Side Controls in MVC Frame work -

i using asp.net 4.0 , mvc 2.0 web application. project requiremrnt have use server side control in application not possibl in noraml case. ideally want use adrotator control , datalist control. i saw few samples , references in codepleax mvc controllib howwver found less useful. can tell how utilize theese controls in asp.net application along mvc. note: please provide functionalities related adrotator , datalist controls not equivalent functionalities thanks in advace. mvc pages not use normal .net solution makes use of normal .net components impossible. a normal .net page use event driven solution call different methods service side mvc use actions , view completly different way handle things. also, mvc not use viewstate normal .net controlls require. found article discussing mixing of normal .net , mvc.

r - Optimizing apply function output -


i have following function:

library (reshape) phenotype <- rnorm (100) data <- matrix(rnorm(1000), nrow = 10, ncol=100)  spearman.p <-              reshape(                      melt(                           apply(data, 1, function(y){                                         cor.test(y,phenotype,method="spearman")                                                     }[c("p.value", "estimate")]                                )                           ), timevar="l2", idvar="l1", direction="wide"                        ) 

that know if there more efficent way of getting out p.value , estimate "apply"ed cor.test

can provide suggestions?

this more compact , delivers p.values duplicated data. wanted?:

 dtt <- do.call(rbind, apply(data, 1, function(y){                             cor.test(y,phenotype,method="spearman")                                   }[c("p.value", "estimate")]                                  ) )   dtt  ###      p.value   estimate       [1,] 0.2305644 0.1208641      [2,] 0.2305644 0.1208641      [3,] 0.2305644 0.1208641      [4,] 0.2305644 0.1208641      [5,] 0.2305644 0.1208641      [6,] 0.2305644 0.1208641      [7,] 0.2305644 0.1208641      [8,] 0.2305644 0.1208641      [9,] 0.2305644 0.1208641     [10,] 0.2305644 0.1208641 

edit: if looking speed and/or possibility of transporting parallel-oriented platforms add list of candidates:

 pmtx <- matrix(na, nrow=nrow(data), ncol=2)  for( in 1:nrow(data) ) {   pmtx[i, 1:2 ] <- unlist(cor.test(data[i, ],                                     phenotype,                                     method="spearman")[c("p.value", "estimate")] ) }  pmtx 

Comments

Popular posts from this blog

c# - Usage of Server Side Controls in MVC Frame work -

cocoa - Nesting arrays into NSDictionary object (Objective-C) -

ios - Very simple iPhone App crashes on UILabel settext -