function - parameter use in R -

- 

scorekm <- function(km, x1,x2,x3,x4) {     data<-matrix(c(x1,x2,x3,x4),nrow=1)     k <- nrow(km$centers)     n <- nrow(data)     d <- as.matrix(dist(rbind(km$centers, data)))[-(1:k),1:k]     d <- matrix(d,nrow=1)     out <- apply(d, 1, which.min)     return(out) }

this original function. there several parameters (not 4, maybe 8, 12,...), , every 4 unit. should use loop? in loop, how can reach parameter?and how know how many there are? 

 scorekm <- function(km,x...){}

function should this.

km<-kmeans(iris,3) scorekm<- function(km, x,...) { result=null for(i in 1:nargs()-1) { data<-matrix(c(args[[i+1]],args[[i+2]],args[[i+3]],args[[i+4]]),nrow=1) k <- nrow(km$centers) d <- as.matrix(dist(rbind(km$centers, data)))[-(1:k),1:k] d <- matrix(d,nrow=1) out <- apply(d, 1, which.min) result<-cbind(out,result) i<-i+4 } return(result)}

i collect variables through ... so:

scorekm <- function(km, x, ...) {   x.args <- list(...)   out <- do.call("cbind", x.args)   out }

notice naming argument, you're giving column name "as go".

> scorekm(km = 1, x = 2, x1 = runif(3), column2 = runif(3), variable3 = runif(3))             x1    column2 variable3 [1,] 0.2106436 0.07142857 0.6466394 [2,] 0.3684540 0.16306419 0.9937268 [3,] 0.5230319 0.66318683 0.3020110

Comments

Post a Comment

Popular posts from this blog

html5 - What is breaking my page when printing? -

-
Image
i have questioner , don't know why when printing it's creating break before first question. live demo (link) i able resolve issue removing fieldset container had wrapped in.. having fieldset element causing of fields grouped together, , since not fit on first page, being pushed second page. removing fieldset element, able firefox print first 2 questions on page 1 identically chrome. it seems not new problem firefox , fieldset not playing nice found old bugzilla ticket 2008 has persisted , still being commented on in 2014 (link) if retaining fieldset important, found solution else came here (link) <script type='text/javascript'> $(window).bind('beforeprint', function(){ $('fieldset').each( function(item) { $(this).replacewith($('<div class="fieldset">' + this.innerhtml + '</div>')); } ) }); $(window).bind(
Read more

c# - must be a non-abstract type with a public parameterless constructor in redis -

-
when save object, got below error must non-abstract type public parameterless constructor in order use parameter 't' in generic type or method 'servicestack.redis.redisclient.store<t>(t) redisclass.getinstnace().store(msg); // error here redisclass.getinstnace().save(); as third party's class, can not edit how save object? could create wrapper around third party object call constructor, store wrapper? e.g. public class mywrapper { public thirdpartyobject thirdpartyinstance { get; set; } public mywrapper() { thirdpartyinstance = new thirdpartyobject("constructors"); } }
Read more

ajax - PHP/JSON Login script (Twitter style) not setting sessions -

-
i'm having trouble getting twitter style login work properly, reason gets stuck at session_register("useremail"); session_register("userpass"); and doesn't redirect after it. if enter wrong account data, works , appropriate error message pops up. this full code: <?php if(empty($_post['email']) || empty($_post['password'])) { die(msg(0,"all fields required")); } if(!(preg_match("/^[\.a-z0-9_\-\+]+[@][a-z0-9_\-]+([.][a-z0-9_\-]+)+[a-z]{1,4}$/", $_post['email']))) die(msg(0,"you haven't provided valid e-mail")); $host="localhost"; $username="root"; $password="x"; $db_name="x"; $tbl_name="x"; mysql_connect("$host", "$username", "$password")or die("cannot connect"); mysql_select_db("$db_name")or die("cannot select db"); $useremail=$_post['email']; $userpass=
Read more