Displaying 13 results from an estimated 13 matches for "pc21".
Did you mean:
pc1
2018 Jan 16
5
Merging RData files
I ran two separate hours-long projects. Results of each were saved to
two separate .RData files.
Content of each includes, among others, the following:
?????????????????? me??? se????? t???? p sig
pc21.age??????? 0.640 0.219? 2.918 0.004 ***
pc21.agesq????? 0.000 0.000??? NaN?? NaN
pc21.inc??????? 0.903 0.103? 8.752 0.000 ***
pc21.incsq????? 0.000 0.000??? NaN?? NaN
pc21.sei10????? 0.451 0.145? 3.122 0.002 ***
pc21.sblkprot? -4.334 3.387? 1.280 0.201
...
Question: How can I combine/consolidate t...
2018 Jan 16
0
Merging RData files
...an 16, 2018 at 12:43 AM, Steven Yen <styen at ntu.edu.tw> wrote:
> I ran two separate hours-long projects. Results of each were saved to
> two separate .RData files.
> Content of each includes, among others, the following:
>
> me se t p sig
> pc21.age 0.640 0.219 2.918 0.004 ***
> pc21.agesq 0.000 0.000 NaN NaN
> pc21.inc 0.903 0.103 8.752 0.000 ***
> pc21.incsq 0.000 0.000 NaN NaN
> pc21.sei10 0.451 0.145 3.122 0.002 ***
> pc21.sblkprot -4.334 3.387 1.280 0.201
> ...
>
> Qu...
2024 Aug 09
3
If loop
...-cbind(me1,v1$p12); me0<-cbind(me0,v0$p12)}
??? if(marg1)?? {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)}
??? if(marg2)?? {me1<-cbind(me1,v1$p2); me0<-cbind(me0,v0$p2)}
??? if(cond12)? {me1<-cbind(me1,v1$pc12); me0<-cbind(me0,v0$pc12)}
??? if(cond21)? {me1<-cbind(me1,v1$pc21); me0<-cbind(me0,v0$pc21)}
??? ...
? labels<-NULL
? if(joint12) labels<-c(labels,lab.p12)
? if(marg1)?? labels<-c(labels,lab.p1)
? if(marg2)?? labels<-c(labels,lab.p2)
? if(cond12)? labels<-c(labels,lab.pc12)
? if(cond21)? labels<-c(labels,lab.pc21)
2024 Aug 09
1
If loop
...? } else if(marg1) {
????? {me1<-cbind(me1,v1$p1);?? me0<-cbind(me0,v0$p1)}
??? } else if(marg2) {
????? {me1<-cbind(me1,v1$p2);?? me0<-cbind(me0,v0$p2)}
??? } else if(cond12){
????? {me1<-cbind(me1,v1$pc12); me0<-cbind(me0,v0$pc12)}
??? } else {
????? {me1<-cbind(me1,v1$pc21); me0<-cbind(me0,v0$pc21)}
??? }
...
? labels<-NULL
? if(joint12){
??? labels<-c(labels,lab.p12)
? } else if(marg1) {
??? labels<-c(labels,lab.p1)
? } else if(marg2) {
??? labels<-c(labels,lab.p2)
? } else if(cond12){
??? labels<-c(labels,lab.pc12)
? } else {
??? lab...
2018 Jan 16
2
Merging RData files
....org
>> Subject: [R] Merging RData files
>>
>> I ran two separate hours-long projects. Results of each were saved to two
>> separate .RData files.
>> Content of each includes, among others, the following:
>>
>> me se t p sig pc21.age 0.640 0.219 2.918 0.004 ***
>> pc21.agesq 0.000 0.000 NaN NaN pc21.inc 0.903 0.103 8.752 0.000
>> *** pc21.incsq 0.000 0.000 NaN NaN
>> pc21.sei10 0.451 0.145 3.122 0.002 *** pc21.sblkprot -4.334 3.387 1.280
>> 0.201 ...
>&g...
2018 Jan 16
0
Merging RData files
...> To: r-help at r-project.org
> Subject: [R] Merging RData files
>
> I ran two separate hours-long projects. Results of each were saved to two
> separate .RData files.
> Content of each includes, among others, the following:
>
> me se t p sig pc21.age 0.640 0.219 2.918 0.004 ***
> pc21.agesq 0.000 0.000 NaN NaN pc21.inc 0.903 0.103 8.752 0.000
> *** pc21.incsq 0.000 0.000 NaN NaN
> pc21.sei10 0.451 0.145 3.122 0.002 *** pc21.sblkprot -4.334 3.387 1.280
> 0.201 ...
>
> Question: Ho...
2018 Jan 16
0
Merging RData files
...] Merging RData files
>>>
>>> I ran two separate hours-long projects. Results of each were saved to two
>>> separate .RData files.
>>> Content of each includes, among others, the following:
>>>
>>> me se t p sig pc21.age 0.640 0.219 2.918 0.004 ***
>>> pc21.agesq 0.000 0.000 NaN NaN pc21.inc 0.903 0.103 8.752 0.000
>>> *** pc21.incsq 0.000 0.000 NaN NaN
>>> pc21.sei10 0.451 0.145 3.122 0.002 *** pc21.sblkprot -4.334 3.387 1.280
>>>...
2018 Jan 16
1
Merging RData files
...;>>> I ran two separate hours-long projects. Results of each were saved
>>>> to two
>>>> separate .RData files.
>>>> Content of each includes, among others, the following:
>>>>
>>>> ????????????????????? me??? se????? t???? p sig pc21.age???????
>>>> 0.640 0.219? 2.918 0.004 ***
>>>> pc21.agesq????? 0.000 0.000??? NaN?? NaN pc21.inc 0.903 0.103?
>>>> 8.752 0.000
>>>> *** pc21.incsq????? 0.000 0.000??? NaN?? NaN
>>>> pc21.sei10????? 0.451 0.145? 3.122 0.002 *** pc21.sb...
2024 Aug 09
1
If loop
...me0<-cbind(me0,v0$p12)}
> if(marg1) {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)}
> if(marg2) {me1<-cbind(me1,v1$p2); me0<-cbind(me0,v0$p2)}
> if(cond12) {me1<-cbind(me1,v1$pc12); me0<-cbind(me0,v0$pc12)}
> if(cond21) {me1<-cbind(me1,v1$pc21); me0<-cbind(me0,v0$pc21)}
> ...
>
> labels<-NULL
> if(joint12) labels<-c(labels,lab.p12)
> if(marg1) labels<-c(labels,lab.p1)
> if(marg2) labels<-c(labels,lab.p2)
> if(cond12) labels<-c(labels,lab.pc12)
> if(cond21) labels<-...
2024 Aug 09
3
If loop
...> if(marg1) {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)}
> >> if(marg2) {me1<-cbind(me1,v1$p2); me0<-cbind(me0,v0$p2)}
> >> if(cond12) {me1<-cbind(me1,v1$pc12); me0<-cbind(me0,v0$pc12)}
> >> if(cond21) {me1<-cbind(me1,v1$pc21); me0<-cbind(me0,v0$pc21)}
> >> ...
> >>
> >> labels<-NULL
> >> if(joint12) labels<-c(labels,lab.p12)
> >> if(marg1) labels<-c(labels,lab.p1)
> >> if(marg2) labels<-c(labels,lab.p2)
> >> if(cond12)...
2024 Aug 09
1
If loop
...0,v0$p12)}
> ???? if(marg1)?? {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)}
> ???? if(marg2)?? {me1<-cbind(me1,v1$p2); me0<-cbind(me0,v0$p2)}
> ???? if(cond12)? {me1<-cbind(me1,v1$pc12); me0<-cbind(me0,v0$pc12)}
> ???? if(cond21)? {me1<-cbind(me1,v1$pc21); me0<-cbind(me0,v0$pc21)}
> ???? ...
>
> ?? labels<-NULL
> ?? if(joint12) labels<-c(labels,lab.p12)
> ?? if(marg1)?? labels<-c(labels,lab.p1)
> ?? if(marg2)?? labels<-c(labels,lab.p2)
> ?? if(cond12)? labels<-c(labels,lab.pc12)
>...
2024 Aug 09
2
If loop
...0,v0$p12)}
>> if(marg1) {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)}
>> if(marg2) {me1<-cbind(me1,v1$p2); me0<-cbind(me0,v0$p2)}
>> if(cond12) {me1<-cbind(me1,v1$pc12); me0<-cbind(me0,v0$pc12)}
>> if(cond21) {me1<-cbind(me1,v1$pc21); me0<-cbind(me0,v0$pc21)}
>> ...
>>
>> labels<-NULL
>> if(joint12) labels<-c(labels,lab.p12)
>> if(marg1) labels<-c(labels,lab.p1)
>> if(marg2) labels<-c(labels,lab.p2)
>> if(cond12) labels<-c(labels,lab.pc12)
>...
2011 Oct 12
1
CVbinary - Help
Hey,
I need some help.
I want to obtain a cross validation for a regression model (binary response)
but I got an error with CVbinary. Well I did this:
fit <- lm(resp ~ PC1 + PC2 + PC3 + PC4 + PC5 + PC6 + PC7 + PC8 +
PC9+PC10+PC11+PC12+PC13+PC14+PC15+PC16+PC17+PC18+PC19+PC20+PC21+PC22+PC23+PC24+PC25+PC26+PC27+PC28,
data = dexp.cp, family=binomial())
CVbinary(fit)
Error in sample(nfolds, m, replace = TRUE) : invalid 'size' argument
I cannot understand this error, I was googling it, but i didn't find nothing
really helpfull. Can someone help with is?...It's...