Displaying 1 result from an estimated 1 matches for "new_cma_c".
2012 Sep 24
0
stop on rows where !is.na(mydata$ti_all)
...%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(newname, NA, NA, NA, new_out_c, new_cma_c, new_c_n, NA))
}
})
# recombine and sort
coln...