Displaying 20 results from an estimated 418 matches for "x6".
Did you mean:
x86
2005 Oct 05
0
Ad: Re: Ad: Re: R crashes for large formulas in lm() (PR#8180)
Dette er en melding med flere deler i MIME-format.
--=_alternative 004C4E4A00257091_=
Content-Type: text/plain; charset="US-ASCII"
Yes.
so (x1*x2*x3*x4*x5*x6*x7*x8)^2 = (x1+x2+x3+x4+x5+x6+x7+x8)^8 ?
and there is a difference in
(x1*x2*x3*x4*x5*x6*x7*x8)^2
and
(x1*x2*x3*x4*x5*x6*x7*x8)
althoug the resulting formulas are the same, or?
This fikses my problem, but R still crashes for the large formula. It may
be due to stack owerflow, but i guess this can...
2005 Oct 05
0
Ad: Re: R crashes for large formulas in lm() (PR#8180)
..., 5 Oct 2005 Hallgeir.Grinde at elkem.no wrote:
> And some more informastion I forgot.
> R does not crash if I write out the formula:
>
> set.seed(123)
> x1 <- runif(1000)
> x2 <- runif(1000)
> x3 <- runif(1000)
> x4 <- runif(1000)
> x5 <- runif(1000)
> x6 <- runif(1000)
> x7 <- runif(1000)
> x8 <- runif(1000)
> y <- rnorm(1000)
> fit <- lm(y~(x1*x2*x3*x4*x5*x6*x7*x8)^2)
> -> R crashes
>
> fit <- lm(y~x1+x2+x3+x4+x5+x6+x7+x8
> +x1:x2+x1:x3+x1:x4+x1:x5+x1:x6+x1:x7+x1:x8
> +x...
2005 Oct 05
0
Ad: Re: Ad: Re: R crashes for large formulas in lm() (PR#8181)
On Wed, 5 Oct 2005 Hallgeir.Grinde at elkem.no wrote:
> Yes.
> so (x1*x2*x3*x4*x5*x6*x7*x8)^2 = (x1+x2+x3+x4+x5+x6+x7+x8)^8 ?
Yes in the sense that the simplified formula given by terms() is the same.
> and there is a difference in
> (x1*x2*x3*x4*x5*x6*x7*x8)^2
> and
> (x1*x2*x3*x4*x5*x6*x7*x8)
> althoug the resulting formulas are the same, or?
The first is reduce...
2005 Oct 05
1
Ad: Re: R crashes for large formulas in lm() (PR#8180)
...ormat.
--=_alternative 004613C000257091_=
Content-Type: text/plain; charset="US-ASCII"
And some more informastion I forgot.
R does not crash if I write out the formula:
set.seed(123)
x1 <- runif(1000)
x2 <- runif(1000)
x3 <- runif(1000)
x4 <- runif(1000)
x5 <- runif(1000)
x6 <- runif(1000)
x7 <- runif(1000)
x8 <- runif(1000)
y <- rnorm(1000)
fit <- lm(y~(x1*x2*x3*x4*x5*x6*x7*x8)^2)
-> R crashes
fit <- lm(y~x1+x2+x3+x4+x5+x6+x7+x8
+x1:x2+x1:x3+x1:x4+x1:x5+x1:x6+x1:x7+x1:x8
+x2:x3++x2:x4+x2:x5+x2:x6+x2:x7+x2:x8...
2011 Apr 09
2
Orthoblique rotation on eigenvectors (SAS VARCLUS)
...low attempt to do this, but I found my results differ
from SAS in "pc3" (i.e, the standardize component scores).
I'd appreciate your help in whether you see anything wrong in "pc2" or
"pc3"?
set.seed(1)
x1=rnorm(200); x2=0.9*x1; x3=0.7*x1; x4=x1*x1; x5=x1*x1*x1;
x6=rnorm(200); x7=0.9*x6; x8=0.7*x6; x9=x6*x6; x10=x6*x6*x6;
x <- cbind(x1,x2,x3,x4,x5,x6,x7,x8,x9,x10)
require(GPArotation)
pc1 <- princomp(x, cor = TRUE, scores = TRUE)
pc2 <- quartimax(pc1$loadings[,1:2],normalize=TRUE)$loadings
pc3 <- scale(x%*% pc2)
pc4 <- apply(x, 2, function(x)...
2011 Dec 19
2
Summing x1 to x6
Suppose I have the following:
x1<-as.vector(rnorm(10))
x2<-as.vector(rnorm(10))
x3<-as.vector(rnorm(10))
x4<-as.vector(rnorm(10))
x5<-as.vector(rnorm(10))
x6<-as.vector(rnorm(10))
x7<-as.vector(rnorm(10))
x8<-as.vector(rnorm(10))
x9<-as.vector(rnorm(10))
x10<-as.vector(rnorm(10))
I would like the mean of x1 to x6 for each vector position. I would do
something else with x7-x10. These vectors are not currently in a dataframe.
I tried to...
2008 Jun 09
2
Crosscorr.plot
Just out of curiosity, why might this be occuring:
> class(x6)
[1] "mcmc"
> crosscorr.plot(x6)
NULL
# Replicable code
example(lmer)
x6 <- mcmcsamp(fm1, n=1000)
crosscorr.plot(x6)
2013 Apr 13
1
how to add a row vector in a dataframe
...??
#x1??? Numeric,3000 Numeric,3000 Numeric,3000 Numeric,3000
#x2??? Numeric,3000 Numeric,3000 Numeric,3000 Numeric,3000
#x3??? Numeric,3000 Numeric,3000 Numeric,3000 Numeric,3000
#x4??? Numeric,3000 Numeric,3000 Numeric,3000 Numeric,3000
#x5??? Numeric,3000 Numeric,3000 Numeric,3000 Numeric,3000
#x6??? Numeric,3000 Numeric,3000 Numeric,3000 Numeric,3000
#x7??? Numeric,3000 Numeric,3000 Numeric,3000 Numeric,3000
#x8??? Numeric,3000 Numeric,3000 Numeric,3000 Numeric,3000
#x9??? Numeric,3000 Numeric,3000 Numeric,3000 Numeric,3000
#x10?? Numeric,3000 Numeric,3000 Numeric,3000 Numeric,3000
#t ??? N...
2013 May 29
3
bootstrap
...013 9:05 AM
Subject: bootstrap
hi. i have these dataset:?
set.seed(12345)?
S=1000?
generate <- function(size) {?
x1 <- rnorm(size, mean=0, sd=1)?
x2 <- rnorm(size, mean=0, sd=1)?
x3 <- rnorm(size, mean=0, sd=1)?
x4 <- rnorm(size, mean=0, sd=1)?
x5 <- rnorm(size, mean=0, sd=1)?
x6 <- rnorm(size, mean=0, sd=1)?
x7 <- rnorm(size, mean=0, sd=1)?
x8 <- rnorm(size, mean=0, sd=1)?
x9 <- rnorm(size, mean=0, sd=1)?
x10 <- rnorm(size, mean=0, sd=1)?
e<-rnorm(size, mean=0, sd=1)?
t_trueps <- (1 + exp( -(b0 + b1*x1 + b2*x2 + b3*x3 + b4*x4 + b5*x5 + b6*x6 + b7*x7?
+...
2005 Oct 05
8
R crashes for large formulas in lm() (PR#8180)
Full_Name: Hallgeir Grinde
Version: 2.1.1
OS: Windows XP
Submission from: (NULL) (144.127.1.1)
While using lm(y~(x*z*c*...*v)^2) R crashes/closes if the numbers of variables
are at least 8.
2008 Dec 22
1
sem package fails when no of factors increase from 3 to 4
...5 .16 1
.24 .20 .16 .13 .15 .18 .19 .18 .14 .11 .07 .16 .19 .21 .22 .35 1
.14 .25 .12 .09 .11 .09 .09 .11 .21 .17 .09 .05 .21 .23 .18 .39 .48 1
mod3.1_9<-specify.model();
X1 <-> X1,TD11,NA
X2 <-> X2,TD22,NA
X3 <-> X3,TD33,NA
X4 <-> X4,TD44,NA
X5 <-> X5,TD55,NA
X6 <-> X6,TD66,NA
X7 <-> X7,TD77,NA
X8 <-> X8,TD88,NA
X9 <-> X9,TD99,NA
X1 <- xi1,LY11, NA
X2 <- xi1,LY21, NA
X3 <- xi1,LY31, NA
X4 <- xi2,LY42, NA
X5 <- xi2,LY52, NA
X6 <- xi2,LY62, NA
X7 <- xi3,LY73, NA
X8 <- xi3,LY83, NA
X9 <- xi3,LY93...
2006 Aug 16
1
Specifying Path Model in SEM for CFA
...er constraints.)
Here is what I've tried:
model.sa <- specify.model()
F1 -> X1,l11, NA
F1 -> X2,l21, NA
F1 -> X3,l31, NA
F1 -> X4,l41, NA
F1 -> X5, NA, 0.20
F2 -> X1,l12, NA
F2 -> X2,l22, NA
F2 -> X3,l32, NA
F2 -> X4,l42, NA
F2 -> X6, NA, 0.25
F1 <-> F2,g12, 1
F1 <-> F1,g11, 1
F2 <-> F2,g22, 1
X1 <-> X1, NA, 1
X2 <-> X2, NA, 1
X3 <-> X3, NA, 1
X4 <-> X4, NA, 1
X5 <-> X5, NA, 1
X6 <-> X6, NA, 1
This at least converges:
> summary(fit.sem)
Model C...
2020 Sep 10
5
aplicar codigo
Hola:
Como dice Carlos, algo así, por ejemplo:
transforma <- function(df) sapply(df, function(x)
ifelse(x%in%c("x1","x2","x3"),
"prueba1",ifelse(x%in%c("x4","x5","x6"),"prueba2",x)))
> transforma(df1)
col1
[1,] "prueba1"
[2,] "prueba1"
[3,] "x11"
[4,] "prueba1"
[5,] "x33"
[6,] "prueba1"
[7,] "prueba2"
[8,] "prueba2"
[9,] "x35"...
2005 Oct 05
0
Ad: Re: R crashes for large formulas in lm() (PR#8180)
...t; > And some more informastion I forgot.
> > R does not crash if I write out the formula:
> >
> > set.seed(123)
> > x1 <- runif(1000)
> > x2 <- runif(1000)
> > x3 <- runif(1000)
> > x4 <- runif(1000)
> > x5 <- runif(1000)
> > x6 <- runif(1000)
> > x7 <- runif(1000)
> > x8 <- runif(1000)
> > y <- rnorm(1000)
> > fit <- lm(y~(x1*x2*x3*x4*x5*x6*x7*x8)^2)
> > -> R crashes
> >
> > fit <- lm(y~x1+x2+x3+x4+x5+x6+x7+x8
> > +x1:x2+x1:x3+x1:x4+x1:x...
2017 Aug 22
1
boot.stepAIC fails with computed formula
...teps=limit,
scope=list(lower=frm1,upper=frm2))
> bst
Summary of Bootstrapping the 'stepAIC()' procedure for
Call:
lm(formula = y1 ~ ., data = dat)
Bootstrap samples: 50
Direction: forward
Penalty: 2 * df
Covariates selected
(%)
x1 100
x2 100
x3 100
x4 100
x5 100
x6 100
x7 100
x8 100
Coefficients Sign
+ (%) - (%)
x3 100 0
x6 100 0
x8 100 0
x1 90 10
x2 86 14
x7 62 38
x4 44 56
x5 0 100
Stat Significance
(%)
x3 100
x6 100
x8 100
x5 34
x2 20
x1 16
x4 10
x7 4
The stepAIC() for the original data-set gav...
2010 Apr 19
2
How to pass a list of parameters into a function
Does anyone know how to pass a list of parameters into a function?
for example:
somefun=function(x1,x2,x3,x4,x5,x6,x7,x8,x9){
ans=x1+x2+x3+x4+x5+x6+x7+x8+x9
return(ans)
}
somefun(1,2,3,4,5,6,7,8,9)
# I would like this to work:
temp=c(x3=3,x4=4,x5=5,x6=6,x7=7,x8=8,x9=9)
somefun(x1=1,x2=2,temp)
# OR I would like this to work:
temp=list(x3=3,x4=4,x5=5,x6=6,x7=7,x8=8,x9=9)
somefun(x1=1,x2=2,temp)
[[alt...
2020 Sep 10
3
aplicar codigo
Hola,
me gustar?a hacer algo como en el siguiente ejemplo
A un df a?adirle una columna que es la transformaci?n de otra,
en plan a todo lo que sea x1, x2, x3 lo llamo prueba 1
todo lo que sea x4,x5,x6 lo llamo prueba 2
el resto de x las dejo como est?n.
Ser?a algo as?
col1 <- c('x1', 'x2', 'x11', 'x1','x33', 'x1','x4', 'x5', 'x35', 'x1','x2', 'x4')
df1<-data.frame(col1)
attach(df1)
df1$transf...
2006 Nov 21
2
using nested ifelse and rowSums to create new variable?
Dear R-help community,
If I have a data.frame df as follows:
> df
x1 x2 x3 x4 x5 x6
1 5 5 1 1 2 1
2 5 5 5 5 1 5
3 1 5 5 5 5 5
4 5 5 1 4 5 5
5 5 1 5 2 4 1
6 5 1 5 4 5 1
7 5 1 5 4 4 5
8 5 1 1 1 1 5
9 1 5 1 1 2 5
10 5 1 5 4 5 5
11 1 5 5 2 1 1
12 5 5 5 4 4 1
13 1 5 1 4 4 1
14 1 1 5 4 5 5
15 1...
2006 Aug 31
3
what's wrong with my simulation programs on logistic regression
...l,please help me to correct it and give some suggestions.
My programs:
data<-matrix(rnorm(400),ncol=8) #sample size is 50
data<-data.frame(data)
names(data)<-c(paste("x",1:8,sep="")) #8 independent variables,x1-x8;
#logistic regression model is logit(y)=x1+x2+x3+x4+x5+x6+x7+x8
data$y<-exp(data$x1+data$x2+data$x3+data$x4+data$x5+data$x6+data$x7+data$x8)/(1+(data$x1+data$x2+data$x3+data$x4+data$x5+data$x6+data$x7+data$x8))
logist<-glm(y~.,family=binomial(),data=simdata)
*Warning messages:*
1: algorithm can't converge in: glm.fit(x = X, y = Y, weights = wei...
2020 Sep 10
2
aplicar codigo
...Ahora con el código de Marcelino tampoco me sale.
>
> col1 <- c('x1', 'x2', 'x11', 'x1','x33', 'x1','x4', 'x5', 'x35',
> 'x1','x2', 'x4')
> col2 <- c('x12', 'x4', 'x6', 'x771','x4', 'x2')
> col3 <- c('x7', 'x2', 'x4', 'x5','x111', 'x1','x4', 'x5',
> 'x35','x2','x2', 'x4','x6', 'x5')
>
> df1<-data.frame(col...