Displaying 20 results from an estimated 554 matches for "x5".
Did you mean:
0x5
2008 Mar 29
1
Tabulating Sparse Contingency Table
I have a sparse contingency table (most cells are 0):
> xtabs(~.,data[,idx:(idx+4)])
, , x3 = 1, x4 = 1, x5 = 1
x2
x1 1 2 3
1 0 0 31
2 0 0 112
3 0 0 94
, , x3 = 2, x4 = 1, x5 = 1
x2
x1 1 2 3
1 0 0 0
2 0 0 0
3 0 0 0
, , x3 = 3, x4 = 1, x5 = 1
x2
x1 1 2 3
1 0 0 0
2 0 0 0
3 0 0 0
, , x3 = 1, x4 = 2, x5 =...
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...
2005 Oct 05
0
Ad: Re: R crashes for large formulas in lm() (PR#8180)
On Wed, 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...
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 red...
2005 Oct 05
1
Ad: Re: R crashes for large formulas in lm() (PR#8180)
...flere deler i MIME-format.
--=_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:...
2011 Oct 31
3
How to get Quartiles when data contains both numeric variables and factors
When data contains both factor and numeric variables, how to get quartiles
for all numeric variables?
n <- 100
x1 <- runif(n)
x2 <- runif(n)
x3 <- x1 + x2 + runif(n)/10
x4 <- x1 + x2 + x3 + runif(n)/10
x5 <- factor(sample(c('a','b','c'),n,replace=TRUE))
x6 <- factor(1*(x5=='a' | x5=='c'))
data1 <- cbind(x1,x2,x3,x4,x5,x6)
data <- data.frame(data1)
data <- within(data,{x5 <- factor(x5)})
x <- data
qs <- sapply(x, function(x) quantil...
2020 Mar 29
3
Upgrade to CentOS8
Hi Phil
Here it is:
[root at totorbex ~]# lspci -nn
.00:00.0 Host bridge [0600]: Intel Corporation Atom/Celeron/Pentium
Processor x5-E8000/J3xxx/N3xxx Series SoC Transaction Register [8086:2280]
(rev 21)
00:02.0 VGA compatible controller [0300]: Intel Corporation
Atom/Celeron/Pentium Processor x5-E8000/J3xxx/N3xxx Integrated Graphics
Controller [8086:22b1] (rev 21)
00:10.0 SD Host controller [0805]: Intel Corporation Atom/Celero...
2012 Sep 12
3
how to create a substraction matrix (subtract a row of every column from the same row in other columns)
Hello
I have data like this
x1 x2 x3 x4 x5
I want to create a matrix similar to a correlation matrix, but with the
difference between the two values, like this
x1 x2 x3 x4 x5
x1 x2-x1 x3-x1 x4-x1 x5-x1
x2 x3-x2 x4-x2 x5-x2
x3 x4-x3 x5-x3
x4...
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,] &...
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$tra...
2003 Oct 05
3
stepAIC problem
...ot; every time I
run the part of stepAIC.
Even the following small program shows the same problem.
Is stepAIC of the new version altered?
Could anyone help me please?
--small example
> library(MASS)
> x1<-runif(100)
> x2<-runif(100)
> x3<-runif(100)
> x4<-runif(100)
> x5<-runif(100)
> y<-x1+x2+x3+runif(100)
> t<-data.frame(y=y,x1=x1,x2=x2,x3=x3,x4=x4,x5=x5)
> x<-lm(y~x1+x2+x3+x4+x5,data=t)
> stepAIC(x)
Start: AIC= -247.61
y ~ x1 + x2 + x3 + x4 + x5
Df Sum of Sq RSS AIC
- x5 1 3.747e-06 7.456 -249.608
- x4 1 0...
2013 Apr 13
1
how to add a row vector in a dataframe
...00]
#????? [,1]???????? [,2]???????? [,3]???????? [,4]???????
#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?? N...
2012 Nov 22
4
Data Extraction
Hello,
I would appreciate if someone could help me resolve the following:
1. df1[!is.na( X1 | X2 | X3 | X4 | X5),][,1:5] # This does not work
2. Is these message harmful? The following object(s) are masked from 'df1 (position 3)':
X1, X2, X3, X4, X5
Thanks,
Pradip Muhuri
#Reproducible Example
set.seed(5)
df1<-data.frame(matrix(sample(c(1:10,NA),100,replace=TRUE),ncol=5))
attach (df1)
#de...
2013 May 29
3
bootstrap
....com>
Sent: Wednesday, May 29, 2013 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*x...
2020 Sep 10
2
aplicar codigo
...ió:
> Gracias por las respuestas.
>
> Probé lo de hacer la función y no me salía. Pensaba que hacía algo mal.
> 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'...
2011 Oct 19
1
Subsetting data by eliminating redundant variables
...I am new to R, I have one question which might be easy.
I have a large data with more than 250 variable, i am reducing number of
variables by redun function as in the example below,
n <- 100
x1 <- runif(n)
x2 <- runif(n)
x3 <- x1 + x2 + runif(n)/10
x4 <- x1 + x2 + x3 + runif(n)/10
x5 <- factor(sample(c('a','b','c'),n,replace=TRUE))
x6 <- 1*(x5=='a' | x5=='c')
data1 <- cbind(x1,x2,x3,x4,x5,x6)
data2 <- data.frame(data1)
outredun <- redun(~., data=data2, r2=.8,)
outredun
#outredun1 <- capture.output(redun(~., data=data2,...
2020 Mar 29
0
Upgrade to CentOS8
On 29/03/2020 14:31, Patrick DERWAEL wrote:
> Hi Phil
>
> Here it is:
>
>
> [root at totorbex ~]# lspci -nn
> .00:00.0 Host bridge [0600]: Intel Corporation Atom/Celeron/Pentium
> Processor x5-E8000/J3xxx/N3xxx Series SoC Transaction Register [8086:2280]
> (rev 21)
> 00:02.0 VGA compatible controller [0300]: Intel Corporation
> Atom/Celeron/Pentium Processor x5-E8000/J3xxx/N3xxx Integrated Graphics
> Controller [8086:22b1] (rev 21)
^^ video is supported by the i915 driver
&...
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.
2012 Aug 10
1
Solving binary integer optimization problem
...(Channel=c('c1','c2','c3','c4','c5'),
Fixed_Cost=c(400,5000,4000,2000,100),
Variable_Cost=c(2.5,0,0.15,2,3),
Capacity=c(5000,30000,20000,10000,4000),
Expected_gain=c(0.25,0.3,0.15,0.36,0.09))
Let x1,x2,x3,x4,x5 are the decision variables for c1,c2,c3,c4,c5 channel
and z1,z2,z3,z4,z5 are the indicator binary variables if channel has
allocated communication if any.
max((0.25*x1+0.30*x2+0.15*x3+0.36*x4+0.09*x5)-(2.5*x1+0*x2+0.15*x3+2*x4+3*x5+400*z1+10000*z2+4000*z3+2000*z4+100*z5)/(
2.5*x1+0*x2+0.15*x3+2*x...
2008 Dec 22
1
sem package fails when no of factors increase from 3 to 4
...10 .06 .15 .16 .07 .25 .25 .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,LY...