Displaying 20 results from an estimated 30000 matches similar to: "A question on Programming"
2010 Jul 27
1
Meaning of proc.time()
If I run proc.time() function, I would get following:
> proc.time()
?? user? system elapsed
?? 2.82??? 4.18? 792.39
However I am struggling the meaning of the object what it returned. In
help file it says that:
"user time" is the time required to execute the calling process. Here
what is the calling process exactly? Who executes this? system itself?
2ndly "system time"
2023 Nov 29
4
Code editor for writing R code
Hi,
Currently I use VS-Code to write codes in R. While it is very good, it
does not allow me to write Latex expressions in comments, which I am
willing to have to write corresponding mathematical expressions as
comments in my code files.
Does there exist any Code editor for R, that allows me to write Latex
in comments?
Any information will be appreciated.
Thanks,
2023 Nov 29
2
Code editor for writing R code
Bert,
Posit (formerly RStudio) has moved from RMarkdown to Quarto. They
still support RMarkdown but major new features will be in Quarto. For
new users a better choice would be Quarto.
See https://quarto.org/docs/faq/rmarkdown.html
Secondly, the OP stated he was using the VS-Code IDE, so there is no
reason to point him to the Posit/RStudio IDE for this functionality
which VS-Code supports very
2023 Nov 29
1
Code editor for writing R code
Hi Sergei,
Where can I find TeX Comments extension in VS Code?
On Wed, Nov 29, 2023 at 9:34?PM Sergei Ko <sggp.sergei at gmail.com> wrote:
>
> TeX Comments extension in VS Code
>
>
>
>
> Sent from my phone
>
>
> -------- Original message --------
> From: Christofer Bogaso <bogaso.christofer at gmail.com>
> Date: Wed, 29 Nov 2023, 15:57
> To:
2018 Mar 04
3
Change Function based on ifelse() condtion
Below is my full implementation (tried to make it simple as for demonstration)
Lapply_me = function(X = X, FUN = FUN, Apply_MC = FALSE, ...) {
if (Apply_MC) {
return(mclapply(X, FUN, ...))
} else {
if (any(names(list(...)) == 'mc.cores')) {
myList = list(...)[!names(list(...)) %in% 'mc.cores']
}
return(lapply(X, FUN, myList))
}
}
Lapply_me(as.list(1:4), function(xx) {
if (xx ==
2010 Jul 10
7
Need help on date calculation
Hi all, please see my code:
> library(zoo)
> a <- as.yearmon("March-2010", "%B-%Y")
> b <- as.yearmon("May-2010", "%B-%Y")
>
> nn <- (b-a)*12 # number of months in between them
> nn
[1] 2
> as.integer(nn)
[1] 1
What is the correct way to find the number of months between "a" and "b",
still
2012 Dec 20
3
Problem loading .r file
Hello all,
I was trying to load a .r file using source() and load() functions.
Although I could be able to load the codes (mainly few user defined
functions) written in that .r. file correctly, however getting
following error:
> source("D:/Book Code.r")
Error in sys.call(sys.parent()) : node stack overflow
> load("D:/Book Code.r")
Error: bad restore file magic number
2018 Mar 04
0
Change Function based on ifelse() condtion
The reason that it works for Apply_MC=TRUE is that in that case you call
mclapply(X,FUN,...) and
the mclapply() function strips off the mc.cores argument from the "..."
list before calling FUN, so FUN is being called with zero arguments,
exactly as it is declared.
A quick workaround is to change the line
Lapply_me(as.list(1:4), function(xx) {
to
Lapply_me(as.list(1:4),
2018 Mar 04
2
Change Function based on ifelse() condtion
My modified function looks below :
Lapply_me = function(X = X, FUN = FUN, Apply_MC = FALSE, ...) {
if (Apply_MC) {
return(mclapply(X, FUN, ...))
} else {
if (any(names(list(...)) == 'mc.cores')) {
myList = list(...)[!names(list(...)) %in% 'mc.cores']
}
return(lapply(X, FUN, myList))
}
}
Here, I am not passing ... anymore rather passing myList
On Sun, Mar 4, 2018 at 10:37 PM,
2018 Mar 04
2
Change Function based on ifelse() condtion
@Eric - with this approach I am getting below error :
Error in FUN(X[[i]], ...) : unused argument (list())
On Sun, Mar 4, 2018 at 10:18 PM, Eric Berger <ericjberger at gmail.com> wrote:
> Hi Christofer,
> You cannot assign to list(...). You can do the following
>
> myList <- list(...)[!names(list(...)) %in% 'mc.cores']
>
> HTH,
> Eric
>
> On Sun, Mar
2011 Jan 11
5
A question on dummy variable
Dear all, I would like to ask one question related to statistics, for
specifically on defining dummy variables. As of now, I have come across 3
different kind of dummy variables (assuming I am working with Seasonal
dummy, and number of season is 4):
> dummy1 <- diag(4)
> for(i in 1:3) dummy1 <- rbind(dummy1, diag(4))
> dummy1 <- dummy1[,-4]
>
> dummy2 <- dummy1
>
2012 Dec 14
5
A question on list and lapply
Dear all, let say I have following list:
Dat <- vector("list", length = 26)
names(Dat) <- LETTERS
My_Function <- function(x) return(rnorm(5))
Dat1 <- lapply(Dat, My_Function)
However I want to apply my function 'My_Function' for all elements of
'Dat' except the elements having 'names(Dat) == "P"'. Here I have
specified the name
2017 Aug 02
4
Extracting numeric part from a string
Hi again,
I am struggling to extract the number part from below string :
"\"cm_ffm\":\"563.77\""
Basically, I need to extract 563.77 from above. The underlying number
can be a whole number, and there could be comma separator as well.
So far I tried below :
> library(stringr)
> str_extract("\"cm_ffm\":\"563.77\"",
2012 Mar 16
4
How to start R in maximized size???
Dear all, when I start R, I want that the console window should be in
the Maximized size automatically. Can somebody help me how to achieve
that?
Thanks and regards,
2013 Mar 28
4
How to replace '$' sign?
Hello again,
I want to remove "$" sign and replace with nothing in my text.
Therefore I used following code:
> gsub("$|,", "", "$232,685.35436")
[1] "$232685.35436"
However I could not remove '$' sign.
Can somebody help me why is it so?
Thanks and regards
2018 Mar 04
0
Change Function based on ifelse() condtion
That's fine. The issue is how you called Lapply_me(). What did you pass as
the argument to FUN?
And if you did not pass anything that how is FUN declared?
You have not shown that in your email.
On Sun, Mar 4, 2018 at 7:11 PM, Christofer Bogaso <
bogaso.christofer at gmail.com> wrote:
> My modified function looks below :
>
> Lapply_me = function(X = X, FUN = FUN, Apply_MC =
2017 Aug 10
3
Zoo rolling window with increasing window size
Hi Joshua, thanks for your prompt reply. However as I said, sum()
function I used here just for demonstrating the problem, I have other
custom function to implement, not necessarily sum()
I am looking for a generic solution for above problem.
Any better idea? Thanks,
On Fri, Aug 11, 2017 at 12:04 AM, Joshua Ulrich <josh.m.ulrich at gmail.com> wrote:
> Use a `width` of integer index
2023 Nov 29
1
Code editor for writing R code
I believe RMarkdown can use and render latex comments. RStudio/Posix
provides ide extensions (e.g. R Notebooks) that seem to do what you
want, but I have no experience with them. As Ben suggested, there are
likely others, depending on exactly what you want to do.
-- Bert
On Wed, Nov 29, 2023 at 7:58?AM Christofer Bogaso
<bogaso.christofer at gmail.com> wrote:
>
> Hi,
>
>
2011 Jan 21
3
How to look into the asterisked function?
Hi friends, there is methods() function to see the all available methods for
a particular function, for example:
> head(methods("print"))
[1] "print.acf" "print.anova" "print.aov" "print.aovlist"
"print.ar" "print.Arima"
In this list, there are some functions which are asterisked like
print.acf().
2013 Jan 03
3
Question on Round function
I happened to see these:
> round(.5, 0)
[1] 0
> round(1.5, 0)
[1] 2
> round(2.5, 0)
[1] 2
> round(3.5, 0)
[1] 4
> round(4.5, 0)
[1] 4
What is the rule here?
Should not round(.5, 0) = 1, round(2.5, 0) = 3 etc?
Thanks and regards,