[R] Assistance would be appreciated

[Jim Lemon]

Hi is it still Bruce?,

mean_decc_0<-mean_decc_0[c(1:4,6:8)]

Jim

On Mon, Mar 27, 2017 at 10:13 AM, MyCalendar <rentar18 at gmail.com> wrote:
> Hi R'ers:
> Newbie to R, but I guarantee that I don't ask for help until, in this case, I spent
> Over ten hours today ( Sunday, wife loves it!! )
> I can't find the bug, trying to remove column cum_wt.
> Assistance would be appreciated.
> Bruce
> --- Code ---
>
> yhat     <- seq(1, 0.05, length.out = 20)
> Response <-c(1,0,1,0,0,0,0,0,1,0,1,0,1,0,0,0,0,0,1,0)
> cum_R    <- cumsum(Response)
> sam_size <- length(Response)
> cum_wt   <- seq(1:1,length=20)
> wt       <- seq(1:1,by=0, length=20)
> dec      <- (cum_wt/sam_size)
> decc     <- floor((cum_wt*10)/(sam_size+1))
> dec_mean <- aggregate(Response, by=list(decc), mean)
> d        <- data.frame(yhat, Response, cum_R, sam_size, cum_wt,wt, decc, dec_mean)
> d
>
> #decc=0
> decc_0           <- subset(d, decc ==0)
> mean_decc_0      <- colMeans(decc_0, 2)
> mean_decc_0[1,5] <- NULL
> mean_decc_0
> ______________
>
>
>
>
>
> -------
>         [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.