~ubuntu-branches/ubuntu/edgy/ess/edgy

« back to all changes in this revision

Viewing changes to etc/indent-wrong.R

• browse files at revision 4
• compare with another revision
• download diff
• download tarball
• view history from revision 4

Show diffs side-by-side

added

removed

etc/indent-wrong.R

1

 

a <- function(ch) {

2

 

    if(ch == Inf) {

3

 

        E.cond <- numeric(nb)

4

 

    }

5

 

    else {

6

 

        indic  <- ifelse(jinf+1 <= 1 & jsup >= 1,1,0)

7

 

        E.cond <- ch*(-pbinom(jinf,ni,prb) + 1-pbinom(js.n,ni,prb)) +

8

 

            ifelse(ni == 1, prb*indic,

9

 

                   mu*(pbinom(js.n-1,pmax(ni-1,1),prb)-

10

 

                       pbinom(jinf-1,pmax(ni-1,1),prb))) / sV -

11

 

                           ## why is the following line wrongly indented by Emacs/ESS ?

12

 

                           mu/sV*(pbinom(js.n,ni,prb) - pbinom(jinf,ni,prb))

13

 

 

14

 

        indic2 <- ifelse(jinf+1 <= 1 & jsup >= 1 & ni == 2,1,0)

15

 

 

16

 

    }

17

 

}

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1