The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.

Type: Package
Title: Julian Miscellaneous Function
Version: 0.3.1.1
Date: 2011-12-26
Author: TszKin Julian Chan <ctszkin@gmail.com>
Maintainer: TszKin Julian Chan <ctszkin@gmail.com>
Description: Some handy function in R.
License: GPL-2 | GPL-3 [expanded from: GPL (≥ 2)]
LazyLoad: yes
Suggests: testthat
Contact: TszKin Julian Chan <ctszkin@gmail.com>
Packaged: 2022-06-22 05:38:29 UTC; hornik
NeedsCompilation: no
Repository: CRAN
Date/Publication: 2022-06-22 05:53:25 UTC

Concatenate two strings

Description

Paste two strings together without separation.

Usage

s1 %+% s2

Arguments

s1

First String

s2

Second String

Value

paste(s1,s2,sep="")

Author(s)

TszKin Julian Chan ctszkin@gmail.com

Examples

cat("Hello" %+% "World")

p Value of Jarque Bera test

Description

Return the p Value of Jarque Bera test. The Jarque Bera test test the null hypothesis that the data are from a normal distribution.

Usage

JBTest(x)

Arguments

x

data

Value

p Value of Jarque Bera test

Author(s)

TszKin Julian Chan ctszkin@gmail.com

Examples

JBTest(rnorm(50))
JBTest(rt(50,3))

n=100
# size
mean(replicate(n,JBTest(rnorm(100)))<0.05)

# power
mean(replicate(n,JBTest(rt(100,3)))<0.05)

Add a constant column to a data.frame or matrix

Description

Add a constant column to data.frame or matrix.

Usage

addCol(x, ..., value)

Arguments

x

data.frame or matrix

...

constants

value

vector a vector of constants

Value

a data.frame or matrix contains all columns in x and those constant columns.

Author(s)

TszKin Julian Chan ctszkin@gmail.com

Examples

d=data.frame(x=1:5,y=11:15)
addCol(d,a=1,b=2,c=3)
addCol(d,value=c(a=100,b=200,c=300))

Demean a vector or a matrix (by column)

Description

Demean a vector or a matrix (by column)

Usage

demean(x)

Arguments

x

Vector or matrix

Value

Demeaned value of x

Author(s)

TszKin Julian Chan ctszkin@gmail.com

Examples

x<-matrix(1:20,ncol=2)
demean(x)

Evaluate Function Under Local Variables

Description

This function evaluates a function x under an environment which is created by a list. All elements of the list is local to the function; other words all elements of the list can be accessed directly by the function. A new environment is created and each element of variables is assigned to the new environment. Then the environment associated with the x is updated with the new environment. Finally x(...) is evaluated and return the result.

Usage

evalFunctionOnList(x, variables = list(), ..., parent_env)

Arguments

x

A function to be called

variables

A list to be converted to an environment

...

Further arguments to x

parent_env

parent environment

Value

Return value of the x(...).

Author(s)

TszKin Julian Chan ctszkin@gmail.com

See Also

environment

Examples

evalFunctionOnList(function() rnorm(n,mean,sd),list(n=5,mean=5,sd=1))

Generate t-statistics, p-value and significance

Description

Generate t-statistics, p-value and significance from estimates and its sd. Estimates and its SD is the first and second column respectively

Usage

generateSignificance(x, row_names)

Arguments

x

A matrix or data.frame

row_names

names of row

Value

a data.frame

Author(s)

TszKin Julian Chan ctszkin@gmail.com

Examples

n<-1000
x_data<-cbind(rnorm(n,mean=0),rnorm(n,mean=1))
x_estimates<-cbind(apply(x_data,2,mean),apply(x_data,2,sd)/sqrt(n))
generateSignificance(x_estimates)
generateSignificance(x_estimates,row_names=c("mean0","mean1") )

Combine label_both and label_parsed in ggplot2.

Description

Combine label_both and label_parsed in ggplot2. Also added a rename function to it see label_both and label_parsed in ggplot2 for details.

Usage

label_both_parsed_recode(display_name)

Arguments

display_name

A vector contains the display name. Names of the vector are the original name.

Value

A function similar to label_both and label_parsed in ggplot2 for details.

Author(s)

TszKin Julian Chan ctszkin@gmail.com

References

https://CRAN.R-project.org/package=ggplot2


Outer apply

Description

Outer apply It use the expand.grid to compute all possible combination of X and Y, then call the mapply with the combination generated and FUN.

Usage

oapply(X, Y, FUN, switch_order = FALSE, ...)

Arguments

X

first argument to FUN

Y

second argument to FUN

FUN

a function to apply. See mapply

switch_order

Switch the order of X and Y in expand.grid

...

other arguments to mapply

Value

same as mapply.

Author(s)

TszKin Julian Chan ctszkin@gmail.com

See Also

mapply

Examples

oapply(11:15,1:5,choose)
oapply(11:15,1:5,choose,switch_order=TRUE)

load packages with auto-installation

Description

load add-on packages. If the packages can not be found, install.packages is called.

Usage

packages(x, ...)

Arguments

x

name of the packages

...

arguments to install.packages

Author(s)

TszKin Julian Chan ctszkin@gmail.com

See Also

require install.packages

Examples

## Not run: 
packages("foreach")

## End(Not run)

Recode the value of a vector

Description

Recode the value of a vector or matrix.

Usage

recode(x, from, to)

Arguments

x

a vector or matrix

from

original value of x

to

new value of x

Value

recoded x

Author(s)

TszKin Julian Chan ctszkin@gmail.com

Examples

x=rep(1:5,each=2)
recode(x,from=1:5,to=5:1)
recode(x,from=1:5,to=11:15)

Repeat a vector by col

Description

Repeat a vector by col

Usage

repCol(x, n)

Arguments

x

vector or matrix

n

number of replication

Author(s)

TszKin Julian Chan ctszkin@gmail.com

See Also

repRow

Examples

repRow(c(a=1,b=2,c=3),5)
repCol(c(a=1,b=2,c=3),5)

Repeat a vector by row

Description

Repeat a vector by row

Usage

repRow(x, n)

Arguments

x

vector or matrix

n

number of replication

Author(s)

TszKin Julian Chan ctszkin@gmail.com

See Also

repCol

Examples

repRow(c(a=1,b=2,c=3),5)
repCol(c(a=1,b=2,c=3),5)

shift a vector by shift_by unit

Description

Repeat a vector by row

Usage

shift(x, shift_by)

Arguments

x

a vector

shift_by

number of shift

Author(s)

TszKin Julian Chan ctszkin@gmail.com

Examples

d<-data.frame(x=1:15)
#generate lead variable
d$df_lead2<-shift(d$x,2)
#generate lag variable
d$df_lag2<-shift(d$x,-2)

Source all the R files of a directory

Description

Source all file with extension .r or .R

Usage

sourceAll(path = ".", ...)

Arguments

path

path of the directory

...

other arguments to source

Author(s)

TszKin Julian Chan ctszkin@gmail.com

See Also

repCol

Examples

## Not run: 
sourceAll()

## End(Not run)

Split a vector by a sequence of length

Description

Split a vector by a sequence of length This function will split the vector x into length(x) subvector. The length of each subvector is given by by.

Usage

splitBy(x, by)

Arguments

x

A vector to be splitted

by

A vector of length

Value

a list of subvector

Author(s)

TszKin Julian Chan ctszkin@gmail.com

Examples

splitBy((1:10)*10,c(2,2))
splitBy((1:10)*10,c(2,3,4))
## Not run: 
expect_equivalent(splitBy((1:10)*10,c(2,2)) ,  list(c(10,20),c(30,40)))
expect_equivalent(splitBy((1:10)*10,c(2,3,4)) , list( c(10,20), c(30,40,50) ,c(60,70,80,90)  ))

## End(Not run)

Start Stop clock to measure performance

Description

Start/clock to measure performance. Same as tic and toc in matlab

Usage

tic(name = ".time_Jmisc", envir = .GlobalEnv)

toc()

Arguments

name

Name of the temporary time variable

envir

environment of the temporary time variable

Author(s)

TszKin Julian Chan ctszkin@gmail.com

Examples

## Not run: 
tic()
Sys.sleep(1)
toc

## End(Not run)

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.