Displaying 10 results from an estimated 10 matches for "m3b".
Did you mean:
3b
2011 Sep 03
2
problem in applying function in data subset (with a level) - using plyr or other alternative are also welcome
...sample (c(1, 2,3), 10, replace= T)
# variable set 2
M2a <- sample (c(1, 2,3), 10, replace= T)
M2b <- sample (c(1, 2,3), 10, replace= T)
M2aP1 <- sample (c(1, 2,3), 10, replace= T)
M2bP2 <- sample (c(1, 2,3), 10, replace= T)
# variable set 3
M3a <- sample (c(1, 2,3), 10, replace= T)
M3b <- sample (c(1, 2,3), 10, replace= T)
M3aP1 <- sample (c(1, 2,3), 10, replace= T)
M3bP2 <- sample (c(1, 2,3), 10, replace= T)
mydf <- data.frame (ped, M1a,M1b,M1aP1,M1bP2, M2a,M2b,M2aP1,M2bP2,
M3a,M3b,M3aP1,M3bP2, y)
# functions and further calculations
mmat <- matrix
(c("M1a...
2011 May 04
0
Fwd: simple question
...e question, please execuse me:
#example data, the real data consists of 20000 pairs of variables
K1 <- c(1,2,1, 1, 1,1); K2 <- c(1, 1,2,2, 1,2); K3 <- c(3, 1, 3, 3, 1, 3)
M1a <- rep( K1, 100); M1b <- rep(K2, 100)
M2a <- rep(K1, 100); M2b <- rep(K1, 100)
M3a <- rep(K1, 100); M3b <- rep(K3, 100)
mydf <- data.frame(M1a, M1b, M2a, M2b, M3a, M3b)
# matrix operation
nmat <- matrix(c(paste('M', 1:3, 'a', sep = ''), paste('M', 1:3, 'b', sep =
'')), 3)
coffin <- function(x) {
x <- as.vector(x)
d1cf <- ifelse(myd...
2013 Oct 17
1
pamer.fnc y la nueva versión de R
...The calls to ffRanefLMER.fnc and bfFixefLMER_F.fnc could
# be replaced by a call to fitLMER.fnc. In this latter case, however,
# bfFixefLMER_F.fnc would be called first, then the random effect
# structure would be forward fitted, and finally teh fixed effects
# would be backfitted again.
m3b <- fitLMER.fnc(model = m1, ran.effects = c("(0 + LengthBc | Subject)",
"(0 + WMCc | Item)"),
backfit.on = "F", log.file = FALSE)
pamer.fnc(m3b)
# The results are the same. This may not necessarily be the case
#...
2014 Mar 17
5
LD50
Quiero comparar varias dosis letales 50% (LD50) usando análisis probit. He
seguido un ejemplo que viene en paquete DRC, pero no obtengo el resultado
esperado. Lo que quiero es saber si las LD50s, son diferentes y si la
diferencias son estadísticamente significativas.
Gracias de antemano.
José Arturo
e-mail. jafarfan@uady.mx <grejon@uady.mx>
e-mail alterno. jafarfan@gmail.com
2015 Mar 22
2
robust updating methods
...#39;t work for any reason
f4 <- function(m) {
d2 <- d; d2[1] <- d2[1]+0 ## force copy
update.both(m,data=d2)
}
## Case 1: fit within function
m2 <- f1()
try(update.default(m2)) ## default: object 'd2' not found
m3A <- update.envformula(m2) ## envformula: works
m3B <- update.both(m2) ## works
## Case 2: update within function
m4A <- f2(m1) ## default: works
try(f3(m1)) ## envformula: object 'd2' not found
m4B <- f4(m1) ## works
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.11 (GNU/Linux)
iQEcBAEBAgAGBQJVDvHBAAoJEOCV5YRblxUH...
2015 Mar 24
2
robust updating methods
...for any reason f4 <- function(m) { d2 <- d; d2[1] <-
> d2[1]+0 ## force copy update.both(m,data=d2) }
>
> ## Case 1: fit within function m2 <- f1() try(update.default(m2))
> ## default: object 'd2' not found m3A <- update.envformula(m2) ##
> envformula: works m3B <- update.both(m2) ## works
>
> ## Case 2: update within function m4A <- f2(m1) ## default: works
> try(f3(m1)) ## envformula: object 'd2' not found m4B <- f4(m1)
> ## works
>
>>
>> ______________________________________________
>> R...
2015 Mar 23
0
robust updating methods
...m) {
> d2 <- d; d2[1] <- d2[1]+0 ## force copy
> update.both(m,data=d2)
> }
>
> ## Case 1: fit within function
> m2 <- f1()
> try(update.default(m2)) ## default: object 'd2' not found
> m3A <- update.envformula(m2) ## envformula: works
> m3B <- update.both(m2) ## works
>
> ## Case 2: update within function
> m4A <- f2(m1) ## default: works
> try(f3(m1)) ## envformula: object 'd2' not found
> m4B <- f4(m1) ## works
>
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.4.11 (GNU/Linux)...
2015 Mar 27
0
robust updating methods
...4 <- function(m) { d2 <- d;
>> d2[1] <- d2[1]+0 ## force copy update.both(m,data=d2) }
>
>> ## Case 1: fit within function m2 <- f1()
>> try(update.default(m2)) ## default: object 'd2' not found m3A <-
>> update.envformula(m2) ## envformula: works m3B <-
>> update.both(m2) ## works
>
>> ## Case 2: update within function m4A <- f2(m1) ## default:
>> works try(f3(m1)) ## envformula: object 'd2' not found m4B <-
>> f4(m1) ## works
>
>>>
>>> ______________________________...
2005 Dec 21
9
question about changejournal
Hi,
I''ve got a newbie question--sorry if this is covered elsewhere, I parsed
through the archives for awhile and didn''t see it.
I''d like to listen for whenever a file is renamed (e.g. foo.txt -> foo.old)
and then magically change it back. This sounds odd, but I''m working with a
stubborn application and this will actually make things work nice.
So, if I do:
2008 Jun 30
4
Rebuild of kernel 2.6.9-67.0.20.EL failure
Hello list.
I'm trying to rebuild the 2.6.9.67.0.20.EL kernel, but it fails even without
modifications.
How did I try it?
Created a (non-root) build environment (not a mock )
Installed the kernel.scr.rpm and did a
rpmbuild -ba --target=`uname -m` kernel-2.6.spec 2> prep-err.log | tee
prep-out.log
The build failed at the end:
Processing files: kernel-xenU-devel-2.6.9-67.0.20.EL
Checking