Applying a function to every combination of two columns in a dataframe using R -

-

i want apply function myfooto every possible combination of 2 columns in dataframe mydf , result in matrix format myoutput.

consider following dataframe,

# example dataframe mydf <- data.frame(var1 = 1:10, var2 = 11:20, var3 = 21:30) head(mydf)  # var1 var2 var3 # 1    11   21 # 2    12   22 # 3    13   23 # 4    14   24 # 5    15   25

to want apply following function every possible combination of 2 columns,

# example function myfoo <- function(vara, varb) sum(vara * varb)  myfoo(var1, var2) # [1] 935

in order output.

# desired output myoutput <- matrix(c(0, 935, 1485, 935, 0, 4035, 1485, 4035, 0), 3, dimnames = list(names(mydf), names(mydf))) myoutput  #      var1 var2 var3 # var1    0  935 1485 # var2  935    0 4035 # var3 1485 4035    0

in case convert matrix (no reason keep data.frame when columns of numeric class) , run compiled crossprod function matrix cross product.

m <- as.matrix(mydf) res <- crossprod(m, m) diag(res) <- 0 # can skip part res #      var1 var2 var3 # var1    0  935 1485 # var2  935    0 4035 # var3 1485 4035    0

Comments

Post a Comment

Popular posts from this blog

jquery - ReferenceError: CKEDITOR is not defined -

-
may repeated question, solutions provided on net including stackoverflow q-a not resolved issue. ckeditor (4.5.3) integrated in mvc application. ckeditor using on textarea in partial view. same partial view used in create , edit post form. both form having same .chtml page. partial view : <textarea id="description" name="description" class="form-control" >@html.raw(model.description)</textarea> having script: <script type="text/javascript"> ckeditor.replace('description', { filebrowserimageuploadurl: '@url.action("uploadeditorimage", "administrator")', htmlencodeoutput: true }); </script> in .chtml page added : <script src="~/ckeditor/ckeditor.js"></script> generating proper js examined in response. config.js : ckeditor.editorconfig = function( config ) { config.image_previewtext = ckeditor.tools.repeat(' ...
Read more

apache - Error with PHP mail(): Multiple or malformed newlines found in additional_header -

-
suddenly have started receiving above error without changes having been made script. host 1and1 (i know...) the script still works fine on different server, , suspicion there must have been server config change has lead this, although hosts plead ignorance. there's no information on above error @ in google can find - have ideas? server running apache if helps. had similar problem. came out of blue. no php code changed. what changed: php upgraded 5.5.25-1 5.5.26. a security risk in php mail() function has been fixed , newlines in additional_headers allowed no more. because newlines mean: starts email message (and surely don't want inject newlines through headers followed evil message). what have worked fine, e.g. having newlines after headers or passing whole message additional_headers , function no more. solution : sanitize headers. no multiple newlines in additional_headers argument. these count "multiple or malformed newlines":...
Read more

javascript - Chart.js (Radar Chart) different scaleLineColor for each scaleLine -

-
Image
i try , create radar chart using chart.js has various colours each scaleline, or coloured between scalelines. wondering if possible? from: to: i have working graph, though there doesn't seem method change individual scale lines. kind regards leigh you can extend radar chart type this, so chart.types.radar.extend({ name: "radaralt", initialize: function (data) { chart.types.radar.prototype.initialize.apply(this, arguments); var originalscaledraw = this.scale.draw; var ctx = this.chart.ctx; this.scale.draw = function () { var linewidth = this.linewidth; // bypasses line drawing in originalscaledraw this.linewidth = linewidth; originalscaledraw.apply(this, arguments); ctx.linewidth = this.linewidth; var scale = this; // draw chart.helpers.each(scale.ylabels, function (label, index) { // color of ...
Read more