search for: esthetical

dear R wizards: not important. more a curiosity or esthetics question. is there a way to extend the standard lm command, so that it takes a new argument that handles fixed effects? right now, I have (provided to me from an expert---I would have never figured this one out): diffid <- function(h,id) { id <- as.factor(id)[, drop=TRUE] apply(as.matrix(h), 2, function(x) x

Full_Name: Chanseok Park Version: R 2.2.1 OS: RedHat EL4 Submission from: (NULL) (130.127.112.89) pbinom(any negative value, size, prob) should be zero. But I got the following results. I mean, if a negative value is close to zero, then pbinom() calculate pbinom(0, size, prob). dbinom() also behaves similarly. > pbinom( -2.220446e-22, 3,.1) [1] 0.729 > pbinom( -2.220446e-8, 3,.1)

Dear RHelp-list, ?? Using dplyr and the group_by approach on a dataframe, I want to be able to apply a specific action according to the group name. The code bellow works, but I am not able to write it in a more esthetic way using dplyr. Can somebody help me to find a better solution ? Thank you Best regards Laurent df_test <- data.frame( x1=1:9, x2=1:9,

Hi Joshua, Because there are no values in column ddd less than 1. itemInfo[3,"ddd"]<-0.3645372 itemInfo aaa bbb ccc ddd eee skill 1.396 6.225 0.517 5.775 2.497 predict 1.326 5.230 0.462 5.116 -2.673 waiting 1.117 4.948 NA 0.365 NA complex 1.237 4.170 0.220 4.713 5.642 novelty 1.054 4.005 0.442 4.260 2.076 creative 1.031 3.561 0.362 3.689

It seems that confint.default returns an empty data.frame for objects of class mlm. For example: ``` nobs <- 20 set.seed(1234) # some fake data datf <- data.frame(x1=rnorm(nobs),x2=runif(nobs),y1=rnorm(nobs),y2=rnorm(nobs)) fitm <- lm(cbind(y1,y2) ~ x1 + x2,data=datf) confint(fitm) # returns: 2.5 % 97.5 % ``` I have seen proposed workarounds on stackoverflow and elsewhere, but

On Jun 6, 2018, at 4:06 AM, Alice Wonder <alice at domblogger.net> wrote: > > I'm not anti-microsoft but I'm worried they will make changes that I don't like (e.g. requiring ms account, changing billing, etc.) so I figured better take control now. What had you using GitHub in the first place, then? Is it just the web UI, since you?ve apparently decided that none of

Hello, Set up a CentOS 7.5 VM linode for git now that github has been bought. I'm not anti-microsoft but I'm worried they will make changes that I don't like (e.g. requiring ms account, changing billing, etc.) so I figured better take control now. Currently moving my private repos and have them set up in my home directory there, but my public repos - I want to set them up with a

Well pointed out, Jim! It is infortunate that the documentation for options(digits=...) does not mention that these are *significant digits* and not *decimal places* (which is what Joshua seems to want): "?digits?: controls the number of digits to print when printing numeric values." On the face of it, printing the value "0,517" of 'ccc' looks like printing 4

R version 3.5.0 (2018-04-23) -- "Joy in Playing" Platform: x86_64-pc-linux-gnu (64-bit) options(digits=3) itemInfo <- structure(list("aaa" = c(1.39633732316667, 1.32598263816667, 1.11658324066667, 1.23651072616667, 1.05368679983333, 1.03100737383333, 0.9630728395, 0.7483865045, 0.620086646166667, 0.5411017985, 0.496397607833333, 0.459528044666667, 0.427877047833333,

Laurent: As I don't use dplyr, this won't help you, but I hope you and others may find it entertaining anyway. If I understand you correctly (and ignore this if I have not), there are a ton of ways to do this in base R, including using switch() along the lines you noted in your post. However, when the functions get sufficiently complicated or numerous, it may be useful to store them in a

>>>>> Ted Harding >>>>> on Thu, 31 May 2018 07:10:32 +0100 writes: > Well pointed out, Jim! > It is infortunate that the documentation for options(digits=...) > does not mention that these are *significant digits* > and not *decimal places* (which is what Joshua seems to want): Since R 3.4.0 the help on ?options *does* say

...n the stats package. I agree. It may be nicer to tweak confint.lm() instead though. I'm looking into doing that. > A proposed implementation would be: > > ``` > # I need this to run the code, but stats does not: > format.perc <- stats:::format.perc or better (mainly for esthetical reasons), use environment(confint.mlm) <- asNamespace("stats") after defining confint.mlm [below] > # compute confidence intervals for mlm object. > confint.mlm <- function (object, level = 0.95, ...) { > cf <- coef(object) > ncfs <- as.numeric(cf) >...

...ce belongs. This way I cannot associate special forwarding rules for certain VMs which survive reboots as the tun device has not the same ID as the VM. I created a workaround in qemu-ifup which first removes any firewall rules associated with the tap device and then creates the new rules. This is esthetically unpleasing. :-) Are there plans to improve this situation, or is it already solved in the HEAD branch? -- Christoph _______________________________________________ Xen-devel mailing list Xen-devel@lists.xensource.com http://lists.xensource.com/xen-devel

Hello guys, Have you guys experienced problem with digit 0 from x-lite. I cannot access asterisk services with number containing digit 0. For example i have voicemail with mailbox number 6100, if i login from x-lite login always fail because asterisk only read number 61.

hi, i installed asterisk and works very well, the only problem is that when i try to call a direct number of a company that has a normal PBX i got this error: to 10.8.210.153:5060 == Accepting call on 'SIP/a.sampietro-f7be' (a.sampietro) -- Executing Goto("SIP/a.sampietro-f7be", "doisdn|BYEXTENSION|1") in new stack -- Goto (doisdn,00115601992,1) --

On Feb 9, 2017, at 2:39 PM, Leonard den Ottolander <leonard at den.ottolander.nl> wrote: > > On Thu, 2017-02-09 at 14:22 -0700, Warren Young wrote: >> There are two serious problems with this argument: >> >> 1. Give me a scenario where this attacker can execute *only* pkcheck > > On many systems local users cannot execute their own uploaded binaries >

Although there may well be many ways to do what is being asked for with the tidyverse, sometimes things are simple enough to do the old-fashioned way. The request seems to have been to do something to all rows in ONE specific group but was phrased in the sense of wanting to know which group your functionality is being called in. What grouping gains you is more worthwhile if you are interested in

I have a graphic image in a file (say a *.jpeg or *.png file) and want to put it into a plot. I have segmented the plot area by means of the layout function and successfully plotted my data in the appropriate segments. I cannot find how to put my graphic image onto the same plot. Searching the archives has shed little light on my challenge. Many thanks in anticipation. Gordon > version

Hi- I want to fit a model with crossed random effects and heteroskedastic level-1 errors where inferences about fixed effects are of primary interest. The dimension of the random effects is making the model computationally prohibitive using lme() where I could model the heteroskedasticity with the "weights" argument. I am aware that the weights argument to lmer() cannot be used to

Hello, I have come across some unexpected behaviour of the function heatmap in the stats package. This looks like a bug to me, but I might have misunderstood something. When calling the function in symmetric mode, the ColSideColors are plotted correctly, but RowSideColors appear in reverse order. This code (modified from the example on the help page) demonstrates the problem: cU <-