Displaying 1 result from an estimated 1 matches for "new_out_c".
2012 Sep 24
0
stop on rows where !is.na(mydata$ti_all)
...take", as.numeric(l[2]), 0))
newname = paste(c("v", sprintf("%03d", max(numbers) + 1), "arm", "1"),
collapse="_")
r1 = subdata[1, ]
new_c_n = lookup$c_name[lookup$t_name == r1$t_name]
new_out_c = sum(subdata$ty_all == "out_" & !is.na(subdata$ti_all))
new_cma_c = sum(subdata$ty_all == "cma_" & !is.na(subdata$ti_all))
new_out_c = ifelse(new_out_c == 0, NA, new_out_c)
new_cma_c = ifelse(new_cma_c == 0, NA, new_cma_c)
return(c(new...